' Gambas class file

Private RowNo As Integer = 0
Private SelectedItem As String

Public Sub Form_Open()

  FMain.caption = "Column View Example"
  FMain.Center
  ColumnView1.Resizable = True ' The user can resize the columns.
  ColumnView1.Sorted = True
  ColumnView1.Columns.Count = 5
  
  ColumnView1.Columns[0].text = "Id"
  ColumnView1.Columns[0].Width = 40
  ColumnView1.Columns[1].text = "Item"
  ColumnView1.Columns[1].Width = 100

  ColumnView1.Columns[2].text = "Code"
  ColumnView1.Columns[3].text = "Description"
  ColumnView1.Columns[4].text = "Time"

End

Public Sub Button1_Click()

  ColumnView1.Add(Str(RowNo), Str(RowNo), PictureBox1.picture)
  ColumnView1[Str(RowNo)][1] = TextBox1.Text
  ColumnView1[Str(RowNo)][2] = TextBox2.Text
  ColumnView1[Str(RowNo)][3] = TextBox3.Text
  ColumnView1[Str(RowNo)][4] = Time(Now)
  RowNo += 1

End

Public Sub ColumnView1_Click()

  SelectedItem = ColumnView1.Current.Text ' The Key

End

Public Sub ColumnView1_DblClick()

  If Trim(SelectedItem) <> "" Then
    TextBox1.Text = ColumnView1[SelectedItem][1]
    TextBox2.Text = ColumnView1[SelectedItem][2]
    TextBox3.Text = ColumnView1[SelectedItem][3]
  Endif

End
