根目錄下建一個文件夾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

總結

以上是生活随笔為你收集整理的vb随机显示图片的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。