<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,-column=>5,-columnspan=>1,-sticky=>"ew");
$lab2 -> grid(-row=>3,-column=>5,-columnspan=>1,-sticky=>"ew");
MainLoop;
Label标签
pack 布局:
use Tk;
use strict;
use DBI;
# Main Window
my $mw = new Mai
Perl 使用Label 标签
最新推荐文章于 2022-04-26 19:59:02 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)