[SOLUCIONADO] Problema con VB6 /ItemData/ NewIndex

[pcarvajal]

Estoy llenando un combo y asignandole el indice e la siguiente manera:

Código:

    cmbCategoria.AddItem "A1"
    cmbCategoria.ItemData(cmbCategoria.NewIndex) = 1

    cmbCategoria.AddItem "A2"
    cmbCategoria.ItemData(cmbCategoria.NewIndex) = 2

    cmbCategoria.AddItem "A3"
    cmbCategoria.ItemData(cmbCategoria.NewIndex) = 3

    cmbCategoria.AddItem "A4"
    cmbCategoria.ItemData(cmbCategoria.NewIndex) = 4

    cmbCategoria.AddItem "A5"
    cmbCategoria.ItemData(cmbCategoria.NewIndex) = 5

   cmbCategoria.ListIndex = 4

El asunto es que si quiero que el item con listindex 4 sea el que aparezca selecciando por defecto, no funciona (no aume el indice y toma cualquier otro), y no se me ocurre porqué.

Alguien podria hecharme una manito por favor?

[carbon]

Sin usar la función ItemData, qué se selecciona si usas cmbCategoria.ListIndex = 4?

[pcarvajal]

haciendo esto:

Código:

    cmbCategoria.AddItem "A1"
   ' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 1

    cmbCategoria.AddItem "A2"
   ' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 2

    cmbCategoria.AddItem "A3"
   ' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 3

    cmbCategoria.AddItem "A4"
   ' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 4

    cmbCategoria.AddItem "A5"
   ' cmbCategoria.ItemData(cmbCategoria.NewIndex) = 5

    cmbCategoria.ListIndex = 4

Aparece seleccionado "A2"

[carbon]

Probé tu código y me funciona bien:

Código vb:

cmbCategoria.AddItem "A1"
cmbCategoria.AddItem "A2"
cmbCategoria.AddItem "A3"
cmbCategoria.AddItem "A4"
cmbCategoria.AddItem "A5"
 
cmbCategoria.ListIndex = 4
 

Teniendo en cuenta que se comienza a contar desde el 0, aparece seleccionado "A5". Debes tener el problema en otro lado.