2012年12月7日 星期五
控制項名稱動起來
如果希望依程式需要引用同類的控制項,
可以使用 Controls("控制項" & 變數),
底下是個簡單的範例,
將五張圖片隨機填入五個 picturebox。
Dim xnum As Integer
For si = 1 To 5
xnum = Math.Round(Rnd() * 6, 0)
Select Case xnum
Case 0
Controls("picturebox" & si).BackgroundImage = My.Resources._1
Case 1
Controls("picturebox" & si).BackgroundImage = My.Resources._2
Case 2
Controls("picturebox" & si).BackgroundImage = My.Resources._3
Case 3
Controls("picturebox" & si).BackgroundImage = My.Resources._4
Case 4
Controls("picturebox" & si).BackgroundImage = My.Resources._5
End Select
Next