求救ＶＢ隐藏显示窗口的问题

zjh7272

声明部分
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

代码部分
Private Sub Command4_Click()
If Command4.Caption = "隐藏游戏" Then
ShowWindow hwd, SW_Hide
Command4.Caption = "显示游戏"
Else
ShowWindow hwd, SW_Show
Command4.Caption = "隐藏游戏"
End If
End Sub

各位大侠
为什么我建立的程序可以隐藏窗口
但是无法显示窗口呢
本人才学ＶＢ
求高手指点

wojoo

加个检测窗口   
Private Sub Command4_Click()
Dim hWnd As Long ' 储存 FindWindow 函数返回的句柄
hWnd = FindWindow("ElementClient Window", TxtJC1.Text)
If hWnd = 0 Then
Else
If Command4.Caption = "隐藏游戏" Then
ShowWindow hwd, SW_Hide
Command4.Caption = "显示游戏"
Else
ShowWindow hwd, SW_Show
Command4.Caption = "隐藏游戏"
End If
End Sub
大概是这样 自己是ok的