How to get number of items in ListBox is very easy in Visual Basic 2017.

Let say we have a listbox populated with some items. We need to put the number of all items in Listbox into TextBox.

TextBox1 = ListBox1.Items.Count

To explain How to Save ListBox Items to Text File using OpenFile Dialog I will use 3 buttons and 1 ListBox.

• Button1 = Add items
• Button2 = Save ListBox items
• Button3 = Read Text File
• ListBox

Knowing how to read a text file in Listbox is essential part in Visual Basic 2017 programming.

In this post I will teach you how to do it by using OpenFileDialog.

First let create a text file with notepad with the following data.


Now save the file somewhere on the local disk. I save it as a test file.txt on the Desktop.

Add a button in the form and title it Read text file; add a listbox too.

Above Public Class Form1 insert the following code

Imports System.IO

If you are complete beginner and you don't know how it looks like see on the picture bellow!



In the button insert the following code to read the text file in Listbox.

        Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim lines = File.ReadAllLines(OpenFileDialog1.FileName)
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange(lines)
        End If

To explain better how to remove multiple selected items in ListBox I will use the form structure from the previous post "How to remove selected item in Listbox" with little changes. Plus I will add an option for multi selection in Listbox and additional button for multi deletion.

Add items in Listbox
        ListBox1.Items.Add("some text")
        ListBox1.Items.Add("some text 1")
        ListBox1.Items.Add("some text 2")
        ListBox1.Items.Add("some text 3")
        ListBox1.Items.Add("some text 4")

To add multi selection in Listbox I added a code in Form1_Load event

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.SelectionMode = SelectionMode.MultiSimple
End Sub

Remove multiple selected items in Listbox code

       For i As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i))
        Next

In Visual Basic 2017 to remove selected item in ListBox is the same as in the previous releases in Visual Basic Net editions.

To solve this problem I putted a listbox in the form and two button. The first button is actually to add items in the listbox.
Here is the code for the first button:

ListBox1.Items.Add("some text")

The second button is the "Remove" button, as on the picture bellow.

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

First create a form similar to the picture bellow!

- 1 TextBox control
- 1 Button
- 1 ListBox control

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
    End Sub

We can polish this code by adding a code to clear the content in the TextBox control after pressing the button and focusing the TextBox.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)

        TextBox1.Clear()
        TextBox1.Select()
    End Sub

Probably you noticed that I used the code TextBox1.Select() to focus the cursor onto the TextBox control. This is because in Visual Basic 2017 you can't set focus on a Windows Form TextBox control.