Cita:
Iniciado por Sil_va 
Hola a todos,
Me ha tocado añadir algunas características a programas en VB6.
En VB.Net, al añadir un elemento a un ListBox puede dársele un valor:
Código:
ListBox1.Add(new ListItem("Mi Carro", "0")
ListBox1.Add(new ListItem("Mi Burro", " 1")
En cambio en VB6 sólo encuentro esta manera de añadir un elemento:
Código:
Combo1..AddItem = "Mi Carro"
Combo1.Additem = "Mi Burro"
necesito hacer esto mismo o algo parecido, parq que al leer los datos de una BD cada elemento del listbox tenga como valor el ID que tenía en la Base de Datos
gracias y un saludo a tod@s
Hola, el control ComboBox de VB6 tiene la propiedad ItemData asociada al item del mismo.
p.e. para cargar en el combo un campo de un recordset y asociarle el número de registro:
With rs
Do Until .EOF
Combo1.AddItem .Fields(0)
Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
.MoveNext
Loop
End With
y para moverte al registro seleccionado en el combo:
Private Sub Combo1_Click()
rs.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
End Sub
La propiedad AbsolutePosition la puedes sustituir por el id de la tabla o por cualquier otro campo identificador (siempre que sea numérico).
