干脆把我前几天做的一个老板键给你,把邮箱留下,那个比你说的强多了
'下面是你要的
Private Declare Function ShowWindowAsync Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Private Sub Command1_Click()
ShowhWnd text1.text,false
End Sub
Private Sub Command2_Click()
ShowhWnd text1.text,true
End Sub
Public Sub ShowhWnd(strTitle As String, Show As Boolean)
Dim hFirst As Long
hFirst = FindWindow(0&, strTitle)
Do While hFirst <> 0
ShowWindowAsync hFirst, IIf(Show, SW_SHOW, SW_HIDE)
hFirst = FindWindowEx(0&, hFirst, vbNullString, strTitle)
Loop
End Sub
'改了,sorry,忘记加常量SW_SHOW、SW_HIDE了
温馨提示:内容为网友见解,仅供参考