Perl Win32::Gui 模块学习 （2）---- 添加简单的Label标签

上一节的代码如下

use Win32::GUI();my $main = Win32::GUI::Window->new(-width => 100, -height => 100, -title => "My GUI application");$main->AddLabel(-text => "Hello, world");$main->Show();Win32::GUI::Dialog();

上一节加入了简单的“hello world”标签

这一节学习一下关于Label的一些方法和属性

通常通过AddLabel这个方法在窗口里创建一个文字标签

创建时除了-text，还可以添加一些标签的其他属性

文字的对齐方式（左/中/右）

-align    => left/center/right

填充颜色

-fill     => black/gray/white/none (default none)

是否支持点击事件（单击，双击。。。）

-notify   => 0/1 (default 0)

还有很多其他常规属性，具体可以参照《 这里》 的说明

$main->AddLabel(-text => "Hello, world", -align =>'right',-width => 100);

宽100的label，文字‘Hello world’是靠右对齐的