Perl/Tk中的Notebook（標簽）小組件非常有用，它可以方便的對GUI里面的一些功能做一個分離展示，效果如下圖所示：

下面詳細講解一下如何使用它。

首先，你需要安裝 Perl/Tk 模塊，如果你還沒有安裝它，可以通過以下命令在終端中安裝：

cpan Tk

接下來，打開一個新的 Perl 腳本文件，并導入 Tk 模塊，創建主窗口，并設置標題。示例代碼如下：



在主窗口中，你可以創建一個 Notebook 組件，用于顯示多個選項卡。使用 NoteBook 函數來創建 Notebook 組件，并使用 pack 函數將它放置到主窗口中。示例代碼如下：

my $notebook = $mw->NoteBook()->pack(-fill => 'both', -expand => 1);

現在，你需要為 Notebook 組件創建至少一個選項卡。使用 add 方法創建選項卡，該方法返回一個新的幀（Frame）小組件。使用該幀組件來添加其他小組件，如標簽（Label）、文本框（Entry）等。示例代碼如下：

my $tab1 = $notebook->add('tab1', -label => "Tab 1");
my $label = $tab1->Label(-text => "This is Tab 1!")->pack(-fill => 'both', -expand => 1);

在上面的代碼中，我們創建了一個名為 tab1 的選項卡，設置標簽為 "Tab 1"。然后，我們在選項卡中添加了一個標簽（Label）小組件，用于顯示文本 "This is Tab 1!"。

你可以添加多個選項卡，以便用戶可以在它們之間切換。例如，下面的代碼將創建一個名為 tab2 的選項卡，并在其中添加了一個文本框（Entry）小組件。

my $tab2 = $notebook->add('tab2', -label => "Tab 2");
my $entry = $tab2->Entry()->pack(-fill => 'both', -expand => 1);

最后，你需要調用 MainLoop 方法，以便運行主窗口的事件循環，讓 Notebook 組件和其他小組件能夠響應用戶的交互。示例代碼如下：

MainLoop;

現在，你可以運行該腳本并測試它。當你運行腳本時，將會顯示一個包含兩個選項卡的 Notebook 組件，你可以在它們之間切換，并在選項卡中添加其他小組件。

完整的示例代碼如下：

#!/usr/bin/perl
useTk;
useTk::NoteBook;


my$mw=MainWindow->new;
$mw->geometry("400x400");
$mw->title("Perl/Tk Notebook Example");


my$notebook=$mw->NoteBook()->pack(-fill=>'both',-expand=>1);


#Addfirsttab
my$tab1=$notebook->add('tab1',-label=>"Tab1");
$tab1->Label(-text=>"ThisisTab1!")->pack(-fill=>'both',-expand=>1);


#Addsecondtab
my$tab2=$notebook->add('tab2',-label=>"Tab2");
$tab2->Entry()->pack(-fill=>'both',-expand=>1);


MainLoop;

審核編輯：劉清