AuthenticView.OnBeforeDrop

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Referenz für Programmierer > Applikations-API > Schnittstellen > AuthenticView > Events >

AuthenticView.OnBeforeDrop

Siehe auch

 

Event: OnBeforeDrop (i_nXPos als Long, i_nYPos als Long, i_ipRange als AuthenticRange, i_ipData als 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)

Dim objSpy As XMLSpyLib.Application

Set objSpy = GetObject("", "XMLSpy.Application")

 

' this is the event callback routine connected to the OnBeforeDrop

' event of object objView

Private Function objView_OnBeforeDrop(ByVal i_nXPos As Long, ByVal i_nYPos As Long,

                                    ByVal i_ipRange As IAuthenticRange,

                                    ByVal i_ipData As IAuthenticDataTransfer) As Boolean

 

  If (Not i_ipRange Is Nothing) Then

       MsgBox ("Dropping on content is prohibited");

      Return False;

  Else

      Return True;

  End If

End Function

 

' use VBA keyword WithEvents to connect to object-level event

Dim WithEvents objView As XMLSpyLib.AuthenticView

Set objView = objSpy.ActiveDocument.AuthenticView

 

' continue here with something useful ...

' and serve the windows message loop


© 2019 Altova GmbH