Tk - 超级控件



超级控件包含许多复杂的控件,这些控件通常在一些大型 Tk 应用程序中需要。可用的超级控件列表如下所示:

序号 控件及描述
1 对话框

用于显示对话框的控件。

2 旋转框

允许用户选择数字的控件。

3 组合框

将条目与用户可用的选择列表组合的控件。

4 笔记本

选项卡式控件,可帮助使用索引选项卡在多个页面之间切换。

5 进度条

提供对长时间操作(如文件上传)进度进行视觉反馈的控件。

6 树形视图

以树的形式显示和允许浏览项目层次结构的控件。

7 滚动条

没有文本或画布控件的滚动控件。

8 刻度尺

通过滑块选择数值的刻度尺控件。

下面显示了一个使用一些超级控件的简单 Tk 示例。

#!/usr/bin/wish

ttk::treeview .tree -columns "Creator Year" -displaycolumns "Year Creator" 
.tree heading Creator -text "Creator" -anchor center
.tree heading Year -text "Year" -anchor center
pack .tree
.tree insert {} end -id Languages -text "Languages"
.tree insert Languages end -text C -values [list "Dennis Ritchie" "1990"]
proc scaleMe {mywidget scaleValue} {
   $mywidget configure -length $scaleValue
} 
pack [scale .s2  -from 100.0 -to 200.0 -length 100 -background yellow -borderwidth 5
   -font{Helvetica -18 bold} -foreground red -width 40 -relief ridge -orien horizontal
   -variable a -command "scaleMe .s2" ]
pack [ttk::progressbar .p1 -orient horizontal -length 200 -mode indeterminate -value 90]
pack [ttk::progressbar .p2 -orient horizontal -length 200 -mode determinate -variable a
   -maximum 75 -value 20]

运行上述程序后,我们将获得以下输出:

Mega Widget Example
广告