

| 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