執行中新增一個picturebox

Question

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
程式碼
End Sub

也就是我按Button1，表單會新增一個picturebox
並命名為a1
而大小背景圖等同於picturebox1(相當於複製新增一個picturebox1)

下一次按Button1時，新增的picturebox命名為a2

求VB高手！

終結者 · Accepted Answer

Dim picnum As Short = 0
    Dim picname As String
    Dim newpic As PictureBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        picnum += 1
        picname = "a" & picnum.ToString

        newpic = New PictureBox
        newpic.Name = picname
        newpic.BackColor = Color.Red
        newpic.Location = New Point(50 * picnum, 10)
        newpic.Size = New Size(40, 30)
        Me.Controls.Add(newpic)

    End Sub

2015-02-16 19:07:13 補充：
使用共用事件
Private Sub Button1_Click...........
 .........
 Me.Controls.Add(newpic)
增加
       AddHandler newpic.MouseDown, AddressOf PictureBox1_MouseDown
        AddHandler newpic.MouseMove, AddressOf PictureBox1_MouseMove
        AddHandler newpic.MouseUp, AddressOf PictureBox1_MouseUp
 End Sub

2015-02-16 19:13:31 補充：
但MouseDown、MouseMove、MouseUp事件不知道是哪個控制項所引發的，所以在各個事件中，只要與控制項有關的方法與屬性，都要有CType(sender, PictureBox)這個程式碼，例如
Private Sub PictureBox1_MouseDown(........) Handles PictureBox1.MouseDown
        CType(sender, PictureBox).BackColor = Color.Blue
 End Sub '當你在某個 PictureBox控制項按下滑鼠，背景會變成藍色

執行中新增一個picturebox

1 個解答