Uso dei Tags
'The use of tag
DECLARE SUB CheckBox1Click (Sender AS QCHECKBOX)
CREATE Form AS QFORM
Caption = "Form1"
Width = 637
Height = 484
Center
CREATE CheckBox1 AS QCHECKBOX
Caption = "CheckBox1"
Left = 64
Top = 64
Tag=1
OnClick = CheckBox1Click
END CREATE
CREATE CheckBox2 AS QCHECKBOX
Caption = "CheckBox2"
Left = 64
Top = 96
TabOrder = 1
Tag=2
OnClick = CheckBox1Click
END CREATE
CREATE CheckBox3 AS QCHECKBOX
Caption = "CheckBox3"
Left = 64 Top = 128
TabOrder = 2 Tag=3
OnClick = CheckBox1Click
END CREATE
CREATE CheckBox4 AS QCHECKBOX
Caption = "CheckBox4"
Left = 64
Top = 160
TabOrder = 3
OnClick = CheckBox1Click
END CREATE
CREATE CheckBox5 AS QCHECKBOX
Caption = "CheckBox5"
Left = 64
Top = 192
TabOrder = 4
OnClick = CheckBox1Click
END CREATE
END CREATE
Form.ShowModal
'--------- Subroutines ---------
SUB CheckBox1Click (Sender AS QCHECKBOX)
Showmessage str$(Sender.Tag)
Form.Caption=str$(Sender.Tag)
END SUB
|