Question

VB.NET如何用代码的方式添加按钮

Answer 1

Friend WithEvents Button1 As New System.Windows.Forms.Button //这一行很重要
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(Button1)
        Button1.Location = New System.Drawing.Point(76, 186)
        Button1.Name = "Button1"
        Button1.Size = New System.Drawing.Size(75, 23)
        Button1.TabIndex = 2
        Button1.Text = "Button1"
        Button1.UseVisualStyleBackColor = True
    End Sub
    
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = "Hello,World!"
    End Sub