VB程序学习代码记录20160729

驱动器列表框(DriveListBox控件)

Private Sub Command1_Click()
    Dim i As Integer
    Dim s As String
    For i = 0 To Drive1.ListCount - 1
        s = s & vbCrLf & Drive1.List(i)
        Label2.Caption = s
    Next i
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

目录列表框(DirListBox控件)

Private Sub Dir1_Change()
    Label1.Caption = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

文件列表框(FileListBox控件)