' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' 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



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb