Altova Authentic 2024 Browser Edition

Siehe auch

 

Event: OnDragOver (nXPos als Long, nYPos als Long, eMouseEvent als SPYMouseEvent, objRange als AuthenticRange, objData als AuthenticDataTransfer) als Boolean

 

XMLSpy Skripting-Umgebung - VBScript:

Function On_AuthenticDragOver(nXPos, nYPos, eMouseEvent, objRange, objData)

 ' On_AuthenticDragOver = False  ' to disable operation

End Function

 

XMLSpy Skripting-Umgebung - JScript:

function On_AuthenticDragOver(nXPos, nYPos, eMouseEvent, objRange, objData)

{

 // return false;  /* to disable operation */

}

 

XMLSpy IDE Plugin:

IXMLSpyPlugIn.OnEvent (10, ...)        // nEventId = 10

 

Beschreibung

Dieses Event wird ausgelöst, wenn ein Objekt, von innerhalb oder außerhalb der Authentic-Ansicht mit der Maus über das Applikationsfenster gezogen wird. Alle mit dem Event in Zusammenhang stehenden Informationen werden als Parameter übergeben.

 

Die ersten drei Parameter definieren die Mausposition, den Status der Maustaste und den Status virtueller Schaltflächen zum Zeitpunkt, zu dem das Event auftritt. 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 Drag-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 OnDragOver

' event of object objView

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

                                  ByVal i_eMouseEvent As SPYMouseEvent,

                                  ByVal i_ipRange As IAuthenticRange,

                                  ByVal i_ipData As IAuthenticDataTransfer) As Boolean

 

  If (((i_eMouseEvent And spyShiftKeyDownMask) <> 0) And

              (Not i_ipRange Is Nothing)) Then

       MsgBox ("Floating over element " & i_ipRange.FirstXMLData.Parent.Name);

  End If

 

  Return True;

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

 

© 2018-2024 Altova GmbH