2
我在製作GUI(登錄窗口)。當密碼正確時,登錄窗口必須調用其他窗口。在PerlTk中有沒有辦法調用另一個窗口而不是使用子窗口?如何在不使用子窗口的情況下調用另一個Tk窗口?
use strict;
use Tk;
my $mw = MainWindow->new;
$mw->geometry("300x150");
$mw->configure(-background=>'gray',-foreground=>'red');
$mw->title("PLEASE LOGIN");
my $main_frame=$mw->Frame(
-background=>"gray",-relief=>"ridge",)->pack(-side=>'top',-fill=>'x');
my $left_frame=$main_frame->Frame(
-background=>"gray")->pack(-side=>'left',-fill=>'x');
my $bottom_frame1=$mw->Frame(
-background=>"gray")->pack(-side=>'bottom',-fill=>'x');
my $right_frame1=$mw->Frame(
-background=>"gray")->pack(-side=>'left',-fill=>'x');
my $button=$bottom_frame1->Button(-text=>"OK",-command=>\&push_button);
$button->pack(-side=>'left');
my $cancel=$bottom_frame1->Button(-text=>"CANCEL",-command=>sub{$mw->destroy});
$cancel->pack(-side=>'right');
my $entry2=$mw->Entry(-width=>20,-relief=>"ridge")->place(-x=>100,-y=>75);
sub push_button{
...
}
my $mw=MainWindow->new;
$mw->geometry("900x690");
這段代碼是很奇怪的,因爲你有這麼多的用途和要求陳述。 – 2008-11-04 06:56:47