-- 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 |