自编图形浏览器

Author: 李毅 Date: 1998年第38期 13版

　　图形文件显示在VB编程中可通过调用LoadPicture函数来实现，本文通过一个实例实现了图形文件的快速查看，设计好的界面如^381302a^所示。在本例中通过驱动器列表框控件（DriveListBox）、目录列表框控件（DirListBox）、文件列表框控件（FileListBox）联合使用，定位要显示的图形文件的路径，在文件列表框选中文件名，就可在图片框控件中预览图形，并能根据图形的大小自动调整显示的区域。
　　程序代码如下：
　　Private Sub Form_Load（）
　　File1.Pattern=″＊.bmp;＊.ico;＊.wmf″　‘设置文件列表框的显示文件类型
　　Picture1.AutoSize=－1　‘将图片框尺寸设为自动改变模式
　　End Sub
　　Private Sub Drive1_Change（）
　　Dir1.Path=Drive1.Drive　‘使目录列表框的路径随驱动器列表框内容变化
　　End Sub
　　Private Sub Dir1_Change（）
　　File1.Path = Dir1.Path　‘使文件列表框的路径随目录列表框的内容变化
　　End Sub
　　Private Sub File1_Click（）
　　Picture1.Picture=LoadPicture（File1.Path＋″\″＋File1.filename）　‘装载图片到图片框控件
　　End Sub
　　Private Sub Command1_Click（）
　　End
　　End Sub