FindWindow函数查找窗口句柄 ShowWindow函数隐藏/显示窗口例子: 假设有个窗体,类名为TestWindow,标题为"测试窗口" 则写代码:Dim hWndSearch As Long hWndSearch = FindWindow("TestWindow", "测试窗口") '如果类名或者标题只知道其中之一,则另外一个参数可以写vbNullString If hWndSearch Then Call ShowWindow(hWndSearch, 0) 我这里没有装VB,API声明自己找吧
ShowWindow函数中第二个参数写0的话是显示窗口 隐藏窗口的话自己找找SW_开头的常量吧~
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const SW_HIDE = 0 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Command1_Click() Dim r As Long r = FindWindow(vbNullString, "计算器") ShowWindow r, SW_HIDE End Sub
ShowWindow函数隐藏/显示窗口例子:
假设有个窗体,类名为TestWindow,标题为"测试窗口"
则写代码:Dim hWndSearch As Long
hWndSearch = FindWindow("TestWindow", "测试窗口")
'如果类名或者标题只知道其中之一,则另外一个参数可以写vbNullString
If hWndSearch Then Call ShowWindow(hWndSearch, 0)
我这里没有装VB,API声明自己找吧
隐藏窗口的话自己找找SW_开头的常量吧~
Private Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
Dim r As Long
r = FindWindow(vbNullString, "计算器")
ShowWindow r, SW_HIDE
End Sub