Type | Description |
private void Change(object sender) { } Private Sub Change(ByVal sender As System.Object) Handles Change End Sub |
private void Change(object sender, EventArgs e) { } void OnChange() { } void __fastcall Change(TObject *Sender) { } procedure Change(ASender: TObject; ); begin end; procedure Change(sender: System.Object; e: System.EventArgs); begin end; begin event Change() end event Change Private Sub Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Change End Sub Private Sub Change() End Sub Private Sub Change() End Sub LPARAMETERS nop PROCEDURE OnChange(oCalc) RETURN |
<SCRIPT EVENT="Change()" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Change() End Function </SCRIPT> Procedure OnComChange Forward Send OnComChange End_Procedure METHOD OCX_Change() CLASS MainDialog RETURN NIL void onEvent_Change() { } function Change as v () end function function nativeObject_Change() return |
The following sample displays the control's caption as soon as user types characters in the control:
Private Sub Calc1_Change() With Calc1 Debug.Print .Caption End With End Sub
The following sample displays a different format for the control's label:
Private Sub Calc1_Change() With Calc1 .Caption = "<sha ;;0><b>" & .Caption End With End Sub
The following sample displays a different format for the control's label, when negative numbers are displayed
Private Sub Calc1_Change() With Calc1 Dim format As String format = "<sha ;;0><b>" If (.Caption < 0) Then format = format & "<fgcolor FF0000>" End If .Caption = format & .Caption End With End Sub