vb随机显示图片
原创
©著作权归作者所有:来自51CTO博客作者于大大大洋的原创作品,请联系作者获取转载授权,否则将追究法律责任
根目录下建一个文件夹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
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
ListView标题平面显示(VB)
ListView标题平面显示(VB) Public Declare Function SendMessageLong Lib "user
listview vb attributes function header -
随机显示数字
主要知识点有: 数组的两种新建方式, Math.random函数的运用 innerHTML与
html javascript 数组 xml 运算符 -
显示随机键盘
显示随机键盘
html5课程 微信 人工智能 css html