Buenas!
¿ Pero estáis hablando de un ColumnView o de un ListBox ?.
Es que si se dice que es un ColumnView y se le adjudica a este control un nombre como lstPosibles
da a entender que estamos hablando de un ListBox y no de un ColumView.
Ah esto existe:
Código:
ColumnView1.Columns.Max
Ademas ColumnView trabaja con claves no con indices.
Esto es un ejemplo de Julio (jsbsan) con ColumnView.
Código:
Public Sub Form_Open()
relleno()
End
Public Sub relleno()
Dim regilla As GridView 'Esto parece que sobra
ColumnView1.columns.count = 3
ColumnView1.Columns[0].Text = "Barajas"
ColumnView1.Columns[0].alignment = Align.Center
ColumnView1.Columns[1].Text = "Palos"
ColumnView1.Columns[1].alignment = Align.Right
ColumnView1.Columns[2].Text = "Valor"
ColumnView1.Columns[2].alignment = Align.left
ColumnView1.mode = Select.Single
ColumnView1.Header = 1
ColumnView1.Add("BarES", "Baraja Española", Picture.Load("rb.png"))
ColumnView1.Add("ReyesES", "Reyes", Picture.Load("rb.png"), "BarES")
ColumnView1.Add("CaballosES", "Caballos", Picture.Load("cb.png"), "BarES")
ColumnView1.Add("cb", "Bastos", Picture.Load("cb.png"), "CaballosES")
ColumnView1.Add("cc", "Copas", Picture.Load("cc.png"), "CaballosES")
ColumnView1.Add("co", "Oros", Picture.Load("co.png"), "CaballosES")
ColumnView1.Add("ce", "Espadas", Picture.Load("ce.png"), "CaballosES")
ColumnView1.Add("rb", "Bastos", Picture.Load("rb.png"), "ReyesES")
ColumnView1.Add("rc", "Copas", Picture.Load("rc.png"), "ReyesES")
ColumnView1.Add("ro", "Oros", Picture.Load("ro.png"), "ReyesES")
ColumnView1.Add("re", "Espadas", Picture.Load("re.png"), "ReyesES")
'relleno datos
ColumnView1["rb"][1] = "Basto"
ColumnView1["rb"][2] = "12"
ColumnView1["rc"][1] = "Copa"
ColumnView1["rc"][2] = "12"
ColumnView1["re"][1] = "Espada"
ColumnView1["re"][2] = "12"
ColumnView1["ro"][1] = "Oro"
ColumnView1["ro"][2] = "12"
ColumnView1["cb"][1] = "Basto"
ColumnView1["cb"][2] = "11"
ColumnView1["cc"][1] = "Copa"
ColumnView1["cc"][2] = "11"
ColumnView1["ce"][1] = "Espada"
ColumnView1["ce"][2] = "11"
ColumnView1["co"][1] = "Oro"
ColumnView1["co"][2] = "11"
End
Public Sub ColumnView1_Click()
LabelDatoElegido.text = "Key: " & ColumnView1.Current.key & " Palo: " & ColumnView1[ColumnView1.Current.key][1] & " Valor: " & ColumnView1[ColumnView1.Current.key][2]
End
Saludos