Tk - Mega 小部件
Mega 小部件包括许多复杂的小部件，这些小部件在一些大型 Tk 应用程序中通常需要。 可用的大型小部件列表如下所示 −
| 序号 | 小部件和描述 |
|---|---|
| 1 | Dialog
用于显示对话框的小部件。 |
| 2 | Spinbox
允许用户选择数字的小部件。 |
| 3 | Combobox
将条目与可供使用的选项列表相结合的小部件。 |
| 4 | Notebook
选项卡式小部件，可帮助使用索引选项卡在多个页面之一之间切换。 |
| 5 | Progressbar
小部件为文件上传等长时间操作的进度提供视觉反馈。 |
| 6 | Treeview
用于显示并允许浏览更多以树形式的项目层次结构的小部件。 |
| 7 | Scrollbar
滚动没有文本或画布小部件的小部件。 |
| 8 | Scale
缩放小部件以通过滑块选择数值。 |
下面显示了一个使用一些 mega 小部件的简单 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]
当我们运行上面的程序时，我们将得到以下输出 −
