Question

用VB程序设计语言做一个图片浏览器

这道题要求用VB程序设计语言解答 要求写出代码 布置窗体设计界面 要求实现以下功能：通过文件控件或其它控件方便地查看图片文件名，单击文件名即显示图片；可放大、缩小图片；可按指定时间间隔自动显示图片等

Answer 1

下面分步设置各控件的属性：
1.设置窗体的Caption属性为“图片浏览器”，BorderStyle属性为3，即窗体大小不能改变。
2.设置Label1的属性为“当前驱动器”，Label2的属性为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。
3.设置Text1的Text属性为空。
4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。
5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。
具体的程序源代码如下：
Private Sub Command1_Click（）
Image1.Picture=LoadPicture（Text1.Text）’当单击“确定”时，文本框中的文件在图像框中显示出来
End Sub
－－－－－－
Private Sub Command2_Click（）’当单击“退出”时，弹出是否退出系统对话框
Dim exi As String
exi=MsgBox（“您真的想退出吗？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”）
If exi=vbYes Then
End
End If
End Sub
－－－－－－
Private Sub Dir1_Change（）
File1.Path=Dir1’当目录发生变化时，文件列表框中的文件也相应变化
End Sub
－－－－－－
Private Sub Drive1_Change（）
Dir1.Path=Drive1’当驱动器变化时，目录列表也相应变化
End Sub
－－－－－－
Private Sub File1_Click（）
Text1.Text=File1.Path＋“\”＋File1’用来在文本框中显示被选中的图形名
End Sub
－－－－－－
Private Sub File1_DblClick（）
Image1.Picture=LoadPicture（File1.Path＋“\”＋File1）’当双击文件列表中的文件时，文件在图像框中显示出来
End Sub
－－－－－－
Private Sub Form_Load（）
Command1.Enabled=False’在未选择图形文件时“确定”按钮不可用
File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”’在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件
End Sub
－－－－－－
Private Sub Text1_Change（）
Command1.Enabled=True’当文本框中的内容变化时使“确定”按钮可用
End Sub