利用vb是自动浏览图片功能,主要利用timer控件和loadpicture函数,现在就分享操作的具体过程和代码内容,希望对小伙伴们有所帮助。
工具/原料
vb6
方法/步骤
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 = "自动浏览" Then Command1.Caption = "自动浏览停" Timer1 = True Else Command9.Caption = "自动浏览" Timer1 = False End If
6
同样方法切换到timer代码区域,输入代码Static i%i = i Mod n + 1Image1.Picture = LoadPicture(App.Path + "\照片" + "\p" & i & ".jpg")
7
执行文件-保存工程命令,依次保存窗体和工程,点击启动按钮,查看效果,接着执行文件-生成工程命令,将文件生成可执行文件即可。
下一篇:蓝牙耳机和手机如何连接