OnDragOver

www.altova.com このトピックを印刷 前のページ 1つ上のレベル 次のページ

ホーム >  ユーザー レファレンス > オブジェクト > AuthenticView > Events >

OnDragOver

イベント: OnDragOver (nXPos long として、 nYPos long として、 eMouseEvent  を SPYMouseEvent として、 objRange  を AuthenticRange として、 objData AuthenticDataTransfer として) をブール値として

 

XMLSpy スクリプト環境 - VBScript:

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

 ' On_AuthenticDragOver = False  ' to disable operation

End Function

 

XMLSpy スクリプト環境 - JScript:

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

{

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

}

 

XMLSpy IDE プラグイン:

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

 

説明

このイベントはアプリケーションウィンドウに Authentic View の外のオブジェクトがマウスオーバーによりドラッグされるとトリガーされます。イベントに関連する全ての情報はパラメーターにパスされます。

 

イベントが発生する際に、最初の3つのパラメーターはマウスの場所、マウスボタンの状態と仮想キーの状態を指定します。  パラメーター objRange はマウスの場所の下の要素を選択する範囲オブジェクトにパスします。 このパラメーターの値は NULL である可能性があります。 範囲オブジェクトにアクセスする前に確認してください。 パラメーター objData によりドラッグされレイルオブジェクトの情報へのアクセスが許可されます。

 

ドラッグオペレーションをキャンセルするために False を返します。 通常の操作を続行するために True を返します(または、何も返しません)。

 

サンプル

' ----------------------------------------------------------------------------

' 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

 


(C) 2019 Altova GmbH