读书人

Picturebox对象数组运用疑问

发布时间: 2013-03-10 09:38:39 作者: rapoo

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

热点推荐