Propriedade Control.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 Control .
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.