Altova XMLSpy 2024 Professional Edition

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

© 2017-2023 Altova GmbH