Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Ayuda Visual Basic 2008 -> Listbox < -

taka77

taka77

Becerro
Desde
5 Mar 2010
Mensajes
29
que onda bakunos! recientemente me dejaron una tarea en la uni de programación (ni al caso estudio mtk ¬¬) pero yaven como es mexico xD ... El chiste es que el prof nunca acudio a clases y de la nada nos dejo esta mmd! xD y la neta se bien poquito de visual y quisiera saber si me ayudan con el codigo o por lo menos unos hints XD por que la neta no se que rollo :S


Va a elaborar una lista de 20 registros de una estructura de datos acerca de CARNICERIA, que contendrá los campos CLAVE DEL PRODUCTO, DESCRIPCION, FECHA DE ADQUISICION, PRECIO, FECHA DE CADUCIDAD, con una distribución



Funcionara de la siguiente manera, al presionar el boton el contenido de los campos pasara a la variable que hallan dado de alta y esta a su vez pasara el resultado al listbox, y al seleccionar un elemento del listbox este mostrara los datos en los campos indicando por medio de una label en que registro se encuentra.

Nota: Respeten el orden de la solucion(me refiero a como estan acomodados los controles)



Ayudaaaaaaaa XD!!!!!!!!

Gracias =)!
 
ahhh mi cabeza !! >_<!! llevo esto apenas ... me complementan?? XD

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Clave As Integer
Clave = TextBox1.Text
Dim Descripcion As String
Descripcion = TextBox2.Text
Dim Adquisicion As Double
Adquisicion = TextBox3.Text
Dim Precio As Double
Precio = TextBox4.Text
Dim Caducidad As Double
Caducidad = TextBox5.Text

ListBox1.Items.Add(Clave)
ListBox1.Items.Add(Descripcion)
ListBox1.Items.Add(Adquisicion)
ListBox1.Items.Add(Precio)
ListBox1.Items.Add(Caducidad)

End Sub
End Class
 
1. usa un arreglo para almacenar los datos
2. agregalo al control list box
3. al seleccionar un elemento, recupera el selectedindex del list y recupera la posicion correspondiente en el arreglo y muestralo donde quieras
4. no hay 4 :P
 
yayayaya ya pude!! :D Gracias auque casi no le cache a la ayuda ! xD

Dejo el codigo para compartir =)!

Public Class Form1
Structure Carniceria
Dim Clave As Integer
Dim Descripcion As String
Dim Adquisicion As Date
Dim Precio As Double
Dim Caducidad As Date
End Structure
Dim Producto(20) As Carniceria
Dim Indice As Integer = 0

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Indice > 19 Then
MsgBox("Compita Disculpe!! Pero Ya No Caben Mas Datos")
Else
End If
Producto(Indice).Clave = txtclave.Text
Producto(Indice).Descripcion = txtdescripcion.Text
Producto(Indice).Adquisicion = CType(txtadquisicion.Text, Date)
Producto(Indice).Precio = CType(txtprecio.Text, Double)
Producto(Indice).Caducidad = CType(txtcaducidad.Text, Date)

ListBox1.Items.Add(txtclave.Text & "-" & txtdescripcion.Text)
Indice = Indice + 1
End Sub

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
txtclave.Text = Producto(ListBox1.SelectedIndex).Clave
txtdescripcion.Text = Producto(ListBox1.SelectedIndex).Descripcion
txtadquisicion.Text = Producto(ListBox1.SelectedIndex).Adquisicion
txtprecio.Text = Producto(ListBox1.SelectedIndex).Precio
txtcaducidad.Text = Producto(ListBox1.SelectedIndex).Caducidad
End Sub
End Class
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba