Access VBA教程:ObjectVerbs属性

使用 Visual Basic 中的 ObjectVerbs属性可以确定OLE对象所支持的动词的列表。String 型,只读。

expression.ObjectVerbs(Index)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

Index  必需 Long 型。所支持的动词数组中的元素。是一个从零开始的索引,零 (0) 表示数组中的第一个动词,一 (1) 表示数组中的第二个动词,依此类推。

说明

该属性设置在“设计”视图中不可用。

同时使用 ObjectVerbs属性与ObjectVerbsCount属性可以显示 OLE对象所支持的动词的列表。Verb属性用该动词列表确定在激活 OLE对象时(当Action属性设为 acOLEActivate 时)应该执行的操作。

Verb属性设置是 ObjectVerbs属性返回的动词列表中特定动词的位置。例如,1 指定列表中的第一个动词(Visual Basic 的命令ObjectVerbs(0),或 ObjectVerbs属性数组中的第一个动词),2 指定在列表中的第二个动词(Visual Basic 的命令ObjectVerbs(1),或 ObjectVerbs属性数组中的第二个动词),依此类推。

在 ObjectVerbs属性数组中由 Visual Basic 的命令ObjectVerbs(0)调用的第一个动词是默认动词。如果还未设置 Verb属性,则在激活 OLE对象时,将由这个动词来指定要执行的操作。

支持 OLE对象的应用程序通常在“编辑”菜单中包含“对象”命令。当用户指向“对象”命令时,子菜单将显示该对象的动词。使用 ObjectVerbs 和 ObjectVerbsCount属性可以指定在窗体或报表中显示动词列表,而不是在菜单中显示。

根据对象状态的不同,对象支持的动词列表是变化的。如果要更新对象所支持的动词列表,请将控件的 Action属性设为 acOLEFetchVerbs。在将动词列表提供给用户之前,请确定已更新过。

VBA示例

下面的示例将返回 OLE1 控件中的 OLE对象所支持的动词,并在消息框中显示每个动词。


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

上页:Access VBA教程:Object属性 下页:Access VBA教程:ObjectVerbsCount属性

Access VBA教程:ObjectVerbs属性

Access VBA教程:ObjectVerbsCount属性 Access VBA教程:ODBCConnectStr属性
Access VBA教程:OldBorderStyle属性 Access VBA教程:OldValue属性
Access VBA教程:OLEClass属性 Access VBA教程:OLEData属性
Access VBA教程:OLEType属性 Access VBA教程:OLETypeAllowed属性
Access VBA教程:OnActivate属性 Access VBA教程:OnApplyFilter属性
Access VBA教程:OnChange属性 Access VBA教程:OnClick属性
Access VBA教程:OnClose属性 Access VBA教程:OnConnect属性
Access VBA教程:OnCurrent属性 Access VBA教程:OnDblClick属性
Access VBA教程:OnDeactivate属性 Access VBA教程:OnDelete属性
Access VBA教程:OnDirty属性 Access VBA教程:OnDisconnect属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号