200分求：如何取得对象的（enable）与（visible）的状态？

Question

已知该对象的句柄，如何取得对象的（enable）与（visible）的状态？就是该对象是否“可用”或是否“可见”？？？

Answer 1

Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Command1_Click()
    MsgBox IsWindowEnabled(Text1.hwnd)    Text1.Enabled = False
    MsgBox IsWindowEnabled(Text1.hwnd)    MsgBox IsWindowVisible(Text1.hwnd)    Text1.Visible = False
    MsgBox IsWindowVisible(Text1.hwnd)
End Sub

Answer 2

建议写个函数，入口参数是句柄，以对象类型返回。这样就可以直接引用这些属性了。
方法嘛，就用遍历吧，如果对象不是特别多的话。
这样一了百了。 不用对每个属性都要找对应的api实现了。