|
一、使用VB工具箱中的驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）来制作图片浏览器程序。
1．制作应用程序界面
适当调整窗体Form1的大小，然后在上面放置一个驱动器列表框（DriveListBox）、一个目录列表框（DirListBox）一个文件列表框（FileListBox），一个图像框（Image）一个标签框（Label）一个文本框（TextBox）按图调整各控件在窗体中的位置。
2． 设置控件属性
a) Form1的Caption属性为：浏览图片
b) Label2的Caption属性为：你现在选择的文件是
c) Text1的Caption属性为：空 3．程序代码如下：
Private Sub Dir1_Change()
File1.Path = Dir1.Path '目录改变时，更新文件列表框中的内容
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '选中的驱动器改变时，更新目录列表框中的内容
End Sub
Private Sub File1_DblClick()
'根目录时，路径中的最后一个字符是反斜杠"\"，如：C:\
'非根目录时，路径中的最后一个字符不是反斜杠"\"
'得到完整的文件名，应在路径的最后加上反斜杠"\"
If Right(Dir1.Path, 1) = "\" Then
FileName = Dir1.Path + File1.FileName
Else
FileName = Dir1.Path + "\" + File1.FileName
'非根目录时，路径中的最后加上一个反斜杠"\"
End If
Image1.Picture = LoadPicture(FileName) '装入选定的文件
Text1.Text = FileName
End Sub
Private Sub Form_Load()
'设置应用程序所在驱动器和目录为当前驱动器和目录
'App 是当前的应用程序对象
Drive1.Drive = App.Path
Dir1.Path = App.Path
File1.Pattern = "*.bmp;*.ico;*.wmf;*.jpg;*.gif" ‘图形文件
End Sub 4．程序说明
首先将三个文件系统控件关联起来
a) 对于目录列表框控件和文件列表框控件的连接，需要对目录列表框控件的Chang事件过程编写代码来实现。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
b) 对于驱动器列表框控件和目录列表框控件的连接，可以在驱动器列表框控件中的Change事件中实现。
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
然后在文件列表框中的双击事件过程中，用IF语句给出所选的文件的文件标识符，在窗体装载时则对当前驱动器和目录以及图形文件进行设置。
二、在应用程序中，经常需要用到打开和保存文件、选择颜色和字体等对话框，它们都是Windows的公共对话框。在VB中可以使用公共对话框控件来创建这些公共对话框，而不必花费很大的劲去自己编写它们。下面我们就使用VB中公共对话框（Commondialog），来制作图片浏览器，在这个对话框中可以自由选择盘符、路径和文件，还可以规定显示的文件类型。公共对话控件控件不在VB的控件工具栏中，因此在使用前必须将其引入到控件工具栏。具体步骤如下：
步骤1：
右击控件工具栏，在弹出的快捷菜单中选择“部件”或者选择“工程→部件”命令。
步骤2：
在列表框中找到并选择“Microsoft Common Dialog 6.0”单击的确按钮即可。
打开公共对话框方法：ShowOpen ‘调用打开对话框
打开对话框常用的属性有：
Filter：用于返回或设置对话框中所列出的文件类型。
FileName：返回或设置选定文件的路径和文件名 代码如下：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
CommonDialog1.Filter = "图形文件*.jpg;*.gif;*.tif;*.ico;*.bmp"
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
|
