ArgsOfActid |
|
Volver |
'*********************************************************
' En el siguiente ejemplo se utilizan dos
' métodos que son complementarios.
'
' Function NameFromActid(Actid As Long) As String
'
' Devuelve una cadena con el nombre de la acción de una
' macro.
'
' Argumentos:
' Actid: Valor Long que representa la acción que será
' "traducida"
'
' Function ArgsOfActid(Actid As Long) As Long
'
' Devuelve el número de argumentos de que dispone la
' acción de una macro
'
' Argumentos
' Actid: Valor Long que respresenta la acción de la cual
' se quiere averiguar el nº de argumentos
'
Sub wzNameAndArgsOfActid()
Dim wzActid As Integer
Dim NombreAccion As String
WizHook.Key = 51488399
' Los valores de las acciones están entre 1 y 62
For wzActid = 1 To 62
NombreAccion = WizHook.NameFromActid(wzActid)
If NombreAccion <> "" Then
Debug.Print "Acción: "; NombreAccion
Debug.Print "- nº argumentos: "; _
WizHook.ArgsOfActid(wzActid)
End If
Next
End Sub
'********************************************************* |
Contactar | Última actualización 21/9/2003 © Juan M. Afán deRibera |