-- JochenGeorges - 18 Dec 2004

Как сделать панели выбора (checkboxes)

checkboxes могут быть марикрованные или нет.
Они организованы в группы.
Маркироваться может больше одного.
В этом разница между checkboxes и radiobuttons.

Программа

checkboxes.png

Код:

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:
checkboxes.png action 3469 18 Dec 2004 - 13:30 JochenGeorges  
src-checkboxes.tgz action 1533 18 Dec 2004 - 13:30 JochenGeorges