看流星社区 › 其它编程技术 › 求救ＶＢ隐藏显示窗口的问题

zjh7272 发表于 2011-4-7 07:26:56

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

声明部分
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 发表于 2011-4-7 07:27:12

加个检测窗口   
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的

查看完整版本: 求救ＶＢ隐藏显示窗口的问题