Cara Membuat ListBox yang bisa di Edit

Cara Membuat 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.