Ejemplo Columnview

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()
  relleno()
End


Public Sub relleno()

   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