如何利用vb实现自动浏览图片功能

1、首先启动vb6，执行文件-新建工程命令，新建一个标准exe文件。

2、进入窗体界面后，调整其大小，双击工具箱中的image控件，创建image1控件，并调整其大小。

3、采用同样的方法创建command1控件和timer1控件，修改command1的caption为“自动浏览”

4、双击窗体进入代码区域，书写窗体的载入事件，代码如下：Image1.Picture = LoadPicture(App.Path + "\照片" + "\p" & i & ".jpg")With Image1X = .LeftY = .Toph = .Heightw = .WidthEnd WithTimer1.Enabled = FalseTimer1.Interval = 3000Image1.Stretch = True

5、接着进入command1的点击事件，输入代码，代码如下：If Command1.Caption = "自动浏览&鳎溻趄酃quot; ThenCommand1.Caption = "自动浏览停"Timer1 = TrueElseCommand9.Caption = "自动浏览"Timer1 = FalseEnd If

6、同样方法切换到timer代码区域，输入代码Static i%i = i Mod n + 1Image1.Picture = LoadPicture(App.Path + "\照片" + "\p" & i & ".jpg")

7、执行文件-保存工程命令，依次保存窗体和工程，点击启动按钮，查看效果，接着执行文件-生成工程命令，将文件生成可执行文件即可。