Perl 使用Frame(放置其他控件的地方)

Perl GUI编程：创建Frame及控件

最新推荐文章于 2025-03-11 19:59:27 发布

scan724

最新推荐文章于 2025-03-11 19:59:27 发布

阅读量773

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl Tk模块

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/43114071

Perl Tk模块专栏收录该内容

43 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何使用Perl的Tk模块创建GUI界面，包括创建Main Window，定义Frame，添加Label、Entry和Button等控件，并设置了网格布局。还展示了如何创建带有滚动条的Text框，为用户提供输入和查看信息的交互界面。

#!/usr/local/bin/perl
use Tk;
use dbi;
#Global Variables
my $age = 10;
# Main Window
#GUI Building Area
use Encode qw/encode decode/;
	
my $mw = new MainWindow; # Main Window
my $frm_name = $mw -> Frame();
my $lab =  $frm_name -> Label(-text=>"view memory");
my $lab1 = $frm_name -> Label(-text=>"Ip Address",-width=>10);
my $lab2 = $frm_name -> Label(-text=>"Start date:");
my $lab3 = $frm_name -> Label(-text=>"End date:");
my $ent1 = $frm_name -> Entry();  ###输入文本框
my $ent2 = $frm_name -> Entry();  ###输入文本框
my $ent3 = $frm_name -> Entry();  ###输入文本框

my $but = $mw -> Button(-text=>"ok", -command =>\&push_button);
my $textarea = $mw -> Frame(); #Creating Another Frame
my $txt = $textarea -> Text(-width=

了解本专栏