Mengenal Penggunaan TableView Dan GridView Pada Gambas

Meskipun judul diatas terdapat Kata GridView, namun pada tutorial disini hanya memberikan contoh penggunaan TableView mengingat terdapat kesamaan penggunaan antara keduanya. Sedangkan perbedaan penggunaannya ialah bahwa TableView bersifat editable (bisa diedit atau diberi masukan nilai), sedangkan GridView hanya menampilkan saja.

Misal pada tes.Form terdapat TableView yang terdiri dari 4 kolom dan 3 baris:

Public Sub Form_Open()

End

Public Sub _new()

    Dim n As Integer

    With TableView1

      'Header adalah kepala tabel

      'Jumlah kolom header harus lebih 1 dari jumlah kolom

      .Header = 5

      .Columns.Count = 4 'Jumlah kolom

      .Rows.Count = 3 'Jumlah baris

      .Columns[0].W = 10 'Lebar kolom ke-0

      .Columns[1].W = 20 'Lebar kolom ke-1

      .Columns[2].W = 100 'Lebar kolom ke-2

      .Columns[3].W = 100 'Lebar kolom ke-1

           'Nama header tiap kolom

      .Columns[0].Title = "No"

      .Columns[1].Title = "Kode"

      .Columns[2].Title = "Nama"

      .Columns[3].Title = "Hobi"

    End With

        'Beri nilai pada kolom “No”

    'Jumlah baris hanya tersisa 3 karena yang pertama untuk header

    For n = 0 To 2

       TableView1[n, 0].Text = n + 1

    Next

End

Public Sub TableView1_Click()

    Dim hobi As Array = ["Makan", "Tidur", "Nonton TV", " Maen Game"]

    If TableView1.Column = 1 Or TableView1.Column = 2 Then

             'Kolom ke-1 (kode) atau ke-2 (nama) bisa di edit/dimasukkan teks dengan mengklik kolom

       TableView1.Edit

    Else

             'Kolom ke-3 bisa diedit dengan pilihan yang disediakan

       TableView1.Edit(hobi)

    Endif

       ‘Kolom “No” diset tidak bisa diedit

End

Public Sub TableView1_Save(baris As Integer, kolom As Integer, isi As String)

    'Event ini untuk meniyimpan inputan.Jika tidak menggunakan Event ini

  'maka tiap pindah baris inputan akan hilang

  TableView1[baris, kolom].Text = isi

End

Semoga Bermanfaat