Untuk kasus tertentu, mungkin kita membutuhkan sebuah fitur untuk memindahkan data dari sebuah listbox ke listbox lainnya. Oleh karena itu, artikel ini akan membahas bagaimana cara memindahkan isi Listbox menggunakan Visual Basic.Net
Berikut adalah potongan kode program untuk memindahkan isi dari listbox pertama ke listbox ke dua.
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Aceh")
ListBox1.Items.Add("Jakarta")
ListBox1.Items.Add("Bandung")
ListBox1.Items.Add("Bali")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.AddRange(ListBox1.Items)
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox1.Items.AddRange(ListBox2.Items)
ListBox2.Items.Clear()
End Sub
No Comments
Leave a comment Cancel