极客教程Tk Mega巨型小部件
巨型小部件包括在一些大型Tk应用程序中经常需要的许多复杂小部件。可用的巨型小部件列表如下所示−
| Sr.No. | 控件和描述 |
|---|---|
| 1 | Dialog 用于显示对话框的控件。 |
| 2 | Spinbox 允许用户选择数字的控件。 |
| 3 | Combobox 将输入框与可供用户选择的选项列表结合起来的控件。 |
| 4 | Notebook 标签式控件，可通过索引标签在多个页面之间切换。 |
| 5 | Progressbar 用于提供文件上传等长时间操作进度的可视化反馈的控件。 |
| 6 | Treeview 以树状形式显示和浏览层次结构项目的控件。 |
| 7 | Scrollbar 没有文本或画布控件的滚动条控件。 |
| 8 | Scale 通过滑块选择数值的刻度控件。 |
下面是一个使用一些 Mega widgets 的简单 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 -lengthscaleValue
}
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]
当我们运行上面的程序时，我们将得到以下输出−
