《Perl-Tk教程之按鈕Button、復選按鈕Checkbutton、單選按鈕Radiobutton》Perl-Tk中有三種不同形式的按鈕組件可供選擇，它們分別是按鈕(Button), 復選按鈕(Checkbutton), 和單選按鈕(Radiobutton)，如下圖所示：這三種按鈕看起來是不同的，且最重要的不同之處在于它們的選擇指示器(selection indicators)的使用是不同的。Button根本就沒有選擇指示器，使用非常簡單；Checkbutton和Radiobutton控件都有選擇指示器，用來指示哪些選項被選中了，前者可以選中多項內容，而后者只能選中一項內容。按鈕Button我們可以用下面的方式在主窗口$mw里面創(chuàng)建一個按鈕，$bt是生成的按鈕的指針。$bt = $mw->Button->pack;在Button里面有一些選項，我們可以控制按鈕上面顯示的文字以及鼠標單擊按鈕希望執(zhí)行的命令。例如，下面的-text選項用來控制按鈕上顯示文字“Click Me”，鼠標單擊按鈕之后將調用子程序print_click_info打印"Button is clicked!\n"。$bt = $mw->Button(-text => 'Click Me', -command => \&print_click_info)->pack;完整的程序如下：

#!/usr/bin/perl -wuse Tk;?$mw = MainWindow->new;$mw->geometry("300x140");$mw->title("Button");?my $bt = $mw->Button(-text ? => "Click Me", -command => ? \&print_click_info)->pack();?sub print_click_info {? ? print "Button is clicked!\n";}?MainLoop;

效果：復選按鈕Checkbutton我們可以用下面的方式在主窗口$mw里面創(chuàng)建一個復選按鈕Checkbutton，$cb是生成的復選按鈕的指針。$cb = $mw->Checkbutton->pack;與Button類似，Checkbutton也有控制顯示文字的選項-text，以及復選按鈕被勾選之后執(zhí)行某個子程序的選項-command。除此之外我們還可以通過該選項是否被勾選來控制一些變量的值。比如我們想通過某個選項是否被勾選來控制$a_selected的值，如果被勾選賦值為'a'，沒有被勾選就賦值為0。我們可以用下面的語句：$cb = $mw->Checkbutton(-text => 'a', -variable => \$a_selected, -onvalue => 'a', -offvalue => 0)->pack;為了顯示出當前變量$a_selected的值，我們可以再加上-command選項打印它的值。完整的程序如下：

#!/usr/bin/perl -wuse Tk;?$mw = MainWindow->new;$mw->geometry("300x140");$mw->title("Hello");?my $a_selected;$mw->Checkbutton(-text => ? 'a', -variable => \$a_selected, -onvalue => 'a', -offvalue => ? 0,? -command => ? \&print_click_info)->pack;?sub print_click_info {? ? print "the value of var \$a_selected is $a_selected!\n";}?MainLoop;

點擊效果如下：Checkbutton經常單個使用或者多個組成一組共同使用。?單選按鈕Radiobutton單選按鈕，顧名思義類似于我們做的單選題，給你很多個答案，讓你從中選一個，因此選項一般大于等于2個。根據(jù)前面的講解，這個內容應該很容易理解，就不詳細解釋了，我們用foreach來創(chuàng)建多個選項，當某個選項被選中后打印當前選中的顏色。程序：

#!/usr/bin/perl -wuse Tk;?$mw = MainWindow->new;$mw->geometry("300x200");$mw->title("Listbox");?my $selected_color;?foreach (qw/red yellow green blue ? grey/) {??????????? $mw->Radiobutton(-text ? => $_, -value => $_, -variable => \$selected_color, -command => ? sub {print "current color is $selected_color\n";})->pack(-fill ? => 'x');}?MainLoop;

動圖效果：習題：感興趣的童鞋可以嘗試將三種不同的Button集成到一起，實現(xiàn)類似推文開頭的效果，點擊某個Button，在terminal里面打印出被點擊的項。

Hello summer

相關推文

Perl Tk在IC設計中的應用、Windows、Linux平臺下的安裝-各種錯誤的摸索解決Perl-Tk入門教程 - 創(chuàng)建一個窗口Perl-Tk教程之小部件 - 框架、文本、入口、按鈕、標簽Perl-Tk教程之Listbox列表框控件(附完整代碼)

網(wǎng)易云課堂

視頻課程

如果喜歡本公眾號也請多多分享喲謝謝您的關注##? 為了方便大家交流討論? ####? 建了一個QQ群? ####?集成電路設計及EDA教程?#### 加群請備注：EDA### 本公眾號有個紅包和資料福利微信群?##? 可以先加我微信，我拉你進群? ##? 加我微信 請備注下面問題的答案? ##? ? ? ?ASIC的全稱? ? ? ?#

總結

以上是生活随笔為你收集整理的单选按钮_PerlTk教程之按钮Button、复选按钮Checkbutton、单选按钮Radiobutton（附完整代码）...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。