建立工程: 1. 添加窗体 Form2 2. 添加Command1到Form1 以下为Form1代码: --------------------------Private Sub Form_Load() Form2.Show End SubPrivate Sub Command1_Click() Unload Form2 End Sub
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_CLOSE = &H10'''''''''''''''''''''''''''''''''''''''''''''' hwnd = FindWindow(vbNullString, 窗体的名字)Call SendMessage(hwnd, WM_CLOSE, 0, ByVal 0&)
1. 添加窗体 Form2
2. 添加Command1到Form1
以下为Form1代码:
--------------------------Private Sub Form_Load()
Form2.Show
End SubPrivate Sub Command1_Click()
Unload Form2
End Sub
如果是你自己应用程序的窗体的话,那用unload form(form是你要关闭的窗口的Name)就可以了.当然,你也可以用form.visable = false来隐藏它,以达到关闭的效果,不过,Form仍然会驻留在内存.
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10''''''''''''''''''''''''''''''''''''''''''''''
hwnd = FindWindow(vbNullString, 窗体的名字)Call SendMessage(hwnd, WM_CLOSE, 0, ByVal 0&)
SendMessage(hwnd, WM_CLOSE, 0, ByVal 0&)