Computer Programming Concepts and Visual Basic David I. Schneider

Private Sub cmdAdd_Click()
Dim item As String
item = InputBox(“Item to Add:”)
lstOxys.AddItem item
End Sub
Private Sub Form_Load()
lstOxys.AddItem “jumbo shrimp”
lstOxys.AddItem “definite maybe”
lstOxys.AddItem “old news”
lstOxys.AddItem “good grief”
End Sub
Private Sub lstOxys_Click()
picSelected.Cls
picSelected.Print “The selected item is”
picSelected.Print Chr(34) & lstOxys.Text & Chr(34) & “.”
End Sub
Private Sub lstOxys_DblClick()
lstOxys.RemoveItem lstOxys.ListIndex
End Sub
[Run, and then click on the second item of the list box.]
The following steps show how to fill a list box at design time. (This method is used in
Example 3.)
1. Select the List property of the list box.
2. Click on the down arrow of the Settings box. (A small box will be displayed.)
3. Type in the first item and press Ctrl+Enter. (The cursor will move to the next
line.)
4. Repeat Step 3 for each of the other items.
5. When you are finished entering items, press the Enter key.
When the Sorted property of a list box is True, the index associated with an item will
change when a “lesser” item is added to or removed from the list. In many applications it is
important to have a fixed number associated with each item in a list box. Visual Basic makes
this possible using the ItemData property. The statement
lstBox.ItemData(n) = m
associates the number m with the item of index n, and the statement
lstBox.ItemData(lstBox.NewIndex) = m
List Boxes and Combo Boxes 289
associates the number m with the item most recently added to the list box. Thus, lstBox can
be thought of as consisting of two arrays, lstBox.List( ) and lstBox.ItemData( ). The contents
of lstBox.List( ) are displayed in the list box, allowing the user to make a selection while the