Computer Programming Concepts and Visual Basic David I. Schneider

Private Sub cmdDisplay_Click()
picFileSpec.Cls
picFileSpec.Print dirList.Path;
If Right(dirList.Path, 1) “\” Then
picFileSpec.Print “\”;
End If
picFileSpec.Print filList.FileName
End Sub
Private Sub dirList_Change()
filList.Path = dirList.Path
End Sub
Private Sub drvList_Change()
dirList.Path = drvList.Drive
End Sub
[Run, select a drive, double-click on a directory, select a file, and then click the command button.]
COMMENTS
List Boxes and Combo Boxes 293
1. If a list or combo box is too short to display all the items that have been added
to it, Visual Basic automatically places a vertical scroll bar on the right side of
the list box. The user can then scroll to see the remaining items of the list.
2. When the Style property of a combo box is set to 2, the combo box becomes a
dropdown list box. The Drive list box is an example of a dropdown list box.
3. Dropdown combo boxes (Style 0) are used in Windows applications as a text
box with a “history list” (list of past entries) from which you can either type a
new entry or select an old entry.
4. The standard Windows convention for opening a file is to double-click on a
name in a file list box. The program must contain code for a DblClick event
procedure to carry out this task.
5. File list boxes can be made to display selective lists based on wildcard characters
by setting the Pattern property. For instance, setting File1.Pattern equal to
“*.TXT” dictates that only files with the extension TXT will be displayed.