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