多语言展示
当前在线:1882今日阅读:175今日分享:29

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

利用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

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

推荐信息