Type | Description | |||
Button as String | A string expression that indicates the name of the being clicked. The Button parameter does not include the HTML format. | |||
Cancel as Variant | (By Reference) A boolean expression that indicates whether the default operation is executed or canceled. |
private void ClickButton(object sender,string Button,ref object Cancel) { } Private Sub ClickButton(ByVal sender As System.Object,ByVal Button As String,ByRef Cancel As Object) Handles ClickButton End Sub |
private void ClickButton(object sender, AxEXCALCLib._ICalcComboEvents_ClickButtonEvent e) { } void OnClickButton(LPCTSTR Button,VARIANT FAR* Cancel) { } void __fastcall ClickButton(TObject *Sender,BSTR Button,Variant * Cancel) { } procedure ClickButton(ASender: TObject; Button : WideString;var Cancel : OleVariant); begin end; procedure ClickButton(sender: System.Object; e: AxEXCALCLib._ICalcComboEvents_ClickButtonEvent); begin end; begin event ClickButton(string Button,any Cancel) end event ClickButton Private Sub ClickButton(ByVal sender As System.Object, ByVal e As AxEXCALCLib._ICalcComboEvents_ClickButtonEvent) Handles ClickButton End Sub Private Sub ClickButton(ByVal Button As String,Cancel As Variant) End Sub Private Sub ClickButton(ByVal Button As String,Cancel As Variant) End Sub LPARAMETERS Button,Cancel PROCEDURE OnClickButton(oCalc,Button,Cancel) RETURN |
<SCRIPT EVENT="ClickButton(Button,Cancel)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function ClickButton(Button,Cancel) End Function </SCRIPT> Procedure OnComClickButton String llButton Variant llCancel Forward Send OnComClickButton llButton llCancel End_Procedure METHOD OCX_ClickButton(Button,Cancel) CLASS MainDialog RETURN NIL void onEvent_ClickButton(str _Button,COMVariant /*variant*/ _Cancel) { } function ClickButton as v (Button as C,Cancel as A) end function function nativeObject_ClickButton(Button,Cancel) return |
The following sample adds a new button 'sin' and execute the trigonometric sin function when 'sin' button is clicked:
Private Sub Form_Load() With Calc1 .Buttons = .Buttons + vbCrLf + "<b>sin<b>" End With End Sub
Private Sub Calc1_ClickButton(ByVal Button As String, Cancel As Variant) If (Button = "sin") Then With Calc1 .Execute Sin(.Caption) End With End If End Sub