Perl 使用Frame(放置其他控件的地方)
发布时间:2020-12-15 23:48:11 所属栏目:大数据 来源:网络整理
导读:#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Window#GUI Building Areause Encode qw/encode decode/;my $mw = new MainWindow; # Main Windowmy $frm_name = $mw - Frame();my $lab = $frm_name - Label(-text="view memory
#!/usr/local/bin/perl use Tk; use dbi; #Global Variables my $age = 10; # Main Window #GUI Building Area use Encode qw/encode decode/; my $mw = new MainWindow; # Main Window my $frm_name = $mw -> Frame(); my $lab = $frm_name -> Label(-text=>"view memory"); my $lab1 = $frm_name -> Label(-text=>"Ip Address",-width=>10); my $lab2 = $frm_name -> Label(-text=>"Start date:"); my $lab3 = $frm_name -> Label(-text=>"End date:"); my $ent1 = $frm_name -> Entry(); ###输入文本框 my $ent2 = $frm_name -> Entry(); ###输入文本框 my $ent3 = $frm_name -> Entry(); ###输入文本框 my $but = $mw -> Button(-text=>"ok",-command =>&;push_button); my $textarea = $mw -> Frame(); #Creating Another Frame my $txt = $textarea -> Text(-width=>40,-height=>10); my $srl_y = $textarea -> Scrollbar(-orient=>'v',-command=>[yview => $txt]); my $srl_x = $textarea -> Scrollbar(-orient=>'h',-command=>[xview => $txt]); $txt -> configure(-yscrollcommand=>['set',$srl_y],-xscrollcommand=>['set',$srl_x]); $lab -> grid (-row=>0,-column=>0); $lab1 -> grid(-row=>1,-column=>1); $lab2 -> grid(-row=>2,-column=>1); $lab3 -> grid(-row=>3,-column=>1); $ent1 -> grid(-row=>1,-column=>2); $ent2 -> grid(-row=>2,-column=>2); $ent3 -> grid(-row=>3,-column=>2); $frm_name -> grid(-row=>1,-column=>1,-columnspan=>2); $but -> grid(-row=>4,-columnspan=>2); $txt -> grid(-row=>1,-ipadx=>160,-ipady=>100); $srl_y -> grid(-row=>1,-column=>2,-sticky=>"ns"); $srl_x -> grid(-row=>2,-sticky=>"ew"); $textarea -> grid(-row=>5,-columnspan=>20); MainLoop (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |