vb随机显示图片

发布时间：2020-12-17 08:04:04 所属栏目：百科来源：网络整理

导读：根目录下建一个文件夹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 "pic1.bmp

根目录下建一个文件夹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 & "pic1.bmp")

End Sub

Private Sub Timer1_Timer()

i = Int(Rnd * 5 + 1)

Image1.Picture = LoadPicture(App.Path & "pic" & i & ".bmp")

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!