求助:关于VB6.0 的问题

[wqq20040412]

我昨天看到一个程序,能够将其它程序中隐藏的控件显示出来!谁知道如何用VB6.0的代码实现这种功能?

[cheng_fengming]

直接将控件的 visible属性设置为true就可以了啊

[hwbsmzy]

很简单,找到控件的句柄后,EnableWindow一下

[x_ch]

关键是句柄

[josephSC]

visable = true

[wqq20040412]

如果用
visable =true
这是不能用的
因是捕获另外别的程序,并不是自身的程序,如果自身的程序用visable 这句是绝对可以,不过捕获别的程序就用不上了

[wqq20040412]

找EnableWindow句柄容易,
API函数用下面一句可以捕获
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal ccc As Long) As Long
但是,想捕获其它程序中隐藏的控件显示出来,只用找EnableWindow句柄也不是办法

[Phoxe_bai]

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal ccc As Long) As Long

[wen3988]

这个代码参考一下:
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Any) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
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 Declare Function GetForegroundWindow Lib "user32" () As Long

看能否得到一此好的帮助??
有结果告诉我!