Question

VB6 隐藏窗体

Plugin Hwnd=Window.find(0,"地下城与勇士")
Plugin Window.Hide(Hwnd)
Plugin Window.Restore(Hwnd)
以上代码可以在按键精灵中实现:得到DNF窗口的句柄,并且隐藏和恢复DNF窗口
请问在vb6中有没有类似Plugin Window.Hide(hwnd)和
Plugin Window.Restore(hwnd)的函数用来隐藏指定句柄的窗体?
如果有的话请给出例子(我想利用这种函数自己做DNF双开工具的,小弟vb菜鸟,请达人指教...)
1L,我的意思是,已知一个窗口(例如DNF)的句柄,隐藏DNF窗口..实在不理解的话,你可以去下载一个按键精灵,用我上面的代码试试效果..

Answer 1

有。方法太多了，可以用api，api中的方法有太多了，又可以用Windows的消息处理机制、窗口处理机制等等。
这里给你一个最简单的例子吧（简单，我最喜欢的方法）：
'API声明代码：
Public Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40

'控件事件中代码：
SetWindowPos <dnf句柄>, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_HIDEWINDOW' 此代码实现隐藏dnf

SetWindowPos <dnf句柄>, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW' 此代码实现显示dnf

好了，试试吧，不会再问我。
另外，dnf现在还玩啊？呵呵

Answer 2

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
If Form1.Visible = False Then
Form1.Visible = True
Else
Form1.Visible = False
End If
End If
End Sub