リストボックスは、通常は長時間の単一行のテキスト項目のリストを表示し、ユーザーはリストをブラウズして 1 つ以上を選択できます。

　リストボックスは古典的な Tk ウィジェットの一部です。 現在、テーマの Tk ウィジェットセットにリストボックスはありません。

　Tk の treeview ウィジェット（ themed ）はリストボックス（ 1 レベルの深いツリー）として使うこともでき、アイコンやスタイルをリストに使うことができます。 また、マルチカラム（テーブル）リストウィジェットは、利用可能な拡張機能の 1 つに基づいて、ある時点でTkに変換される可能性があります。



　perl Tkx : リストボックスは、new_tk__listbox メソッド a.k.a. Tkx::tk__listbox を使用して作成されます。

$parent->new_tk__listbox(-height => 10) 

l = Listbox(parent, height=10) 

Top

Top

Top

Top

Top

　ここでは、これらのさまざまなリストボックスのテクニックを示すばかげた例を示します。 表示される国のリストが表示されます。 その背後には、2文字の国コードでインデックスされた各国の人口を含むデータベース（単純なハッシュテーブル）があります。 一度に1つの国のみを選択することができます。そうするとステータスバーに国の人口が表示されます。 リストをダブルクリックするか Return キーを押すと、選択した国の首脳にいくつかのギフトの1つが送られます（実際はそうではありませんが、あなたの想像力を使用します）。



　perl Tkx :

use Tkx;

# Initialize our country "databases":
#  - the list of country codes (a subset anyway)
#  - a parallel list of country names, in the same order as the country codes
#  - a hash table mapping country code to population
@countrycodes = ("ar", "au", "be", "br", "ca", "cn", "dk", "fi", "fr", "gr",
                 "in", "it", "jp", "mx", "nl", "no", "es", "se", "ch");
@countrynames = ("Argentina", "Australia", "Belgium", "Brazil", "Canada",
        "China", "Denmark", "Finland", "France", "Greece", "India", "Italy",
	"Japan", "Mexico", "Netherlands", "Norway", "Spain", "Sweden", "Switzerland");
%populations = ("ar" => 41000000, "au" => 21179211, "be" => 10584534,
        "br" => 185971537, "ca" => 33148682, "cn" => 1323128240,
	"dk" => 5457415, "fi" => 5302000, "fr" => 64102140, "gr" => 11147000, 
        "in" => 1131043000, "it" => 59206382, "jp" => 127718000,
	"mx" => 106535000, "nl" => 16402414, "no" => 4738085, "es" => 45116894,
	"se" => 9174082, "ch" => 7508700);

# Names of the gifts we can send
%gifts =("card" => "Greeting card", "flowers" => "Flowers",
         "nastygram" => "Nastygram");

# Create and grid the outer content frame
$mw = Tkx::widget->new(".");
$content = $mw->new_ttk__frame(-padding => "5 5 12 0");
$content->g_grid(-column => 0, -row => 0, -sticky => "nwes");
$mw->g_grid_columnconfigure(0, -weight => 1);
$mw->g_grid_rowconfigure(0, -weight => 1);

# Create the different widgets; note the variables that many
# of them are bound to, as well as the button callback.
# The listbox is the only widget we'll need to refer to directly
# later in our program, so for convenience we'll assign it to a variable.
# Remember that we must use a Tcl formatted list for listvariable.
$cnames = ''; foreach $i (@countrynames) {$cnames = $cnames . ' {' . $i . '}';};
$lbox = $content->new_tk__listbox(-listvariable => \$cnames, -height => 5);
$lbl = $content->new_ttk__label(-text => "Send to country's leader:");
$g1 = $content->new_ttk__radiobutton(-text => $gifts{'card'},
                               -variable => \$gift, -value => 'card');
$g2 = $content->new_ttk__radiobutton(-text => $gifts{'flowers'},
                            -variable => \$gift, -value => 'flowers');
$g3 = $content->new_ttk__radiobutton(-text => $gifts{'nastygram'},
                          -variable => \$gift, -value => 'nastygram');
$send = $content->new_ttk__button(-text => "Send Gift",
                  -command => sub {sendGift()}, -default => 'active');
$l1 = $content->new_ttk__label(-textvariable => \$sentmsg,
                                                    -anchor => "center");
$l2 = $content->new_ttk__label(-textvariable => \$statusmsg,
                                                         -anchor => "w");

# Grid all the widgets
$lbox->g_grid(-column => 0, -row => 0, -rowspan => 6,
                                                      -sticky => "nsew");
$lbl->g_grid(-column => 1, -row => 0, -padx => 10, -pady => 5);
$g1->g_grid(-column => 1, -row => 1, -sticky => "w", -padx => 20);
$g2->g_grid(-column => 1, -row => 2, -sticky => "w", -padx => 20);
$g3->g_grid(-column => 1, -row => 3, -sticky => "w", -padx => 20);
$send->g_grid(-column => 2, -row => 4, -sticky => "e");
$l1->g_grid(-column => 1, -row => 5, -columnspan => 2,
                             -sticky => "n", -pady => 5, -padx => 5);
$l2->g_grid(-column => 0, -row => 6, -columnspan => 2,
                                                          -sticky => "we");
$content->g_grid_columnconfigure(0, -weight => 1);
$content->g_grid_rowconfigure(0, -weight => 1);


# Set event bindings for when the selection in the listbox changes,
# when the user double clicks the list, and when they hit the Return key
$lbox->g_bind("<<ListboxSelect>>", sub {showPopulation()});
$lbox->g_bind("<Double-1>", sub {sendGift()});
$mw->g_bind("<Return>", sub {sendGift()});

# Called when the selection in the listbox changes; figure out
# which country is currently selected, and then lookup its country
# code, and from that, its population.  Update the status message
# with the new population.  As well, clear the message about the
# gift being sent, so it doesn't stick around after we start doing
# other things.
sub showPopulation {
    my @idx = $lbox->curselection;
    if ($#idx==0) {
        my $code = $countrycodes[$idx[0]];
        my $name = $countrynames[$idx[0]];
        my $popn = $populations{$code};
        $statusmsg = "The population of " . $name . "(" . $code . ") is $popn";
    }
    $sentmsg = "";
}

# Called when the user double clicks an item in the listbox, presses
# the "Send Gift" button, or presses the Return key.  In case the selected
# item is scrolled out of view, make sure it is visible.
#
# Figure out which country is selected, which gift is selected with the 
# radiobuttons, "send the gift", and provide feedback that it was sent.
sub sendGift {
    my @idx = $lbox->curselection;
    if ($#idx==0) {
        $lbox->see($idx[0]);
        my $name =$countrynames[$idx[0]];
        # Gift sending left as an exercise to the reader
        $sentmsg = "Sent " . $gifts{$gift} . " to leader of " . $name
    }     
}

# Colorize alternating lines of the listbox
for ($i=0; $i<=$#countrynames; $i+=2) {
    $lbox->itemconfigure($i, -background => "#f0f0ff");
}

# Set the starting state of the interface, including selecting the
# default gift to send, and clearing the messages.  Select the first
# country in the list; because the <<ListboxSelect>> event is only
# generated when the user makes a change, we explicitly call showPopulation.
$gift = 'card';
$sentmsg = "";
$statusmsg = "";
$lbox->selection_set(0);
showPopulation;

Tkx::MainLoop(); 

　Python :

from tkinter import *
from tkinter import ttk
root = Tk()

# Initialize our country "databases":
#  - the list of country codes (a subset anyway)
#  - a parallel list of country names, in the same order as the country codes
#  - a hash table mapping country code to population<
countrycodes = ('ar', 'au', 'be', 'br', 'ca', 'cn', 'dk', 'fi', 'fr', 'gr', 'in',
                                  'it', 'jp', 'mx', 'nl', 'no', 'es', 'se', 'ch')
countrynames = ('Argentina', 'Australia', 'Belgium', 'Brazil', 'Canada', 'China',
        'Denmark', \ 'Finland', 'France', 'Greece', 'India', 'Italy', 'Japan',
	'Mexico', 'Netherlands', 'Norway', 'Spain', \ 'Sweden', 'Switzerland')
cnames = StringVar(value=countrynames)
populations = {'ar':41000000, 'au':21179211, 'be':10584534, 'br':185971537, \
        'ca':33148682, 'cn':1323128240, 'dk':5457415, 'fi':5302000, 'fr':64102140,
	'gr':11147000, \ 'in':1131043000, 'it':59206382, 'jp':127718000,
	'mx':106535000, 'nl':16402414, \ 'no':4738085, 'es':45116894, 'se':9174082,
	'ch':7508700}

# Names of the gifts we can send
gifts = { 'card':'Greeting card', 'flowers':'Flowers', 'nastygram':'Nastygram'}

# State variables
gift = StringVar()
sentmsg = StringVar()
statusmsg = StringVar()

# Called when the selection in the listbox changes; figure out
# which country is currently selected, and then lookup its country
# code, and from that, its population.  Update the status message
# with the new population.  As well, clear the message about the
# gift being sent, so it doesn't stick around after we start doing
# other things.
def showPopulation(*args):
    idxs = lbox.curselection()
    if len(idxs)==1:
        idx = int(idxs[0])
        code = countrycodes[idx]
        name = countrynames[idx]
        popn = populations[code]
        statusmsg.set("The population of %s (%s) is %d" % (name, code, popn))
    sentmsg.set('')

# Called when the user double clicks an item in the listbox, presses
# the "Send Gift" button, or presses the Return key.  In case the selected
# item is scrolled out of view, make sure it is visible.
#
# Figure out which country is selected, which gift is selected with the 
# radiobuttons, "send the gift", and provide feedback that it was sent.
def sendGift(*args):
    idxs = lbox.curselection()
    if len(idxs)==1:
        idx = int(idxs[0])
        lbox.see(idx)
        name = countrynames[idx]
        # Gift sending left as an exercise to the reader
        sentmsg.set("Sent %s to leader of %s" % (gifts[gift.get()], name))

# Create and grid the outer content frame
c = ttk.Frame(root, padding=(5, 5, 12, 0))
c.grid(column=0, row=0, sticky=(N,W,E,S))
root.grid_columnconfigure(0, weight=1)
root.grid_rowconfigure(0,weight=1)

# Create the different widgets; note the variables that many
# of them are bound to, as well as the button callback.
# Note we're using the StringVar() 'cnames', constructed from 'countrynames'
lbox = Listbox(c, listvariable=cnames, height=5)
lbl = ttk.Label(c, text="Send to country's leader:")
g1 = ttk.Radiobutton(c, text=gifts['card'], variable=gift, value='card')
g2 = ttk.Radiobutton(c, text=gifts['flowers'], variable=gift, value='flowers')
g3 = ttk.Radiobutton(c, text=gifts['nastygram'], variable=gift, value='nastygram')
send = ttk.Button(c, text='Send Gift', command=sendGift, default='active')
sentlbl = ttk.Label(c, textvariable=sentmsg, anchor='center')
status = ttk.Label(c, textvariable=statusmsg, anchor=W)

# Grid all the widgets
lbox.grid(column=0, row=0, rowspan=6, sticky=(N,S,E,W))
lbl.grid(column=1, row=0, padx=10, pady=5)
g1.grid(column=1, row=1, sticky=W, padx=20)
g2.grid(column=1, row=2, sticky=W, padx=20)
g3.grid(column=1, row=3, sticky=W, padx=20)
send.grid(column=2, row=4, sticky=E)
sentlbl.grid(column=1, row=5, columnspan=2, sticky=N, pady=5, padx=5)
status.grid(column=0, row=6, columnspan=2, sticky=(W,E))
c.grid_columnconfigure(0, weight=1)
c.grid_rowconfigure(5, weight=1)

# Set event bindings for when the selection in the listbox changes,
# when the user double clicks the list, and when they hit the Return key
lbox.bind('<<ListboxSelect>>', showPopulation)
lbox.bind('<Double-1>', sendGift)
root.bind('<Return>', sendGift)

# Colorize alternating lines of the listbox
for i in range(0,len(countrynames),2):
    lbox.itemconfigure(i, background='#f0f0ff')

# Set the starting state of the interface, including selecting the
# default gift to send, and clearing the messages.  Select the first
# country in the list; because the <<ListboxSelect>> event is only
# generated when the user makes a change, we explicitly call showPopulation.
gift.set('card')
sentmsg.set('')
statusmsg.set('')
lbox.selection_set(0)
showPopulation()

root.mainloop() 

　

　この例の欠点は、国のリストがかなり長くなる可能性がありますが、その一部だけが一度に画面に収まることです。 リストの下にある国をさらに表示するには、マウスでドラッグするか、下矢印キーを使用する必要があります。 スクロールバーは素晴らしいでしょう。 それを修正しましょう。

Top

　スクロールバーは、ユーザが別のウィジェットのすべての部分を見るのに役立ちます。その内容は通常、使用可能な画面領域に表示できる内容よりもはるかに大きくなります。



　perl Tkx : スクロールバーは、new_ttk__scrollbar メソッド a.k.a. Tkx::ttk__scrollbar を使用して作成されます。

$s = $parent->new_ttk__scrollbar(-orient => 'vertical', -command => [$listbox, 'yview']);
$listbox->configure(-scrollcommand => [$s, 'set']); 

s = ttk.Scrollbar( parent, orient=VERTICAL, command=listbox.yview)
listbox.configure(yscrollcommand=s.set) 

Top

　リストボックスは、スクロール可能なウィジェットのいくつかのタイプの 1 つです。 ここでは、非常に単純なユーザーインターフェイスを構築します。これは、ウィンドウ全体を占める垂直方向にスクロール可能なリストボックスから構成され、下部にはステータス行だけが表示されます。



　perl Tkx :

use Tkx;
my $mw = Tkx::widget->new(".");

($lb = $mw->new_tk__listbox(-height => 5))->g_grid(-column => 0, -row => 0, -sticky => "nwes");
($s = $mw->new_ttk__scrollbar(-command => [$lb, "yview"], 
        -orient => "vertical"))->g_grid(-column =>1, -row => 0, -sticky => "ns");
$lb->configure(-yscrollcommand => [$s, "set"]);
($mw->new_ttk__label(-text => "Status message here", 
        -anchor => "w"))->g_grid(-column => 0, -row => 1, -sticky => "we");
($mw->new_ttk__sizegrip)->g_grid(-column => 1, -row => 1, -sticky => "se");
$mw->g_grid_columnconfigure(0, -weight => 1); $mw->g_grid_rowconfigure(0, -weight => 1);
for ($i=0; $i < 100; $i++) {
   $lb->insert("end", "Line " . $i . " of 100");
}

Tkx::MainLoop(); 

　Python :

from tkinter import *
from tkinter import ttk

root = Tk()
l = Listbox(root, height=5)
l.grid(column=0, row=0, sticky=(N,W,E,S))
s = ttk.Scrollbar(root, orient=VERTICAL, command=l.yview)
s.grid(column=1, row=0, sticky=(N,S))
l['yscrollcommand'] = s.set
ttk.Sizegrip().grid(column=1, row=1, sticky=(S,E))
root.grid_columnconfigure(0, weight=1)
root.grid_rowconfigure(0, weight=1)
for i in range(1,101):
    l.insert('end', 'Line %d of 100' % i)

root.mainloop() 

　

Top

　私たちは実際には、最後の例であるサイズグリップの新しいウィジェットを覗いています。 これはウィンドウの右下隅にある小さなボックスで、サイズを変更することができます。



　perl Tkx : SizeGripsは、new_ttk__sizegrip メソッド a.k.a. Tkx::ttk__sizegrip を使用して作成されます。

($parent->new_ttk__sizegrip)->g_grid(-column => 999, -row => 999, -sticky => "se") 

ttk.Sizegrip(parent).grid(column=999, row=999, sticky=(S,E)) 

Top

　テキストウィジェットは、ユーザーに複数のテキスト行を入力できるように領域を提供します。 テキストウィジェットは古典的なTkウィジェットの一部であり、テーマの Tk ウィジェットではありません。



　Tk のテキストウィジェットは、キャンバスウィジェットと並んで、驚くほど深くて簡単にプログラミングできる機能を提供する 2 つのウィーバーパワフルウィジェットの 1 つです。 テキストウィジェットは、フルワードプロセッサ、アウトライナー、ウェブブラウザなどの基盤を形成しています。 後の章でいくつかの高度な機能について説明しますが、テキストウィジェットを使用して、かなり単純な複数行のテキスト入力をキャプチャするために必要なものを示します。

　perl Tkx : テキストウィジェットは、new_tk__text メソッド a.k.a. Tkx::tk__text を使用して作成されます。

$parent->new_tk__text(-width => 40, -height => 10) 

t = Text(parent, width=40, height=10) 

Top

Top

　プログレスバーウィジェットは、長い操作の進行状況をユーザーにフィードバックする方法を提供します。 これは、これを見積もることができるオペレーションのパーセンテージの完全な表示、またはオペレーションが継続していることを示すために変化するが完了の見積もりなしのディスプレイとして行うことができる。



　perl Tkx : プログレスバーウィジェットは、new_ttk__progressbar メソッド a.k.a. Tkx::ttk__progressbar を使用して作成されます。

$parent->new_ttk__progressbar(-orient => 'horizontal', -length => 200, -mode => 'determinate') 

p = ttk.Progressbar(parent, orient=HORIZONTAL, length=200, mode='determinate') 

Top

Top

Top

　スケールウィジェットは、ユーザーが直接操作で数値を選択する方法を提供します。



　perl Tkx : Scaleウィジェットは、new_ttk__scale メソッド a.k.a. Tkx::ttk__scale を使用して作成されます。

$parent->new_ttk__scale(-orient => 'horizontal', -length => 200, -from => 1.0, -to => 100.0) 

s = ttk.Scale(parent, orient=HORIZONTAL, length=200, from_=1.0, to=100.0) 

Top

• 2023/03/11 Ver=1.03 Python 3.11.2 で確認
• 2020/10/27 Ver=1.01 Python 3.9.0 で確認
• 2018/11/08 Ver=1.01 初版リリース

Top