-- JochenGeorges - 18 Dec 2004
STATIC PUBLIC SUB Main() DIM hForm AS Fmain hForm = NEW Fmain hForm.show END PUBLIC SUB Button1_Click() DIM word AS String word = "" IF CheckBox1.value = TRUE THEN word = word & "1, " END IF IF CheckBox2.value = TRUE THEN word = word & "2, " END IF IF CheckBox3.value = TRUE THEN word = word & "3" END IF Label1.Text = word END
Attachment: | Action: | Size: | Date: | Who: | Comment: |
---|---|---|---|---|---|
![]() | action | 3469 | 18 Dec 2004 - 13:30 | JochenGeorges | |
![]() | action | 1533 | 18 Dec 2004 - 13:30 | JochenGeorges |