AuthenticView.OnBeforeDrop
Siehe auch
Event: OnBeforeDrop (i_nXPos als Long, i_nYPos als Long, i_ipRange als AuthenticRange, i_ipData als cancelBoolean
XMLSpy Skripting-Umgebung - VBScript:
Function On_AuthenticBeforeDrop(nXPos, nYPos, objRange, objData)
' On_AuthenticBeforeDrop = False ' to disable operation
End Function
XMLSpy Skripting-Umgebung - JScript:
function On_AuthenticBeforeDrop(nXPos, nYPos, objRange, objData)
{
// return false; /* to disable operation */
}
XMLSpy 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