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

下列示例获得 对象Oval1的数目和相应的方法列表。

Dim strMsg As String

Dim pvMethods As Variant

Dim iNumMethods As Integer

Oval1.ListMethods pvMethods, iNumMethods

strMsg = "This object has the following Methods: "

For Each i In pvMethods

   strMsg = strMsg + i + ","

  Next

MsgBox strMsg, vbOKOnly, "Message"