✔ 最佳答案
以下是改變圖片方法參考
加一個 PictureBox 同一個 Timer,Timer Interval 定為 1000 (1秒)。
在 Form Class 內宣告變數
Dim FileImage(4) As System.Drawing.Image ' 用 5 張圖
Dim n As Integer
在 Form.Load event 內
Dim dir = Environment.CurrentDirectory
FileImage(0) = System.Drawing.Image.FromFile(dir & "\image0.jpg")
FileImage(1) = System.Drawing.Image.FromFile(dir & "\image1.jpg")
FileImage(2) = System.Drawing.Image.FromFile(dir & "\image2.jpg")
FileImage(3) = System.Drawing.Image.FromFile(dir & "\image3.jpg")
FileImage(4) = System.Drawing.Image.FromFile(dir & "\image4.jpg")
n = FileImage.Length - 1 ' the upper bound of the array
在 Timer.Tick event 內
Dim Rnd As New Random()
Dim i As Integer = Rnd.Next(0, n) ' 隨機數
PictureBox1.Image = FileImage(i) ' 隨機顯示圖畫
進級後可將 Timer Interval 減少加快圖畫轉變速度。
2008-06-10 04:12:39 補充:
你用甚麼方法來扑傻瓜﹖一個按鈕或按相同圖畫﹖
2008-06-10 23:45:45 補充:
更正
Dim i As Integer = Rnd.Next(0, n) 隨機數
應為
Dim i As Integer = Rnd.Next(0, n + 1) 隨機數