ListBox yang bisa di Edit

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 event Form1_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.