如何判断任意一个控件的任意一个属性是否存在？

aikill 2003-04-25 05:40:26

比如说有aaa控件，怎么才能判断aaa控件是否存在属性bbb(不要用on error)。

...全文

84 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2003-05-04

打赏
举报

有收获， Intelement(智能元素) 从哪里找到的资料，有枚举方法的吗？

Intelement 2003-05-04

打赏
举报

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_11167372.html

Search Keywords [vb check property exists]

MyLf 2003-05-03

打赏
举报

有收获

Intelement 2003-05-03

打赏
举报

是啊！
Agree to nik_Amis(Azrael)
右键单击 Object Browser
从弹出的快捷菜单里选择 Show Hidden Members

nik_Amis 2003-05-03

打赏
举报

Kivic(Kivic)

??那些属性差不到?
对象浏览器还可以差到隐藏的属性

Intelement 2003-05-03

打赏
举报

干杯吧！
兄弟们！

Intelement 2003-05-03

打赏
举报

网上找到的资料
======================================================================
This is how you can get a list of properties for an object or determine if a property exists for an object...

1) Add the "TypeLib Information" reference to your project. To do this, click "Project->References..." then select "TypeLib Information" (TLBINF32.DLL) from the reference list.

2) Add the following code to a MODULE:

'-------------------------------------------------------------------------------
Public Enum EPType
ReadableProperties = 2
WriteableProperties = 4
End Enum
Public Function EnumerateProperties(pObject As Object, pType As EPType) As Variant
Dim rArray() As String
Dim iVal As Long
Dim TypeLib As TLI.InterfaceInfo
Dim Prop As TLI.MemberInfo
On Error Resume Next
ReDim rArray(0) As String
Set TypeLib = TLI.InterfaceInfoFromObject(pObject)
For Each Prop In TypeLib.Members
If Prop.InvokeKind = pType Then
iVal = UBound(rArray)
rArray(iVal) = UCase$(Prop.Name)
ReDim Preserve rArray(iVal + 1) As String
End If
Next
ReDim Preserve rArray(UBound(rArray) - 1) As String
EnumerateProperties = rArray
End Function
Public Function DoesPropertyExist(pObject As Object, ByVal _
PropertyName As String, pType As EPType) As Boolean
Dim Item As Variant
PropertyName = UCase$(PropertyName)
For Each Item In EnumerateProperties(pObject, pType)
If Item = PropertyName Then
DoesPropertyExist = True
Exit For
End If
Next
End Function
'-------------------------------------------------------------------------------

Then you can do something like this:

If DoesPropertyExist(Command1, "Caption", ReadableProperties) = True Then
Debug.Print "YES"
Else
Debug.Print "NO"
End If

The above example will check if the Readable property "Caption" exists for the control "Command1"... In this case it will return true...

If DoesPropertyExist(Command1, "Text", ReadableProperties) = True Then
Debug.Print "YES"
Else
Debug.Print "NO"
End If

In the above example we're checking if the "Command1" object contains the readable property "Text".... It does not, so it will return false.

Cheers!.)

======================================================================

MyLf 2003-05-03