IXMLSpyPlugIn.OnUpdateCommand
Declaración: OnUpdateCommand(nID as long, pXMLSpy as IDispatch) as SPYUpdateAction
Descripción
Al método OnUpdateCommand() se le llama cada vez que se debe establecer el estado visible de un botón o de un comando de menú. nID almacena el ID del comando definido por el elemento ID del correspondiente elemento UIElement
pXMLSpy almacena una referencia a la interfaz de envío del objeto Application.
Los valores devueltos posibles para establecer el estado de actualización son:
| spyEnable | = 1 |
| spyDisable | = 2 |
| spyCheck | = 4 |
| spyUncheck | = 8 |
Ejemplo
Public Function IXMLSpyPlugIn_OnUpdateCommand(ByVal nID As Long, ByVal pXMLSpy As Object) As SPYUpdateAction
IXMLSpyPlugIn_OnUpdateCommand = spyDisable
If (Not (pXMLSpy Is Nothing)) Then
Dim objSpy As XMLSpyLib.Application
Set objSpy = pXMLSpy
If nID = 3 Or nID = 5 Then
IXMLSpyPlugIn_OnUpdateCommand = spyEnable
End If
If nID = 4 Or nID = 6 Then
If objSpy.Documents.Count > 0 Then
IXMLSpyPlugIn_OnUpdateCommand = spyEnable
Else
IXMLSpyPlugIn_OnUpdateCommand = spyDisable
End If
End If
End If
End Function