Perl Tk模块
Perl Tk模块
优惠券已抵扣
余额抵扣
还需支付
¥39.90
¥99.00
购买须知?
本专栏为图文内容,最终完结不会低于15篇文章。
订阅专栏,享有专栏所有文章阅读权限。
本专栏为虚拟商品,基于网络商品和虚拟商品的性质和特征,专栏一经购买无正当理由不予退款,不支持升级,敬请谅解。
scan724
这个作者很懒,什么都没留下…
展开
-
Tk 表格的宽度
#禁止窗口缩放#$mw->resizable(0,0);require Tk::Table; $table_frame = $mw->Frame()->pack(-expand => 1,-fill => 'both'); $table = $table_frame->Table(-columns => 10, -rows =原创 2015-11-27 13:50:29 · 1709 阅读 · 0 评论 -
Perl Tk grid布局管理器<1>
#!/usr/local/bin/perluse Tk;#Global Variablesmy $age = 10;# Main Windowmy $mw = new MainWindow;#GUI Building Areamy $frm_name = $mw -> Frame();my $lab = $frm_name -> Label(-text=>"Name:");my原创 2015-01-19 16:26:37 · 1162 阅读 · 0 评论 -
Perl Tk pack布局示例
use Tk;use strict; use DBI; # Main Windowmy $mw = new MainWindow;my $but1 = $mw -> Button(-text => "view cpu",-width=>300,-command =>\&push_button);$but1 -> pack();my $but2 = $mw -> Button(-原创 2015-01-19 21:34:47 · 1556 阅读 · 0 评论 -
输入文本框模型
#!/usr/local/bin/perluse Tk;my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame();my $lab = $frm_name -> Label(-text=>"Name:");my $ent = $frm_name -> Entry(); ###输入文本框my $but = $原创 2015-01-18 15:22:03 · 558 阅读 · 0 评论 -
利用回调函数响应事件
use Tk;use strict; use DBI; # Main Windowmy $mw = new MainWindow;my $but1 = $mw -> Button(-text => "view cpu",-width=>80,-command =>\&push_button);$but1 -> pack();my $but2 = $mw -> Button(-t原创 2015-01-16 22:16:40 · 864 阅读 · 0 评论 -
perl 代码《2》
#!/usr/bin/perluse Tk;use DBI;use encoding 'euc_cn';###创建窗体my $mw = MainWindow->new(-title => "system monitor",-bg=>"blue");##定义左边菜单框体$FRAME_L = $mw->Frame(-bg=>white)->pack(qw/-side left -fi原创 2015-02-03 18:44:14 · 719 阅读 · 0 评论 -
parent 父窗体
if ($name1 == ""){$answer => $frm_name1->messageBox(-title => 'Please Reply', -message => '请输入主机名?', -type => 'YesNo', -icon => 'question', -default => 'yes');undef $name1; }此时的父窗体原创 2015-02-02 19:34:13 · 551 阅读 · 0 评论 -
框体 Toplevel 主窗体
Frame :框体是一个简单的部件,其作用是作为一个复杂窗口布局的容器,框体的唯一特性是 它的背景色和3-D边界Frame can be created just like any other widget my$frm = $mw -> Frame();在框体上放置其他的部件,你可以使用框体部件变量作为它的parent通常parent 是'$mw',或者是主窗口。但是我们希原创 2015-02-02 18:39:44 · 1251 阅读 · 0 评论 -
Perl 列表框
use Tk; my $mw = new MainWindow;$lb = $mw->Listbox(-selectmode => "single")->pack( ); $lb->insert('end', qw/red yellow green blue grey/);##绑定到左键$lb->bind('', sub { $lb->configure(-background => $原创 2015-02-01 20:38:57 · 935 阅读 · 0 评论 -
Dialogs 对话框
Dialogs 对话框对话框可以被称为程序里的一个元素,从主窗口分开,这是一个非常普通的定义,Tk提供了很多诊断对话框messageBox 消息框这个程序创建和显示一个应用指定的消息窗口,一个图标和一些按钮,每个按钮在消息框里事被定义一个唯一的符号名字。消息框弹出后,消息框等待用户来选择按其中的按钮一些选项:default=>name 窗口默认的符号的名字('o原创 2015-01-20 15:08:10 · 521 阅读 · 0 评论 -
Perl Tk grid 布局
#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Windowmy $mw = new MainWindow;#GUI Building Area#Agemy $but1 = $mw -> Button(-text=>"view cpu", -command =>\&push_b原创 2015-01-19 22:52:00 · 1445 阅读 · 0 评论 -
grid 属性
标准 tk 组件类型: Button 按钮 Radiobutton 收音机按钮 Checkbutton 检查按钮 Listbox 列表框 Listbox 列表框 Scrollbar 滚动杆 Entry 条目 Text原创 2015-01-20 14:26:46 · 1614 阅读 · 0 评论 -
Tk日志查看程序
#!/usr/bin/perluse Tk;use DBI;use encoding 'euc_cn';###创建窗体my $mw = MainWindow->new(-title => "system monitor",-bg=>"blue");##定义左边菜单框体$FRAME_L = $mw->Frame(-bg=>white)->pack(qw/-side left -原创 2015-11-04 20:50:06 · 261 阅读 · 0 评论 -
zj-小型的查询界面
#!/usr/bin/perluse Tk;use DBI;use encoding 'euc_cn';###创建窗体my $mw = MainWindow->new(-title => "system monitor",-bg=>"blue");##定义左边菜单框体$FRAME_L = $mw->Frame(-bg=>white)->pack(qw/-side left -原创 2015-05-29 11:06:39 · 1048 阅读 · 1 评论 -
WIN 7使用TK模块
WIN 7 需要安装ActivePerl_5.16.2.msi才能有tk模块原创 2015-05-07 13:21:45 · 767 阅读 · 0 评论 -
函数调用子函数,注意子函数的位置
sub push_botton3{my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame();my $lab1 = $frm_name -> Label(-text=>"Id Number",-width=>10);my $lab2 = $frm_name -> Label(-text=>"Room Number:原创 2015-01-25 14:55:34 · 1670 阅读 · 0 评论 -
Tk 乱码问题
use Encode qw/encode decode/;原创 2015-01-24 18:56:16 · 1467 阅读 · 0 评论 -
Perl 使用Frame(放置其他控件的地方)
#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Window#GUI Building Areause Encode qw/encode decode/; my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Fra原创 2015-01-25 13:41:24 · 706 阅读 · 0 评论 -
Perl 采集磁盘信息
#!/usr/bin/perluse HTTP::Date qw(time2iso str2time time2iso time2isoz);use strict;use Sys::Hostname;use DBI;my $hostip='10.5.129.243';my $dbName = 'orcl'; my $dbUser = 'test'; my $dbUserPass原创 2015-01-25 14:01:48 · 915 阅读 · 0 评论 -
Frame放置其他控件的地方
use Tk;use strict; use DBI; # Main Windowmy $mw = new MainWindow;my $frm = $mw -> Frame() ->pack;my $but1 =$frm -> Button(-text => "view cpu",-width=>300,-command =>\&push_button);$but1 -> p原创 2015-01-23 22:55:46 · 600 阅读 · 0 评论 -
弹出消息框
$name1 = $ent1 -> get(); $name2 = $ent2 -> get(); $name3 = $ent3 -> get();if ($name1 == ""){ $answer => $mw->messageBox(-title => 'Please Reply', -message => '请输入主机名?', -type => 'YesNo', -icon =原创 2015-02-02 19:29:43 · 739 阅读 · 0 评论 -
文本框
文本框是显示一行或者多行的文本,允许编辑文本和entry部件很像,更像是一个大号版本的entry#!/usr/local/bin/perluse Tk;my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame() -> pack();my $lab = $frm_name -> Label(-text=>"Nam原创 2015-02-02 18:38:51 · 596 阅读 · 0 评论 -
滚动条
同时创建一个部件和滚动条一个滚动条是 显示2个箭头,在滚动条的2侧,中间部分是滑动块它提供了相关窗口的信息,来显示一些排序的文档。滑动块的位置和尺寸表明文档可见的部分#!/usr/bin/perl -w use Tk; my $mw = new MainWindow; $f = $mw->Frame( )->pack(-side => 'top', -expand => 1原创 2015-02-02 18:38:20 · 518 阅读 · 0 评论 -
滚动条和滑动块
Scrollbar : 滚动条Scale 滑动块滚动条是一个衍生的部件,用于联系滚动条的部件,如果你想要创建一个部件附上滚动条,你会无疑的明白这个特性的用处,它通常会降低代码的数量。创建一个部件和滚动杆,可以用滚动的方式。$widget = $parent->Scrolled('Widget', -scrollbars => 'string' [, options ]);原创 2015-01-30 21:52:18 · 827 阅读 · 0 评论 -
函数引用
my %sub_of = ( 1 => sub{ print "program 1" }, 2 => sub{ print "program 2" }, 3 => sub{ print "program 3" }, 4 => sub{ print "program 4" }, 5 => sub{ print "program原创 2015-01-30 23:58:03 · 582 阅读 · 0 评论 -
按钮 单行文本 标签
一个部件在图形用户接口的一个对象,或者说是出现在屏幕上的对象的名字。如果你要显示一个按钮.这里有很多类型的部件。使用文本按钮,或者entry 按钮部件的变量必须唯一按钮:按钮可以配置去执行一些代码,当按下按钮后按钮通常会指向一个函数,当按下按钮时,就运行函数。text=>"TEXT" :TEXT will be the text displayed on the bu原创 2015-01-30 21:54:15 · 641 阅读 · 0 评论 -
Perl Pack写的一个数据报表程序
use Tk; use DBI; # Main Window##my $mw = new MainWindow;my $mw = MainWindow->new(-title => 'system monitor');#my $frm1 = $mw -> Frame() ->pack(-side=>"top",-fill => 'x');my $but1 =$frm1 -> Bu原创 2015-01-28 23:44:39 · 604 阅读 · 0 评论 -
Perl 使用Label 标签
#!/usr/local/bin/perluse Tk;use dbi;# Main Windowmy $mw = new MainWindow;#GUI Building Areamy $lab = $mw -> Label(-text=>"BBBBBBBBBBBB");##插入一行空白标签my $lab1 = $mw -> Label();my $lab2 = $m原创 2015-01-25 13:37:20 · 1799 阅读 · 0 评论 -
滚动条
Scrollbar : 滚动条Scale 滑动块滚动条是一个衍生的部件,用于联系滚动条的部件,如果你想要创建一个部件附上滚动条,你会无疑的明白这个特性的用处,它通常会降低代码的数量。创建一个部件和滚动杆,可以用滚动的方式。$widget = $parent->Scrolled('Widget', -scrollbars => 'string' [, options ]);原创 2015-01-29 11:21:40 · 653 阅读 · 0 评论 -
pack 布局参数
#!/usr/bin/perl -wuse Tk;use Tk::BrowseEntry;use strict;## (-title => 'Font Viewer' ) 标题,窗口的标题my $mw = MainWindow->new(-title => 'xxoo');##框体布局在顶部my $f = $mw->Frame->pack(-side => 'top');my原创 2015-01-28 21:08:59 · 815 阅读 · 0 评论 -
Perl Tk介绍
Perl/Tk 也被称为pTk 是一个模块和代码的集合,尝试结合TK8动态内存 I/O 和面向对象。它是一种解释脚本语言具有用户图形界面Perl是实录提取和报告语言:Perl是一个优化的处理文本文件的解释语言,从这个文本中提取信息。基于这些信息产生报告,用于系统管理任务的语言,Perl是为了实际容易使用 高效的 完整的 相原创 2015-01-28 18:25:35 · 3120 阅读 · 0 评论 -
Tk::Table
NAME Tk::Table - Scrollable 2 dimensional table of Tk widgetsSYNOPSIS use Tk::Table; $table = $parent->Table(-rows => number, -columns => number,原创 2015-01-31 15:21:55 · 1381 阅读 · 0 评论 -
Radiobutton 和 Checkbutton 按钮
Radiobutton 选项按钮:Choices 1 | 2 | 3选项按钮是一个从多个选择中选择一个输入,如果一个选项被选择后-command=>COMMAND 设置当点击时呼叫的程序:-variable => \$value 当按钮被选择后指定一个值给$variablevalue => VALUE 将按钮的结果给$value这个时候项目受到了很大的改变,布原创 2015-01-31 12:25:56 · 891 阅读 · 0 评论 -
Perl Tk设置标签字体
#my $frm_menu = $mw -> Frame() ->pack(-side=>"top",-fill => 'x');#my $txt = $frm_menu -> Scrolled('Text',-width => 50,-scrollbars=>'e') -> pack ();原创 2015-01-31 14:31:56 · 1399 阅读 · 0 评论 -
代码版本《1》
#!perl -wuse 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_原创 2015-02-01 21:19:21 · 484 阅读 · 0 评论 -
下拉菜单全全部代码
#!perl -wuse 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_原创 2015-01-31 10:04:50 · 1182 阅读 · 0 评论 -
Canvas 图形
The command $widget -> create type options is used to make different structures A few examples are givenbelow For more information read the manualExample#!/usr/local/bin/perluse Tk;# Main Window原创 2015-01-30 21:52:35 · 612 阅读 · 0 评论 -
Tk 第一个正式小系统
原创 2015-01-31 10:07:18 · 1333 阅读 · 0 评论 -
-command 用的是函数的引用
use Tk;# Main Windowmy $mw = new MainWindow;my $label = $mw -> Label(-text=>"Hello World") -> pack();my $button = $mw -> Button(-text => "Quit",-command =>\&exitProgam)-> pack();$var = \&exitPr原创 2015-01-31 09:09:54 · 558 阅读 · 0 评论 -
Perl 子程序变量外部使用--又称为闭包
my $var = "aaaaaaaaa";print "1---\$var is $var\n";&fun1;&fun2;#子程序用的变量会被销毁print "3---\$var2 is $var2\n";print "4----\$var2 is $$var3\n";sub fun1{ print "2----\$var is $var\n"};##外部变量在子程原创 2015-02-01 15:03:43 · 1041 阅读 · 0 评论