Picturebox对象数组运用疑问

2013-03-10

Picturebox对象数组使用疑问小弟目前想要实现一个功能就是我将一个Picturebox1设在Form1上并且标上颜色然

Picturebox对象数组使用疑问
小弟目前想要实现一个功能就是我将一个Picturebox1设在Form1上

并且标上颜色然后在程序代码中加入11个相同的Picturebox对象并从

Picturebox1的左边排列过来但是我不晓得我写的程序代码出了什么问题

为什么都只有一个Picturebox1的控键在Form1上呢?

附上代码:


Public Class Form1


    Private pic(10) As PictureBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i = 1
        For Each ppic In pic

            ppic = New PictureBox

            With ppic
                .Top = Me.PictureBox1.Top
                .Left = 40 + i * 20
                .BackColor = Me.PictureBox1.BackColor
                .Visible = True
            End With
            i += 1
        Next




    End Sub
End Class

[解决办法]
Public Class Form1

    Private pic(10) As PictureBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i = 1
        For Each ppic In pic

            ppic = New PictureBox

            With ppic
                .Top = Me.PictureBox1.Top
                .Left = 40 + i * 20
                .BackColor = Me.PictureBox1.BackColor
                .Visible = True
            End With
            me.Controls.Add(ppic)
            i += 1
        Next

    End Sub
End Class

热点排行

VB Dotnet

Picturebox对象数组运用疑问