ObjectVerbsCount 屬性

全部顯示

使用 Visual Basic 中的 ObjectVerbsCount 屬性可以確定 OLE 對(duì)象所支持的動(dòng)詞數(shù)目。Long 型，可讀寫。

expression.ObjectVerbsCount

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

ObjectVerbsCount 屬性設(shè)置用于指定 ObjectVerbs 屬性數(shù)組中的元素?cái)?shù)目。

該屬性設(shè)置在“設(shè)計(jì)”視圖中不可用。

根據(jù)對(duì)象狀態(tài)的不同，OLE 對(duì)象支持的動(dòng)詞列表是變化的。如果要更新所支持的動(dòng)詞列表，請(qǐng)將控件的 Action 屬性設(shè)為 acOLEFetchVerbs。

示例

下面的示例將返回 OLE1 控件中的 OLE 對(duì)象所支持的動(dòng)詞，并在消息框中顯示每個(gè)動(dòng)詞。

Sub GetVerbList(frm As Form, OLE1 As Control)

    Dim intX As Integer, intNumVerbs As Integer

    Dim strVerbList As String

    ' Update verb list.

    With frm!OLE1

        .Action = acOLEFetchVerbs

        intNumVerbs = .ObjectVerbsCount

        For intX = 0 To intNumVerbs - 1

            strVerbList = strVerbList & .ObjectVerbs(intX) & "; "

        Next intX

    End With

    ' Display verbs in message box.

    MsgBox Left(strVerbList, Len(strVerbList) - 2)

End Sub