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

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

Синтаксис

выражение. ObjectVerbs (индекс)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	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 и обратная связь.