ListBox yang bisa di Edit Pada VB. Net

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

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

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

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

Ketikkan kode ini di event TextBox1_LostFocus :

TextBox1.Visible = False

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

Mudah sekali bukan .. hehehe

Semoga Sukses J