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

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

#!/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;

點(diǎn)擊效果如下：Checkbutton經(jīng)常單個(gè)使用或者多個(gè)組成一組共同使用。?單選按鈕Radiobutton單選按鈕，顧名思義類(lèi)似于我們做的單選題，給你很多個(gè)答案，讓你從中選一個(gè)，因此選項(xiàng)一般大于等于2個(gè)。根據(jù)前面的講解，這個(gè)內(nèi)容應(yīng)該很容易理解，就不詳細(xì)解釋了，我們用foreach來(lái)創(chuàng)建多個(gè)選項(xiàng)，當(dāng)某個(gè)選項(xiàng)被選中后打印當(dā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;

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

Hello summer

相關(guān)推文

Perl Tk在IC設(shè)計(jì)中的應(yīng)用、Windows、Linux平臺(tái)下的安裝-各種錯(cuò)誤的摸索解決Perl-Tk入門(mén)教程 - 創(chuàng)建一個(gè)窗口Perl-Tk教程之小部件 - 框架、文本、入口、按鈕、標(biāo)簽Perl-Tk教程之Listbox列表框控件(附完整代碼)

網(wǎng)易云課堂

視頻課程

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

總結(jié)

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

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