极客教程Tk 选择小部件
选择小部件用于在Tk应用程序中选择不同选项。可用的选择小部件如下所示。
| 序号 | 小部件及其描述 |
|---|---|
| 1 | 单选按钮Radiobutton 小部件，具有一组开关按钮和标签，其中可以选择一个。 |
| 2 | 复选框Checkbutton 小部件，具有一组开关按钮和标签，其中可以选择多个。 |
| 3 | 菜单Menu 小部件，用于承载菜单项。 |
| 4 | 列表框Listbox 小部件，显示一个单元格列表，可以选择一个或多个。 |
下面是一个使用选择小部件的简单的Tk示例：
#!/usr/bin/wish
grid [frame .gender ]
grid [label .label1 -text "Male" -textvariable myLabel1 ]
grid [radiobutton .gender.maleBtn -text "Male" -variable gender -value "Male"
-command "set myLabel1 Male"] -row 1 -column 2
grid [radiobutton .gender.femaleBtn -text "Female" -variable gender -value "Female"
-command "set myLabel1 Female"] -row 1 -column 3
.gender.maleBtn select
grid [label .myLabel2 -text "Range 1 not selected" -textvariable myLabelValue2 ]
grid [checkbutton .chk1 -text "Range 1" -variable occupied1 -command {if {occupied1 } {
set myLabelValue2 {Range 1 selected}
} else {
set myLabelValue2 {Range 1 not selected}
} }]
proc setLabel {text} {
.label configure -texttext
}
当我们运行上面的程序时，将得到以下输出 –
