如何检测一个按纽的ENABLE值？

Question

假如知道按纽的句柄，求它当前的ENABLE是TRUE还是FALSE？

Answer 1

Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hwnd As Long) As LongEnable = IsWindowEnabled(Command1.hwnd)

Answer 2

'窗体上放两个按钮，添加代码如下：
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Long) As LongPrivate Sub Form_Load()
    Command2.Enabled = False
End SubPrivate Sub Command1_Click()
    Dim hWnd As Long
    hWnd = Command2.hWnd
    Debug.Print CBool(IsWindowEnabled(hWnd))
    Debug.Print CBool(IsWindowEnabled(Command1.hWnd))
End Sub

Answer 3

不用API自己写个函数判断不就成了？

Answer 4

一楼和二楼的很好，楼上说自己写，用API吗？