Type | Description |
private void RClick(object sender) { } Private Sub RClick(ByVal sender As System.Object) Handles RClick End Sub |
private void RClick(object sender, EventArgs e) { } void OnRClick() { } void __fastcall RClick(TObject *Sender) { } procedure RClick(ASender: TObject; ); begin end; procedure RClick(sender: System.Object; e: System.EventArgs); begin end; begin event RClick() end event RClick Private Sub RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RClick End Sub Private Sub RClick() End Sub Private Sub RClick() End Sub LPARAMETERS nop PROCEDURE OnRClick(oRecord) RETURN |
<SCRIPT EVENT="RClick()" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function RClick() End Function </SCRIPT> Procedure OnComRClick Forward Send OnComRClick End_Procedure METHOD OCX_RClick() CLASS MainDialog RETURN NIL void onEvent_RClick() { } function RClick as v () end function function nativeObject_RClick() 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 ); } } }