ListBox yang bisa diedit

Agar item yang terdapat di ListBox bisa di edit, maka diperlukan cara khusus dengan mengkombinasikannya dengan TextBox. Berikut caranya :

1. Tambahkan 1 ListBox, kemudian 1 TextBox (properti Visible=False) ke dalam Form.


2. Ketikkan kode ini di event ListBox1_MouseDoubleClick :
   Dim i As Integer = ListBox1.SelectedIndex
   If i < 0 Then Exit Sub
   
   With TextBox1
   .Top = ListBox1.GetItemRectangle(i).Top + ListBox1.Top
   .Left = ListBox1.GetItemRectangle(i).Left + ListBox1.Left
   
   .Text = ListBox1.Items(i)
   .Visible = True
   .Focus()
   End With


3. Ketikkan kode ini di event TextBox1_KeyPress :
   If e.KeyChar = Chr(Keys.Enter) Then
   ListBox1.Items(ListBox1.SelectedIndex) = TextBox1.Text
   TextBox1.Visible = False
   ElseIf e.KeyChar = Chr(Keys.Escape) Then
   TextBox1.Visible = False
   End If


4. Ketikkan kode ini di event TextBox1_LostFocus :
   TextBox1.Visible = False


5. Untuk percobaan, Anda bisa mengisi item dengan cara mengetikkan kode ini di eventForm1_Load :
   Dim i As Integer
   For i = 1 To 100
   ListBox1.Items.Add("Item ke " & i)
   Next

Jalankan aplikasi, lalu dobel klik item yang akan di edit.

Posted in: