浏览文件夹中的图片（用VB实现）

最新推荐文章于 2023-10-21 09:24:56 发布

原创

最新推荐文章于 2023-10-21 09:24:56 发布 · 2.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #function #command #textbox #object

使用VB编程实现浏览指定文件夹中的图片，通过FindFirstFile和FindNextFile等API函数查找文件，并在窗体上显示图片。程序在VB6.0+WINME环境下运行正常，支持.jpg、.bmp、.gif等格式。用户可以通过Drive1和Dir1选择目录，ComboBox选择文件类型，使用VScroll1滚动查看图片。

浏览文件夹中的图片（用VB实现）
首先要新建一个工程,在Form1中添加dirlistbox控件,drivelistbox控件,filelistbox控件,combobox控件，textbox控件，vscrollbar控件和一个command1控件
然后在代码框中输入以下代码：

Option Explicit

private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
private Const MAX_PATH = 260
private Type FILETIME
dwLowDateTime As Lon