ComboBox VB6

[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

[Avellaneda]

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).

[Sil_va]

Muchas gracias, justo ahora staba probando esa solución. Gracias por confirmarme que es así como debe hacerse.