ListProperties方法示例
2015-12-15 22:24:30   来源：   评论：0 点击：

下列示例获得 对象Oval1的数目、相应的属性列表及其数据类型。

Dim strMsg As String

Dim pvProperties As Variant

Dim pvDataTypes As Variant

Dim iNumProps As Integer

Oval1.ListProperties pvProperties, pvDataTypes, iNumProps

strMsg = "This object has the following Properties: "

For Each i In pvProperties

   strMsg = strMsg + i + ","

  Next

MsgBox strMsg, vbOKOnly, "Message"