Perl Win32::Gui 模块学习 （1）---- 主窗口的创建

#引用Win32::GUI模块

use Win32::GUI();
#创建一个大小为100*100的windows主窗口

my $main = Win32::GUI::Window->new(-width => 100, -height => 100, -title => "My GUI application");

#在新窗口建立一个Lable标签，写上著名的Hello， World

$main->AddLabel(-text => "Hello, world");

#把设计好的$main主窗口显示出来

$main->Show();
#下面这句话是让窗口一直待机的一个循环，等待用户操作这个窗口

Win32::GUI::Dialog();

可以通过

$main->Width();

$main->Height();

方法得到主界面的宽和高（此方法同样也适合别的控件）
这节学习内容，效果图如下：