Question

VB编程高手进来……

我现在遇到一个问题，灰色按钮，
这类的按钮可以用诸如“灰色按钮克星”来使之激活，

灰色菜单也可以激活，

但是子菜单下的灰色菜单如何激活？

记住是，子菜单下的灰色菜单，先谢谢了

用软件改和用编程改都行，给出个方法就好，
我的QQ是151859501
我没有这个软件的源代码

Answer 1

考虑用 EnumChildWindows 枚举窗口控件

菜单和子菜单都是控件,应该会枚举出来

顺便给你一个代码

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long) As Long
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
Public Sub GoEnable(hWndParent As Long)
Dim hWndChild As Long
'hWndParent是要激活的窗口句柄
hWndChild = GetWindow(hWndParent, GW_CHILD Or GW_HWNDFIRST)

Do While hWndChild <> 0
EnableWindow hWndChild, 1
GoEnable hWndChild
hWndChild = GetWindow(hWndChild, GW_HWNDNEXT)
Loop
End Sub

如果枚举不出来可以用

GetMenu

VB声明
Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As Long
说明
取得窗口中一个菜单的句柄

以及

GetSubMenu

VB声明
Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu" (ByVal hMenu As Long, ByVal nPos As Long) As Long
说明
取得一个弹出式菜单的句柄，它位于菜单中指定的位置
返回值
Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
参数表
参数 类型及说明
hMenu Long，菜单的句柄
nPos Long，条目在菜单中的位置。第一个条目的编号为0

获得子菜单的句柄

Answer 2

这种要用VC解

Answer 3

用SetWindowLong把GWL_STYLE的值的WS_DISABLED去掉。。

Answer 4

'代码如下,测试通过
Private
Sub
Command1_Click()
Dim
a()
As
String
a
=
Split(Me.Text1.Text,
",")
Me.Text2.Text
=
(Int(a(0))
+
3)
&
","
&
(Int(a(1))
+
4)
End
Sub
请给分!