VB.NET中如何动态创建控件

[a80008a]

比如我想在Form1窗口上建5个Button1，然后再逐一删除，希望给个代码做参考。谢谢，还有个小问题就是如果在生成的程序中，可以手动随便托动Button1按钮位置。

[a80008a]

呵呵，可以创建按钮了，ButtonCollection这个怎么提示出错

[hztltgg]

结帖率太低，给你一个很不灵光的代码

Public Class Form1

    Private Sub AddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButton.Click

        Dim b As New Button With {.Text = "1号按钮"}
        Me.Controls.Add(b)

        AddHandler b.MouseMove, Sub(o As Object, arg As MouseEventArgs)
                                    If arg.Button = Windows.Forms.MouseButtons.Left Then
                                        b.Location = arg.Location
                                    End If
                                End Sub

    End Sub

End Class

[jiningyin]

加我的QQ 25524991，给你远程演示一下

[a80008a]

给个代码就行了，我参考一下，谢谢，二楼的方式，试了下，ARG是什么

[a80008a]

在线等呢，一定结

[wuyq11]

Sub AddButton(ByVal sender As Object, ByVal e As System.EventArgs)
Dim NewButton As New Button
Static Dim ButtonID As Integer = 0
ButtonID += 1
With NewButton
.Location = New Point(10, ButtonID * 40) 'New Point(Form1.Label1.Text, Form1.Label2.Text)

.Size = New System.Drawing.Size(79, 29)
.TabIndex = 0
.UseVisualStyleBackColor = True
.Name = "Button" & ButtonID 'TextBox1.Text
.Text = "Button" & ButtonID 'TextBox1.Text
'AddHandler .MouseDown, AddressOf _MouseDown '绑定事件处理程序
'AddHandler .MouseMove, AddressOf _MouseMove
'AddHandler .Click, AddressOf _Click '绑定事件处理程序

End With
Me.Controls.Add(NewButton) '添加进from
End Sub
Sub DelButton(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ButtonID As Integer
ButtonID = sender.Tag '获取标识
Dim NowButton As Button
NowButton = ButtonCollection("Button" & ButtonID) '获取button
RemoveHandler NowButton.Click, AddressOf DelButton '移除绑定事件
Me.Controls.Remove(NowButton) '删除按键
NowButton.Dispose() '销毁
End Sub

[youkiss_674]

想看看结果

[okv00]

Dim ct As Control For Each ct In me.Controls If TypeOf ct Is TextBox Then If ct.Name = ID Then me.Controls.Remove(ct) '删除按键 ct.Dispose() '销毁 End If End If Next