vb随机显示图片
2013-12-05 17:03
162 查看
根目录下建一个文件夹PIC，在PIC下存放5张图片，
名称分虽是1，2，3，4，5
然后添加一个timer1控件，一个image1控件，
它的interval设5000（即5秒）
写如下代码
Private Sub Form_Load()
Dim i As Integer
Image1.Picture = LoadPicture(App.Path &
"pic\1.bmp")
End Sub
Private Sub Timer1_Timer()
i = Int(Rnd * 5 + 1)
Image1.Picture = LoadPicture(App.Path &
"\pic\" & i & ".bmp")
End Sub
名称分虽是1，2，3，4，5
然后添加一个timer1控件，一个image1控件，
它的interval设5000（即5秒）
写如下代码
Private Sub Form_Load()
Dim i As Integer
Image1.Picture = LoadPicture(App.Path &
"pic\1.bmp")
End Sub
Private Sub Timer1_Timer()
i = Int(Rnd * 5 + 1)
Image1.Picture = LoadPicture(App.Path &
"\pic\" & i & ".bmp")
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 利用JSP在Web页面中显示随机数字验证码图片
- JS实现页面载入时随机显示图片效果
- 刷新一次变一次的图片代码-PHP随机显示图片代码：可制作头像或签名
- VB.net基础:如何获得并显示网上图片
- 随机显示图片代码
- JavaScript 12 随机显示的背景图片
- 用javascript+PHP随机显示图片
- VB.NET显示Internet上的图片
- VB 显示PNG图片（适合透明窗体和一般窗体）
- VB使用Bitblt等函数，源图片不完全显示导致不能实现功能的解决办法
- 刷新随机显示图片
- php随机显示图片的简单示例
- php 随机显示图片的函数(实例分享)
- [VB.NET].NET精简框架下用VB.NET怎么实现在picturebox上显示不同图片???
- 用javascript+PHP随机显示图片
- 通过VB显示QQ网页登录时代校验码图,并显示在picturebox控件中（通过vb显示网页中的图片）
- javascript实现刷新页面随机显示图片
- php随机显示指定文件夹下图片的方法
- javascript随机显示图片