Perl 使用Label 标签
发布时间:2020-12-15 23:48:12 所属栏目:大数据 来源:网络整理
导读:pre name="code" class="sql"grid 布局:#!/usr/local/bin/perluse Tk;use dbi;# Main Windowmy $mw = new MainWindow;#GUI Building Areamy $lab = $mw - Label(-text="BBBBBBBBBBBB");##插入一行空白标签my $lab1 = $mw - Label();my $lab2 = $mw - Label(-
<pre name="code" class="sql">grid 布局: #!/usr/local/bin/perl use Tk; use dbi; # Main Window my $mw = new MainWindow; #GUI Building Area my $lab = $mw -> Label(-text=>"BBBBBBBBBBBB"); ##插入一行空白标签 my $lab1 = $mw -> Label(); my $lab2 = $mw -> Label(-text=>"AAAAAAAAAAAAA"); $lab -> grid(-row=>1,-column=>5,-columnspan=>1,-sticky=>"ew"); $lab1 -> grid(-row=>2,-sticky=>"ew"); $lab2 -> grid(-row=>3,-sticky=>"ew"); MainLoop; Label标签 pack 布局: use Tk; use strict; use DBI; # Main Window my $mw = new MainWindow; my $frm2 = $mw -> Frame() ->pack(-side=>"top"); my $lab1 = $frm2 -> Label(-text=>"Start date:")->pack; MainLoop; use Tk; use DBI; # Main Window my $mw = new MainWindow; my $lab = $mw -> Label(-text=>"BBBBBBBBBBBB")->pack; MainLoop; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |