下拉菜单全全部代码

最新推荐文章于 2024-07-29 12:13:58 发布

scan724

最新推荐文章于 2024-07-29 12:13:58 发布

阅读量1.1k

点赞数

分类专栏： Perl Tk模块

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/43339125

版权

Perl Tk模块专栏收录该内容

43 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这段Perl代码展示了如何使用Tk库创建一个带有多种菜单选项的图形用户界面，包括文件、其他、工具和帮助菜单。用户可以进行新建、打开、保存等操作，并且包含了下拉菜单项，如系统信息、中间件信息和数据库信息等。点击不同菜单项会触发不同的回调函数，如弹出对话框或显示表格。

摘要由CSDN通过智能技术生成

#!perl -w
use Tk;
use DBI;
use encoding 'euc_cn';
###创建窗体
my $mw = MainWindow->new(-title => "system monitor");

##定义左边菜单框体
$FRAME_L  = $mw->Frame->pack(qw/-side left -fill both /);

#定义下拉菜单框
$WIDGET_F = $FRAME_L->Labelframe()->pack(qw/-side top -fill both -expand 1 /);

####定义菜单##########################################################################

#

#'Widget' 可以试任何的部件支持滚动条 比如 Text,Listbox,etc
#
#
my $frm_menu = $mw -> Frame() ->pack(-side=>"top",-fill => 'x');
#my $txt = $frm_menu -> Scrolled('Text',-width => 50,-scrollbars=>'e') -> pack ();




#Declare that there is a menu
my $mbar = $frm_menu -> Menu();
$m

了解本专栏