Propiedad BoundObjectFrame.ObjectVerbs (Access)

Use la propiedad ObjectVerbs en Visual Basic para determinar la lista de verbos que admite un objeto OLE. String de solo lectura.

Sintaxis

expresión. ObjectVerbs (Index)

Expresión Variable que representa un objeto BoundObjectFrame .

Parameters

Comentarios

Este valor de propiedad no está disponible en la vista Diseño.

Utilice la propiedad ObjectVerbs con la propiedad ObjectVerbsCount para mostrar una lista de los verbos admitidos por un objeto OLE. La propiedad ObjectVerbs usa esta lista de verbos para determinar qué operación realizar cuando se activa un objeto OLE (cuando la propiedad Action se establece en acOLEActivate).

El valor de la propiedad Verb es la posición de un verbo determinado en la lista de verbos devuelta por la propiedad ObjectVerbs. Por ejemplo, 1 especifica el primer verbo de la lista (el comando de Visual Basic ObjectVerbs(0) o el primer verbo de la matriz de la propiedad ObjectVerbs), 2 especifica el segundo verbo de la lista (el comando de Visual Basic ObjectVerbs(1) o el segundo verbo de la matriz de la propiedad ObjectVerbs), etc.

El primer verbo de la matriz de la propiedad ObjectVerbs, que se llama con el comando ObjectVerbs(0) de Visual Basic, es el verbo predeterminado. Si no se ha establecido la propiedad Verb, este verbo especifica la operación que se realiza cuando se activa el objeto OLE.

La lista de verbos que admite un objeto varía en función del estado del objeto. Para actualizar la lista de verbos que admite un objeto, establezca la propiedad Action del control en acOLEFetchVerbs. Asegúrese de actualizar la lista de verbos antes de presentarla al usuario.

Ejemplo:

En el siguiente ejemplo, se devuelven los verbos admitidos por el objeto OLE en el control OLE1 y se muestra cada verbo en un cuadro de mensaje.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.