Question

Assume you have a form containing a listbox, lstDogs. Write code for the button handler that will use an Input Box to ask the user to enter a dog breed such as Cocker Spaniel, Collie, etc. The program should keep asking for dogs until the user hits the Enter key with no input or clicks the "Cancel" button. (This is easier than you might think).

Private Sub btnRun_Click(sender As Object, e As EventArgs) Handles btnRun.Click

<========= your code goes here ============>

End Sub

Answer 1

Visual Basic Windows application :

Step1: Design the form with the list box and button as shown below.

Step2:

Set the name property of List box as lstDogs and btnRun for Button1

Step3: Double click the Run button and write below code

Public Class Form1
'Double click the the Run button and write below code
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
'clear the items before click Run button
lstDogs.Items.Clear()
'declare a string dogBreed
Dim dogBreed As String
'prompt for dog breed string
dogBreed = InputBox("Input Dialog", "Enter dog breed", "")
'check if user entered breed is not empty and not enter key
While Not dogBreed.Equals("")
'add the dogBreed to the lstDogs
lstDogs.Items.Add(dogBreed)
'prompt for dog breed string
dogBreed = InputBox("Input Dialog", "Enter dog breed", "")
End While

End Sub
End Class

Step4: