List Box control is frequently
used in applications. Here, we learn how to use list box control in vb.net. In
the given example add & remove operations will be performed on listbox1 and
listbox2 to move items from one listbox to another.
Code
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs)
Handles MyBase.Load
Try
' Adding items to Listbox1
ListBox1.Items.Add("Amit")
ListBox1.Items.Add("Sumit")
ListBox1.Items.Add("Ramit")
ListBox1.Items.Add("Kapil")
ListBox1.Items.Add("Sahil")
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs)
Handles Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs)
Handles Button1.Click
Try
If ListBox1.Text =
"" Then
MsgBox("ListBox1:
Please select an item first..")
Else
Dim a As Integer
' variable 'a' will contain the index
of the selected item
a =
ListBox1.Items.IndexOf(ListBox1.Text)
' code to add item to listbox2
ListBox2.Items.Add(ListBox1.Items.Item(a))
' code to remove item from listbox1
ListBox1.Items.Remove(ListBox1.Items.Item(a))
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs)
Handles Button2.Click
Dim a As Integer
Try
If
ListBox2.Text = "" Then
MsgBox("ListBox2:
Please select an item first..")
Else
a =
ListBox2.Items.IndexOf(ListBox2.Text)
'code to add item to listbox1
ListBox1.Items.Add(ListBox2.Items.Item(a))
'code to remove item from listbox2
ListBox2.Items.RemoveAt(a)
End If
Catch ex As Exception
End Try
End Sub
End Class
Output
View of application on load
We can move items from one
listbox to another as shown in below figure
If you don't select any item
and click on move button then such a message will appear
