Questo può servire?
Private hColumnView As ColumnView
Public Sub Form_Open()
Dim hHBox As HBox
Dim hButton As Button
Me.Arrangement = Arrange.Vertical
Me.Margin = True
With hColumnView = New ColumnView(Me) As "ColumnView1"
.Expand = True
.Columns.count = 4
'.Header = False
.Columns[0].Alignment = Align.Center
.Columns[0].Title = "Nome"
.Columns[1].Title = "Amici 1"
.Columns[2].Title = "Amici 2"
.Columns[3].Title = "In competizione con"
.add("first", "Pippo", Picture["icon:/16/clock"])
hColumnView["first"][1] = "Pluto"
hColumnView["first"][2] = "Paperino"
hColumnView["first"][3] = "Gastone"
.add("second", "Topolino", Picture["icon:/16/group"])
hColumnView["second"][1] = "Minnie"
hColumnView["second"][2] = "Basettoni"
hColumnView["second"][3] = "Gamba di legno"
.Columns[1].Width = -1
.Columns[2].Width = -1
.Columns[3].Width = -1
End With
With hHBox = New HBox(Me)
.H = 35
End With
With hButton = New Button(hHBox) As "Button1"
.W = 120
.Text = "Add Column"
End With
End
Public Sub ColumnView1_Click()
Dim hGrid As GridView = hColumnView.Children[0]
Print "Colonna "; hGrid.Column
Print "Chiave "; Quote(hColumnView.Current.Key)
Print "Valore "; Quote(hColumnView[hColumnView.Current.Key][hGrid.Column]); "\n"
Print hColumnView.Item[hGrid.Column]
End
Public Sub Button1_Click()
With hColumnView
.Columns.Count = 5
.Columns[4].Title = "Age"
hColumnView["first"][4] = "31"
hColumnView["second"][4] = "28"
End With
End
:ciao: