Type | Description | |||
Button as Integer | An integer that identifies the button that was pressed to cause the event. | |||
Shift as Integer | An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys when the button specified in the button argument is pressed or released. | |||
X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in container coordinates. | |||
Y as OLE_YPOS_PIXELS | A single that specifies the current Y location of the mouse pointer. The y values is always expressed in container coordinates. |
private void MouseUpEvent(object sender,short Button,short Shift,int X,int Y) { } Private Sub MouseUpEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles MouseUpEvent End Sub |
private void MouseUpEvent(object sender, AxEXRECORDLib._IRecordEvents_MouseUpEvent e) { } void OnMouseUp(short Button,short Shift,long X,long Y) { } void __fastcall MouseUp(TObject *Sender,short Button,short Shift,int X,int Y) { } procedure MouseUp(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer); begin end; procedure MouseUpEvent(sender: System.Object; e: AxEXRECORDLib._IRecordEvents_MouseUpEvent); begin end; begin event MouseUp(integer Button,integer Shift,long X,long Y) end event MouseUp Private Sub MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXRECORDLib._IRecordEvents_MouseUpEvent) Handles MouseUpEvent End Sub Private Sub MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) End Sub Private Sub MouseUp(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) End Sub LPARAMETERS Button,Shift,X,Y PROCEDURE OnMouseUp(oRecord,Button,Shift,X,Y) RETURN |
<SCRIPT EVENT="MouseUp(Button,Shift,X,Y)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function MouseUp(Button,Shift,X,Y) End Function </SCRIPT> Procedure OnComMouseUp Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseUp llButton llShift llX llY End_Procedure METHOD OCX_MouseUp(Button,Shift,X,Y) CLASS MainDialog RETURN NIL void onEvent_MouseUp(int _Button,int _Shift,int _X,int _Y) { } function MouseUp as v (Button as N,Shift as N,X as OLE::Exontrol.Record.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Record.1::OLE_YPOS_PIXELS) end function function nativeObject_MouseUp(Button,Shift,X,Y) return |
The following VB sample displays a message when user right clicks the control:
Private Sub Record1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = vbRightButton) Then Dim e As EXRECORDLibCtl.Editor Set e = Record1.EditorFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY) If Not e Is Nothing Then MsgBox e.Label End If End If End Sub
The following VC sample displays a message when user right clicks the control:
void OnMouseUpRecord1(short Button, short Shift, long X, long Y) { if ( Button == 2 ) { CEditor editor = m_record.GetEditorFromPoint( X, Y ); if ( editor.m_lpDispatch != NULL ) { TCHAR szOutput[1024]; wsprintf( szOutput, "%s", (LPCTSTR)editor.GetLabel() ); ::MessageBox( NULL, szOutput, NULL, NULL ); } } }