my $mw = MainWindow->new(-title => "Mem monitor");
$frm_name1 = $mw -> Frame()->pack(-side=>"top",-fill => 'x');
$but1 = $frm_name1 ->Button(-text => "BackOffice 发布",-command =>\&push_b1)-> pack(-side=>"left",-ipadx=>100,-padx=>30);
$but2 = $frm_name1 ->Button(-text => "FrontEnd 发布",-command =>\&push_b2)-> pack(-side=>"left",-ipadx=>100,-padx=>30);
$but3 = $frm_name1 ->Button(-text => "Flow 发布",-command =>\&sub_fun8)-> pack(-side=>"left",-ipadx=>100,-padx=>30);
$but4 = $frm_name1 -
perl 创建文本框
最新推荐文章于 2021-04-10 16:18:52 发布
这篇博客介绍了如何使用Perl创建一个包含多个按钮和一个文本框的图形用户界面。通过MainWindow创建主窗口,然后添加多个Frame和Button,分别对应不同的功能,如BackOffice、FrontEnd、Flow、Api和Pay的发布。此外,还创建了一个Text区域供用户输入或查看信息。
摘要由CSDN通过智能技术生成