Propriedade CustomControl.ObjectVerbs (Access)

Use a propriedade ObjectVerbs no Visual Basic para determinar a lista de verbos compatíveis com um objeto OLE. String somente leitura.

Sintaxe

expressão. ObjectVerbs (Index)

Expressão Uma variável que representa um objeto CustomControl .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	Um elemento na matriz de verbos para os quais há suporte. É um índice baseado em zero, indicando que zero (0) representa o primeiro verbo na matriz, um (1) representa o segundo verbo na matriz e assim por diante.

Comentários

Essa configuração da propriedade não está disponível no modo de design.

Use a propriedade ObjectVerbs com a propriedade ObjectVerbsCount para exibir uma lista dos verbos com suporte por um objeto OLE. A propriedade ObjectVerbs usa essa lista de verbos para determinar qual operação executar quando um objeto OLE é ativado (quando a propriedade Action é definida como acOLEActivate).

A configuração da propriedade verbo é a posição de um determinado verbo na lista de verbos retornados pela propriedade ObjectVerbs. Por exemplo, 1 especifica o primeiro verbo da lista (o comando ObjectVerbs(0) do Visual Basic, ou o primeiro verbo na matriz de propriedades ObjectVerbs), 2 especifica o segundo verbo da lista (o comando ObjectVerbs(1) do Visual Basic ou o segundo verbo na matriz de propriedades ObjectVerbs) e assim por diante.

O primeiro verbo na matriz de propriedades ObjectVerbs, chamado pelo comando ObjectVerbs(0) do Visual Basic, é o verbo padrão. Se a propriedade verbo não foi definida, esse verbo especificará a operação é executada quando o objeto OLE é ativado.

A lista de verbos que um objeto oferece suporte varia, dependendo do estado do objeto. Para atualizar a lista de verbos compatíveis com um objeto, defina a propriedade Action do controle como acOLEFetchVerbs. Certifique-se de atualizar a lista de verbos antes de apresentá-la ao usuário.

Exemplo

O exemplo a seguir retorna os verbos para os quais o objeto OLE oferece suporte no controle de OLE1 e exibe cada verbo em uma caixa de mensagem.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.