もっとTcl/Tk

スクロールバー

スクロールバーは、他のWidgetの表示領域を制御するWidgetです。
スクロールバーと結び付けられるWidgetは、canvas, entry, listbox, textの4つです。
各Widgetと水平、垂直スクロールを結び付けられる関係は以下の通りです。

Widget名水平(x軸方向) 垂直(y軸方向)

canvas ○ ○

entry ○ ×

listbox ○ ○

text ○ ○

Widget名	水平(x軸方向)	垂直(y軸方向)
canvas	○	○
entry	○	×
listbox	○	○
text	○	○

スクロールバーの結び付け

以下は、listboxとスクロールバーを結び付ける例です。
listbox側は、-xscrollcommand {.f.x set}と-yscrollcommand {.f.y set}の処理が、
scrollbar側は、-command {.f.lst xview}の処理が必要です。
スクロールバーの向きには、水平と垂直があるので、-orientで向きを指定します。
両者を結び付けると、あとは自動的に連動するようになります。

pack [frame .f] -fill both -expand 1 listbox .f.lst -xscrollcommand {.f.x set} -yscrollcommand {.f.y set} scrollbar .f.x -command {.f.lst xview} -orient horizontal scrollbar .f.y -command {.f.lst yview} -orient vertical grid .f.lst .f.y -sticky news grid .f.x -sticky news grid rowconfigure .f 0 -weight 1 grid columnconfigure .f 0 -weight 1 .f.lst insert end みかんりんごバナナメロン .f.lst selection set 0

リストボックスとスクロールバー

2つのWidgetを1つのスクロールバーで制御する

以下は、2つのlistboxを1つのスクロールバーで制御する例です。
listboxのセレクションも連動させるために、ちょっとコードが多くなっています。

pack [frame .f] -fill both -expand 1 set BOXES [list .f.lst1 .f.lst2] proc LBset args { global BOXES foreach lb $BOXES { eval $lb $args } } proc LBselect {sellist} { global BOXES foreach lb $BOXES { $lb selection clear 0 end foreach item $sellist { $lb selection set $item } } } proc LBscroll args { eval .f.y set $args LBset yview moveto [lindex $args 0] } listbox .f.lst1 -yscrollcommand LBscroll -exportselection no listbox .f.lst2 -yscrollcommand LBscroll -exportselection no scrollbar .f.y -command {LBset yview} -orient vertical foreach lb $BOXES { bind $lb <<ListboxSelect>> { LBselect [%W curselection] } } grid .f.lst1 .f.lst2 .f.y -sticky news grid rowconfigure .f 0 -weight 1 grid columnconfigure .f 0 -weight 1 grid rowconfigure .f 0 -weight 1 grid columnconfigure .f 1 -weight 1 .f.lst1 insert end みかんりんごバナナメロン .f.lst2 insert end 50円 100円 10円 200円 .f.lst1 selection set 0 .f.lst2 selection set 0

2つのリストボックスとスクロールバー

スクロールバーを必要な時だけ表示する

以下は、listboxのスクロールバーを必要な時だけ表示する例です。
ちょっと高機能なスクロールバーになります。

proc LBscroll {scrollbar geoCmd offset size} { if {$offset != 0.0 || $size != 1.0} { eval $geoCmd $scrollbar set $offset $size } else { grid forget $scrollbar } } pack [frame .f] -fill both -expand 1 listbox .f.lst \ -xscrollcommand {LBscroll .f.x \ {grid .f.x -row 1 -column 0 -sticky we}} \ -yscrollcommand {LBscroll .f.y \ {grid .f.y -row 0 -column 1 -sticky ns}} scrollbar .f.x -command {.f.lst xview} -orient horizontal scrollbar .f.y -command {.f.lst yview} -orient vertical grid .f.lst .f.y -sticky news grid .f.x -sticky news grid rowconfigure .f 0 -weight 1 grid columnconfigure .f 0 -weight 1 .f.lst insert end みかんりんごバナナメロン .f.lst selection set 0

スクロールバーを必要な時だけ表示する

フォーカスの設定

スクロールの対象となるWidgetにfocusを設定しておくと、
デフォルトのキーバインドが働き、矢印キーやPgUp/PgDnキー等でもスクロールできます。
また、インテリマウスの真ん中ボタンでのスクロールもできます。