VB.NET 窗體操作
Private Sub A1()
'加载窗体
frm1.Show()
End Sub
Private Sub A2()
'離開
Process.GetCurrentProcess().Kill()
End Sub
Private Sub A3()
'卸载窗体
Me.Close()
End Sub
Private Sub A4()
Dim frm1 As Form1
'確認窗体是否已開啟
If frm1 Is Nothing OrElse frm1.IsDisposed Then
frm1 = New Form1
frm1.Show()
Else
frm1.Activate()
End If
'窗体間傳值
frm1.TextBox1.Text = Me.TextBox1.Text
End Sub