大型部件,其中包括許多復(fù)雜的部件是經(jīng)常需要在一些大型Tk的應(yīng)用??捎么笮筒考牧斜?,如下所示。
| SN | Widget | 描述 |
|---|---|---|
| 1 | Dialog | 小部件顯示對(duì)話框。 |
| 2 | Spinbox | 小工具,允許用戶選擇數(shù)字。 |
| 3 | Combobox | 窗口小部件,它結(jié)合了可供利用的選擇列表中的一個(gè)條目。 |
| 4 | Notebook | 標(biāo)簽窗口小部件,有助于幾個(gè)頁面之一之間切換,使用索引選項(xiàng)卡。 |
| 5 | Progressbar | 窗口小部件提供視覺反饋的一個(gè)長(zhǎng)操作,如文件上傳進(jìn)度。 |
| 6 | Treeview | 窗口小部件來顯示,并允許通過項(xiàng)目的層次結(jié)構(gòu)瀏覽更多的樹的形式。 |
| 7 | Scrollbar | 滾動(dòng)部件不帶文字或canvas小部件。 |
| 8 | Scale | 縮放小部件選擇通過滑塊的數(shù)值。 |
一個(gè)簡(jiǎn)單的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]
當(dāng)我們運(yùn)行上面的程序,會(huì)得到下面的輸出。