DriveListBox、DirListBox、FileListBox(三个列表框)和CommonDialog(公共对话框控件)

驱动器列表：DriveListBox

Drive1.Drive = "X" 设置X驱动器的起始驱动器

目录列表框控件：DirListBox

Dir1.Path = "E:/KuGou" 设置目录列表框的默认路径

文件列表框：FileListBox

一般DriveListBox和DirListBox结合使用，他们各自的代码为：

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

 

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

 

公共对话框控件：

CommonDialog1.Action = 1或CommonDialog1.ShowOpen都可以打开对话框

CommonDialog1的属性： .FileName 文件名称和路径；.FileTitle 文件名；.Filter设置打开文件的类型

Private Sub Command1_Click()

Dim str1 As String

CommonDialog1.Filter = "文本文件（*.txt）|*.txt"

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1

Line Input #1, str1

Close 1

Form1.Print str1

End Sub

 

Flags属性设置字体对话框

Text.MultiLine是否允许多行输入，属性设置为true后，在文本框中可以进行换行，还可以结合scrollbars属性，设置其滚动条样式。只有 multiline 属性为真才能使滚动条属性scrollbor起作用 ，文本框的多行显示，如果你scrollbars属性设置为TRUE的话，multiline肯定要是TRUE