• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

perltk说明

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

介绍:

perl/Tk(也被称为pTK) 是一个模块和代码的收集,尝试 简单的配置Tk 8 部件工具包到强大的词素文文字,

动态内存,I/O, 和面向对象,它是一种解释脚本语言 来制作部件和程序 使用GUI


Perl 或者 提取和报告语言是有Larry Wall设计, perl的作者,如下:

 

 


Hello World:

让我们开始,作为其他教程的开始, 以"Hello World"程序创建一个文件 叫做Hello.pl

键入下面的内容到它这里:

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit })
-> pack();
MainLoop;

第一行 #!/usr/local/bin/perl 在Windows里是不需要 在Linux 它告诉脚本语言过程的名字


第2行 use TK, 告诉解释器 我们的程序使用Tk模块  这行是必须的 在所有的GUI 程序里

当解释器遇到这行时,它会加载tk组件 来创建项目。


第三行  这是一行注释  任何行以#开始的是一个注释是不被程序使用的

这是用于程序员来交流的 一个程序员不能被期望记住一个脚本的任何东西

因此使用一个注释来写下 在下次它需要编辑的时候,他可以读注释和了解程序

第四行,my $mw = new MainWindow; 会创建一个windows 窗体 GUI元素会被放置

变量$mv 是MainWindow类型的一个对象 , 我们需要这个元素当我们需要放置任何部件的时候


第五行 $mw -> Label(-text=>"Hello World") -> pack();

标记为标签和写"Hello world" ,你可以改变文本到任何你想要标注的命令结构

$label 这个变量分配到特定的部件 部件必须有一个唯一的变量

这个名字可以用于当部件被访问

$mv->  $mv 是一个MainWindow 的部件 我们需要放置我们的label部件在这个窗体内

Label(-text=>"Hello World") 'Label' 是一个部件的名字,一个部件是一个用户接口对象 在图形用户接口?


只是说 它是对象的名字出现在屏幕里,这里有很多其他部件 如果你需要显示一个按钮,你使用按钮部件

对于文本,你使用文本部件 对于entry ,entry 部件如果你需要,你可以看到更多的部件。

­text=>"Hello World" 这个选项的部件是说 这个部件必须给定文本 "Hello World"选项
改变根据部件

一个按钮部件没有label部件的所有的选项

 

请注意  操作用在这里'=>' 相对于早期使用的'->' 在$mw -> 

一个使用 减号  另外一个使用=号  两者不要混淆。

你可以保持写其他的选项 可以可以写在这里比如,让我们做一个label 用于显示文本框’Hello World"

另外行 类似于Hello World 程序


在这个例子,更多的选项被使用 font选项告诉font 必须被使用来让text 和relief 选项告诉

text 是否出现为raised, sunken, flat 等等 对于一个特定的部件,

阅读手册 它列出了每个部件和每个选项, 如果你想要用Perl编程,


所有的选项 必须通过逗号分隔,但是你需要指出,这个行是有点难度的  当大量的选项增加时,

$mw -> Label(-text=>"Hello World",
-font=>"courierfont",
-relief=>"raised")
-> pack();

接下来是 ->pack();

这个会pack 部件  '$label' 到windows  '$mw' 


 ’pack' 是一个部件管理器
 
 另外一个布局期是'grid',对于个人来说 grid 相对更好,  把所有这些放在一行 会很难受,你可以放在下一行
 
 my $label = $mw -> Label(-text=>"Hello World")
-> pack();

在这种情况下,  pack 没有选项 ,但不总是这样。

my $label = $mw -> Label(-text=>"Hello World")
-> pack(-side=>"left",
-anchor=>'w');


你没有 pack部件在相同行,但是它是方便与小的程序 ,你可以稍后pack部件 使用部件的变量:

my $label = $mw -> Label(-text=>"Hello World"); #We created the widget
$label -> pack(-side=>"left", -anchor=>'w'); #We pack it in another line


因此 我们有最终的语法 如何创建和显示一个部件:

my $WidgetVariable = $Window -> WidgetType(?Option 1=>Value 1, ?Option 2=>Value
2 ??) -> pack()

下面的3行:
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit })
-> pack();

将创建和显示一个按钮 ,部件变量 是'$button'  当我们查看这个选项时候,

我们会找到两个选项 'text' 和 'command'   给出的text 是Quit

因此按钮会有一个text "Quit" 在它上面 命令选项确定 上面应该发生 当用户clik 按钮,

你可以指定一个函数来执行,当用户clicks 一个按钮 在这种情况下


程序会退出 当这个按钮被执行

你可以调用函数,你已经创建的。


#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Quit",
-command =>\&exitProgam)
-> pack();
MainLoop;

sub exitProgam {
###弹出一个消息框
$mw->messageBox(-message=>"Goodbye");
exit;
}

下一行-MainLoop;

是主循环或者Event Loop 它的工作是调用callbacks 来响应events

比如 button 按下或者定时器触发, 如果这行丢失,

程序会允许,退出 不等待用户做任何事情, 这是另外一种 Tk程序必须的

Widgets 1 : Button, Entry, Label 按钮,Entry,标签

一个widget 是一个用户接口对象 在X 图形用户接口?

我们只是说 它是对象的名字,出现在屏幕上

这里有很多类型部件 如果你要显示一个按钮, 这里有很多部件类型

如果你要显示一个按钮,你使用按钮部件

比如文本框,你使用文本框部件

输入框, entry 部件

my $WidgetVariable = $Window ­> WidgetType(?Option 1=>Value 1, ?Option 2=>Value 2 ??) ­> pack();


三件事情需要说明 关于部件

首先是 部件变量,

第一件事是 部件变量  我在之前已经解释了 所有部件的部件变量

必须是一个唯一的,被使用 当部件需要被2次访问

每个部件有一些选项,可以用来配置

这通常当部件被定义时就被做了,但是也可以后面做

最后的事情是命令 每个部件有一些命令,可以用于配置或者让它做一些事情。


但是在我们开始之前, 我们需要知道一个关于pack命令的东西

pack 是一个布局管理器另外一个布局管理器是'grid'

我们后面会解释 pack 是更加简单的相比grid


Button:

这个会使一个按钮来执行一些代码,当按钮被执行 这个通常指向一个函数

因此当按钮被点击后,这个函数会运行一个按钮 这个按钮时创建使用HTML 输入tag:

一些选项:

­text=>"TEXT"                TEXT 会被显示在按钮上

­command=>CALLBACK           CALLBACK 当按钮被点击时被调用

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $but = $mw -> Button(-text => "Push Me",
-command =>\&push_button);
$but -> pack();
MainLoop;
#This is executed when the button is pressed
sub push_button {
whatever
}

你可能已经注意到 我是用了一个 slash(\)  在这个命令回调

Entry: 输入框


一个entry 是一个部件 显示一个一行文本字符串,允许用户输入和编辑文件 当一个entry

已经输入 显示一个插入光标来表明 新的字符会被插入

一个entry 元素 显示如下:

一些选项:

­width=>NUMBER                            输入域的宽度 应该是一个整数

­textvariable=>\$VARIABLE                 变量 VARIABLE 的内容 会显示在部件,如果text 在部件被编辑,
                                          变量会被自动编辑
        
­state=>STATE                             属于域的状态可以是normal,disabled, or readonly
                                           如果 是只读的 text不能被编辑
            
一些命令:

语法:                               描述                                      Example

$widget ­> get();                   文本在输入域可以通过这个命令拿到           $name = $ent ­> get();


$widget ­> delete(FIRST?,LAST?);   

entry FIRST 删除一个或者多个元素

FIRST 是 第一个字符的索引来删除

LAST 是最后字符在最后一个来删除的index

如果last 没有被指定 默认是FIRST +1,


ie 是一个单独的字符 被删除 这个命令返回一个空的字符串

$widget ­> insert(index,"STRING"); 

插入的字符串在 通过Index 之前的字符  index是0 对于第一个字符 

end 可以用于最后的字符

#!/usr/local/bin/perl
use Tk;
use strict;
# Main Window
my $mw = new MainWindow;
my $button = $mw-<Button(-text=<"Show Quit Dailog", -command =< \&exitTheApp)-<pack();
sub exitTheApp {
my $response = $mw -< messageBox(-message=<"Really quit?",-type=<'yesno',-
icon=<'question');
if( $response eq "Yes" ) {
exit
} else {
$mw -< messageBox(-type=<"ok", -message=<"I know you like this application!");
}
}
MainLoop;

chooseColor:

选择颜色出现一个对话框,让用户选择颜色


getOpenFile

过程getOpenFile  和getSaveFile 出现一个对话框 让用户选择一个文件打开或者保存


getOpenFile 命令通常和打开命令在文件菜单里有关系

它的目的是让用户选择一个存在的文件 ,只有用户输入一个非空的文件,

对话框 给用户一个错误提示,需要用户用户给出一个可控选择的 如果应用允许用户创建一个文件

它应该通过提供一个单独的新的menu命令


getSaveFile 命令通常和Save as 命令联系在一起 在文件菜单

如果用户输入一个文件 已经存在的, 对话框提示用户确认 当文件存在 是否应该覆盖

一些选项:

­initialdir=>DIRNAME     

指定目录应该被显示的 当对话框弹出 如果参数没有被指定,

目录在当前网络 工作目录是被显示 如果参数指定了一个相对路径,返回值转换相对路径为绝对路径


­defaultextension=>EXTENSION

指定一个字符串会被附加到文件名 如果用户属于一个文件没有扩展名

默认 值是一个空的字符串,意味着没有扩展 会被追加到文件名。

­filetypes=>filePatternList

 

Toplevel 顶层

toplevel 是一个部件 可以用于创建一个自定义的对话框

一个toplevel 类似于一个窗体 除了toplevel是创建为一个top-level 窗体。


它的X父窗体是屏幕的root windows 相比逻辑父窗体

主要目的是作为一个容器 用于对话框 和其他部件的容易


可以使用toplevel 来创建新的窗体 ,一个部件可以布局在topvele里

Widgets 3 : Radiobutton, Checkbutton


单选按钮:

Radiobutton是一个属于 从多个选项中选择其中一个  如果一个选择和另外一个其他的按钮被点击,

最后的选择会丢失它的状态,被点击的按钮会被选择

Widgets 4 : Listbox  列表框部件:

列表框:

一个列表框 是显示一个字符串的列表,一行一个 ,一个新的列表框没有元素


元素可以被增加或者删除使用部件命令描述如下:

 

部件:  菜单按钮,菜单,选项按钮

Menubutton  菜单按钮:


一个菜单按钮是一个部件显示一个文本的字符串,bitmap,或者图片和菜单部件相关的

一些其他部件 画布,消息,调节器,滚动条

画布:

canvas 部件是非常重要的部件, 因为所有的点是在图形绘图区域

画图部件实现了结构化的图形 ,一个画布显示 任何条目的数量,

像是长方形 ,圆形,线条,和文本项目


Message  消息:

一个消息框 是一个部件显示一个文本字符 很像 label 部件,但是可以用于制造一个多行文本

合法的选项 指定如何证明文本行必须是left,center或者right  默认是to left

这个选项和anchor 选项一起工作

Adjuster  调节器:

一个调节器 表现为frame 部件  ,一个显著的例外

便捷可以被拖动和扩展

这个部件包含任何数目的窗体, 水平或垂直排列,


Scrolled 滚动条:

 

Geometry Management : Grid, Pack  部件管理器 Grid 和Pack


grid 

grid 命令是用于个grid布局管理器联系在一起, 部署部件按行和列,

被称为 部件master(或者master window)

grid 命令可以有几种构成,依赖选项参数:

一些选项:

­sticky => STYLE

这个选项可以用于安置(或者拉伸) 部件 在他的单元格里

包含了0或者多个字符 n,s,e或者w

每个字母 指向一边(north, south,east, or west) 

slave会放置 如果n和s 都被指定,slave会延伸来填满整个高度或者宽度

­ipadx => AMOUNT

指定水平内部填充的数量 在slave的每一边, 这个空间是被增加在slave的边界

 

指定垂直内部填充的数量 在slave的每一边,类似于ipadx


­padx => AMOUNT  指定水平外部填充的数量 在每个slave的两边,

在屏幕单元 AMOUNT可以是2个值得列表来指定 填充 对于单独的left和right

­pady => AMOUNT

指定多少垂直外部填充 来预留top和bottom

Some Common Widget Options  一些公用的部件选项:

大写字母必须被任何粗体的字母替换, 检查手册对于所有的选项

确保你是用的部件支持你使用的选项:

­anchor=>POSITION    安置部件相对的位置:n ne nw s se sw e w 或者center


­background=>COLOR    背景色

­borderwidth=>WIDTH   边界宽度 选择0 会隐藏边界

­command=>SCRIPT  当被调用时 执行脚本

­cursor=>CURSOR     鼠标光标显示当鼠标点击这个部件


disabledforeground=>COLOR       前段颜色 当部件被禁用时

­font=>FONTNAME              前段当部件的状态是nornal


Some Tk Commands  一些Tk命令:

Bind:

bind 命令相关的perl代码 ,如果你要做一些事情当用户双击了一个item 在一个列表框或者

当他按了任何按钮, binds 是你需要让绑定一些在下面的例子:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl语言入门--1--perl的包安装发布时间:2022-07-22
下一篇:
Perl读写Excel简单操作发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap