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();

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