AuthenticView.OnBeforeDrop
Event: OnBeforeDrop (i_nXPosals Long,i_nYPosals Long,i_ipRange als AuthenticRange, i_ipDataals cancelBoolean
Skripting-Umgebung - VBScript:
Function On_AuthenticBeforeDrop(nXPos, nYPos, objRange, objData)
' On_AuthenticBeforeDrop = False ' to disable operation
End Function
Skripting-Umgebung - JScript:
function On_AuthenticBeforeDrop(nXPos, nYPos, objRange, objData)
{
// return false; /* to disable operation */
}
IDE Plugin:
IXMLSpyPlugIn.OnEvent(11, ...) // nEventId = 11
Beschreibung
Dieses Event wird ausgelöst, nachdem ein Objekt mit der Maus in das Applikationsfenster gezogen wurde. Alle mit dem Event in Zusammehang stehenden Informationen werden als Parameter übergeben.
Die ersten beiden Parameter definieren die Mausposition zum Zeitpunkt des Auftretens des Event. Der Parameter objRange übergibt ein Bereichsobjekt, das das XML-Element unterhalb der Mausposition auswählt. Der Wert dieses Parameters kann NULL sein. Überprüfen Sie dies, bevor Sie das Bereichsobjekt aufrufen. Mit Hilfe des Parameters objData können Sie Informationen über das gezogene Objekt aufrufen.
Geben Sie False zurück, um den Drop-Vorgang abzubrechen. Geben Sie True (oder nichts) zurück, um mit einem normalen Vorgang fortzusetzen.
Beispiele
' ----------------------------------------------------------------------------
' VB code snippet - connecting to object level events
' ----------------------------------------------------------------------------
' access XMLSpy (without checking for any errors)
DimobjSpy AsXMLSpyLib.Application
SetobjSpy = GetObject("", "XMLSpy.Application")
' this is the event callback routine connected to the OnBeforeDrop
' event of object objView
PrivateFunctionobjView_OnBeforeDrop(ByVali_nXPos AsLong, ByVali_nYPos AsLong,
ByVali_ipRange AsIAuthenticRange,
ByVali_ipData AsIAuthenticDataTransfer) AsBoolean
If(Noti_ipRange Is Nothing) Then
MsgBox ("Dropping on content is prohibited");
ReturnFalse;
Else
ReturnTrue;
EndIf
EndFunction
' use VBA keyword WithEvents to connect to object-level event
DimWithEvents objView AsXMLSpyLib.AuthenticView
SetobjView = objSpy.ActiveDocument.AuthenticView
' continue here with something useful ...
' and serve the windows message loop