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