lanying56123 发表于 2018-8-30 12:15:02

使用Perl/Tk模块建立可视化图形GUI界面2-AndyLeung

#!/usr/bin/perl -w　　

　　
use Tk;
　　
use strict;
　　

　　
my $mw = MainWindow->new;
　　
$mw->geometry("200x100");
　　
$mw->title("Button Test");
　　

　　
my $button1 = $mw->Button(-text => "Button #1", -command => \&button1_sub)->pack();
　　

　　
my $button2 = $mw->Button(-text => "Button #2", -command => \&button2_sub)->pack();
　　

　　
sub button1_sub {
　　
$mw->messageBox(-message => "Button 1 Pushed", -type => "ok");
　　
}
　　

　　
sub button2_sub {
　　
my $yesno_button = $mw->messageBox(-message => "Button 2 Pushed. Exit?",
　　
                                        -type => "yesno", -icon => "question");
　　

　　
$mw->messageBox(-message => "You pressed $yesno_button!", -type => "ok");
　　

　　
if ($yesno_button eq "Yes") {
　　
    $mw->messageBox(-message => "Ok, Exiting.", -type => "ok");
　　
    exit;
　　
} else {
　　
    $mw->messageBox(-message => "I didn't think so either.", -type => "ok");
　　
}
　　
}
　　

　　
MainLoop;


页: [1]
查看完整版本: 使用Perl/Tk模块建立可视化图形GUI界面2-AndyLeung