weixin_40132432的博客

上一节的代码如下 use Win32::GUI(); use Encode; #转码需要用到的模块 use utf8; #本程序用utf8编码 my $main = Win32::GUI::Window->new(-width => 200, -height => 200, -title => "My GUI application"); $main->AddLabel(-text =>

//引用Win32::GUI模块use Win32::GUI();//创建一个大小为100*100的windows主窗口 my $main = Win32::GUI::Window->new(-width => 100, -height => 100);//在新窗口建立一个Lable标签，写上著名的Hello， World$main->AddLabel(-text => "Hello, world

上一节的代码如下 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::Dial