w047

http://tw.knowledge.yahoo.com/question/?link=vote_on&qid=1405120511917

問：如何以picturebox配合timer定時切換圖片阿?

-----------------------------------------------------------------------------

答：換圖的方法是 你的Picturebox元件.Picture = LoadPicture("你的檔案路徑和檔名")
      例  Picture1.Picture = LoadPicture("c:\aa\5.jpg")

假設有5張圖片要每隔1秒鐘定時切換
檔名分別為
1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
並且都放在Images資料夾中
程式可如此寫

Private Sub Form_Load()
Timer1.Interval=1000
Timer1.Enabled=True
End Sub

Private Sub Timer1_Timer()
Static cNo as integer

cNo=cNo+1
Picture1.Picture = LoadPicture(App.Path & "\Images\" & CStr(cNo) & ".jpg")

IF cNo=5 then cNo=0
End Sub