none
求教:有名称为:pic1,pic2,pic3,pic4,pic5等10个picturebox,用循环赋值求教!!!,谢谢!!! RRS feed

  • 问题

  • FOR I=1 TO10

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

    NEXT

    出错,请教该如何做,谢谢!!!

    2010年8月28日 4:25

答案

  • 你好

    或者你可改變小小你的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
    2010年8月28日 6:25
    版主

全部回复

  • 你好

    或者你可改變小小你的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
    2010年8月28日 6:25
    版主
  • 谢谢!!!
    2010年8月28日 10:42