Свойство Control.ObjectVerbs (Access)

Статья
04/07/2023

Используйте свойство ObjectVerbs в Visual Basic, чтобы определить список глаголов, поддерживаемых объектом OLE. Только для чтения, String.

Синтаксис

expression. ObjectVerbs (Индекс)

Выражение Переменная, представляющая объект Control .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Элемент в массиве поддерживаемых глаголов. Это отсчитываемый от нуля индекс, то есть нуль (0) представляет первую команду в массиве, один (1) представляет вторую команду в массиве и т. д.

Замечания

Этот параметр свойства недоступен в режиме конструктора.

Используйте свойство ObjectVerbs со свойством ObjectVerbsCount , чтобы отобразить список глаголов, поддерживаемых объектом OLE. Свойство ObjectVerbs использует этот список глаголов, чтобы определить, какую операцию следует выполнить при активации объекта OLE (если свойству Action присвоено значение acOLEActivate).

Параметр свойства Verb — это позиция конкретной глаголы в списке глаголов, возвращаемых свойством ObjectVerbs . Например, 1 задает первую команду в списке (команда Visual Basic ObjectVerbs(0) или первую команду в массиве свойств ObjectVerbs ), 2 — вторую команду в списке (команда Visual Basic ObjectVerbs(1) или вторую команду в массиве свойств ObjectVerbs ) и т. д.

Первая глагола в массиве свойств ObjectVerbs , вызываемая командой Visual Basic ObjectVerbs(0), является командой по умолчанию. Если свойство Verb не задано, этот глагол указывает операцию, выполняемую при активации объекта OLE.

Список глаголов, поддерживаемых объектом, зависит от состояния объекта. Чтобы обновить список глаголов, поддерживаемых объектом, задайте для свойства Action элемента управления значение acOLEFetchVerbs. Обязательно обновите список глаголов, прежде чем представить его пользователю.

Пример

В следующем примере возвращаются глаголы, поддерживаемые объектом OLE в элементе управления OLE1, и каждая команда отображается в окне сообщения.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через