求教：有名称为：pic1,pic2,pic3,pic4,pic5等10个picturebox,用循环赋值求教！！！，谢谢！！！

Question

FOR I=1 TO10

PIC（I）.Image = System.Drawing.Image.FromFile(Application.StartupPath & "\balls\red" & I & ".gif")

NEXT

出错，请教该如何做，谢谢！！！

Answer 1

你好

或者你可改變小小你的CODE, 用Form.Controls("Control名") 來找這個PictureBox
可以參考以下的CODE 看看能不能解決這個問題


        For i As Int32 = 1 To 10
            Dim pb As PictureBox= Me.Controls("pic" & i)
            If pb IsNot Nothing Then
                pb.Image = System.Drawing.Image.FromFile(Application.StartupPath & "\balls\red" & I & ".gif")

            End If

        Next

Please correct me if my concept is wrong

---

Chi

Answer 2

谢谢！！！