Form Object 建立 及 Event 控制 |
Public Class Test1 Private B1 As New Button Private L1 As New Label Private Sub Test1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load B1.Location = New Point(30, 20) B1.Size = New System.Drawing.Size(120, 20) B1.Text = "Submit" AddHandler B1.Click, AddressOf B1_Click L1.Location = New Point(30, 40) L1.Text = "Before Press" Me.Controls.Add(B1) Me.Controls.Add(L1) End Sub Private Sub B1_Click() L1.Text = "After Press" End Sub End Class |