Tutorial Gambas: Cara Supaya Tampilan TableView (Editor) Tidak Menggantung Saat Pindah Fokus

Maksud dari judul diatas adalah tampilan TableView yang editable (menggunakan Editor TextBox) saat pindah fokus (tanpa melalui tombol enter maupun tombol klik pada TableView tersebut) sehingga tampilan menjadi menggantung seperti pada gambar berikut:

Setelah (langsung) pindah fokus ke TextBox

untuk menghidari hal itu maka harus melakukan sesuatu pada Editor TableView seperti berikut:

' Gambas class file

Private TabelEditor As TextBox

Public Sub Form_Open()

   With TableView1

     .Header = 3

     .Columns.Count = 3

     .Rows.Count = 5

     .Columns[0].W = 100

     .Columns[1].W = 100

     .Columns[2].W = 100

     .Columns[0].Title = "A"

     .Columns[1].Title = "B"

     .Columns[2].Title = "C"

     ' Isian rata kanan

     .Columns[0].Alignment = Align.Right

     .Columns[1].Alignment = Align.Right

     .Columns[2].Alignment = Align.Right

   End With

   ' Membuat Objek TextBox untuk editor TableView dengan nama TabelEditor

   TabelEditor = New TextBox(Me) As "TabelEditor"

End

Public Sub TableView1_Click()

   TableView1.EditWith(TabelEditor)

End

Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String)

   TableView1[Row, Column].Text = Value

End

Public Sub TabelEditor_LostFocus()

   TableView1.Show

End

Perintah pada LostFocus dia atas yang menentukan supaya editor TableView tidak menggantung saat fikus pindah ke komponen lain.

Semoga dapat difahami dan bermanfaat.