Button元件*12, Timer元件 *1
用剪下貼上的方式任意置放Button1~Button11元件
Dim Button(12) As Control Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i as integer
Button(2) = Button1
Button(3) = Button2
'逐一指定
For i = 2 to 12
'設定Button(i)的屬性，例如 text, left, top, width, height (1)
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim N1, N2 AS integer
Randomize
N1 = Int(Rnd() * 6 + 1) '擲骰子1
N2 = Int(Rnd() * 6 + 1) '擲骰子2
Select Case N1 + N2 '骰子1+骰子2
Case 1
Button1.Width = Button1.Width + 10
Case 2
Button2.Width = Button2.Width + 10
Case 3
Button3.Width = Button3.Width + 10
Case 4
Button4.Width = Button4.Width + 10
Case 5
Button5.Width = Button5.Width + 10
Case 6
Button6.Width = Button6.Width + 10
Case 7
Button7.Width = Button7.Width + 10
Case 8
Button8.Width = Button8.Width + 10
Case 9
Button9.Width = Button9.Width + 10
Case 10
Button10.Width = Button10.Width + 10
Case 11
Button11.Width = Button11.Width + 10
Case 12
Button12.Width = Button12.Width + 10
End Select
用陣列改寫之(2)
End Sub
執行結果
