无涯教程-Tk - Checkbutton部件函数

148 阅读1分钟

Tk复选框用于创建复选框形式的多个可选项目。选中按钮小部件的语法如下所示-

checkbutton checkbuttonName options

Checkbutton - 参数

下表中列出了可用于检查按钮窗口小部件的选项-

Sr.No. Syntax & Remark
1

-font fontDescriptor

用于设置小部件的字体。

2

height number

用于设置小部件的高度。

3

-command action

设置按钮的command action。

4

-text text

设置小部件的文本。

5

width number

设置小部件的宽度。

6

-variable variableName

设置小部件的变量。

下面是一个简单的Tk检查按钮示例-

#!/usr/bin/wish

grid [label .myLabel1 -text "Range 20-30 not selected" -textvariable myLabelValue1 ] grid [checkbutton .chk1 -text "Range 20-30" -variable occupied1 -command {if {occupied1 </span><span class="pun">}</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">set</span><span class="pln"> myLabelValue1 </span><span class="pun">{</span><span class="typ">Range</span><span class="pln"> </span><span class="lit">20</span><span class="pun">-</span><span class="lit">30</span><span class="pln"> selected</span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">set</span><span class="pln"> myLabelValue1 </span><span class="pun">{</span><span class="typ">Range</span><span class="pln"> </span><span class="lit">20</span><span class="pun">-</span><span class="lit">30</span><span class="pln"> </span><span class="kwd">not</span><span class="pln"> selected</span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> </span><span class="pun">}]</span><span class="pln"> grid </span><span class="pun">[</span><span class="pln">label </span><span class="pun">.</span><span class="pln">myLabel2 </span><span class="pun">-</span><span class="pln">text </span><span class="str">"Range 30+ not selected"</span><span class="pln"> </span><span class="pun">-</span><span class="pln">textvariable myLabelValue2 </span><span class="pun">]</span><span class="pln"> grid </span><span class="pun">[</span><span class="pln">checkbutton </span><span class="pun">.</span><span class="pln">chk2 </span><span class="pun">-</span><span class="pln">text </span><span class="str">"Range 20-30"</span><span class="pln"> </span><span class="pun">-</span><span class="pln">variable occupied2 </span><span class="pun">-</span><span class="pln">command </span><span class="pun">{</span><span class="kwd">if</span><span class="pln"> </span><span class="pun">{</span><span class="pln">occupied2 } { set myLabelValue2 {Range 30+ selected} } else { set myLabelValue2 {Range 30+ not selected} } }]

当无涯教程运行上面的程序时,将获得以下输出-

Check Button Example

当单击check button1和check button2时,将获得以下输出-

Check Button Example Selected

参考链接

www.learnfk.com/tcl-tk/tk-c…