关于PERL的TK窗口

fang3984581

标题的这个图标怎么样修改???

首天

添加一张图片，大小最好是32x32以下
在$mw后面添加以下代码：
my $icon = $mw->Photo('-format' => 'png',-file => '/directory/icon.png');#此处图片的路径可以是完整的路径
my $mw->iconimage($icon);#设定窗口标题的ico图标

fang3984581

添加一张图片，大小最好是32x32以下
在$mw后面添加以下代码：
my $icon = $mw->hoto('-format' => 'png' ...
首天 发表于 2011-11-20 08:24

这是什么问题

首天

这是什么问题
fang3984581 发表于 2011-11-20 19:17

错误是a.png这个文件的问题，a.png必须是png格式的图片，不能将bmp，jpeg格式的文件改个文件名。

fang3984581

PNG图片还是不行

首天

PNG图片还是不行
fang3984581 发表于 2011-11-26 03:04

把你程序的代码以及png图片传上来看看。

fang3984581

回复 6# 首天


    use Tk;

my $mw = MainWindow->new;

my $icon = $mw->Photo('-format' => 'png',-file => '/directory/icon.png');#此处图片的路径可以是完整的路径
my $mw->iconimage($icon);#设定窗口标题的ico图标

$mw->title("Bad Window");
$mw->Label(-text => "This is an example of a window that looks bad\nwhen you don't
send any options to pack")->pack;

$mw->Checkbutton(-text => "I like it!")->pack;
$mw->Checkbutton(-text => "I hate it!")->pack;
$mw->Checkbutton(-text => "I don't care")->pack;
$mw->Button(-text => "Exit",
            -command => sub { exit })->pack;
MainLoop;

Perlvim

把那個TK圖標找出來替換掉就可以了，在安裝目錄裏。
注意大小，格式一樣才行。

首天

回复  首天


    use Tk;

my $mw = MainWindow->new;

my $icon = $mw->hoto('-format' => 'png ...
fang3984581 发表于 2011-11-27 01:19

在开始加上一句use Tk:NG;即可，下图是运行你的程序显示的效果。

首天

代码如下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Tk;
   
5. use Tk::PNG;
   
6. 
   
7. my $mw = MainWindow->new;
   
8. my $icon = $mw->Photo('-format' => 'png',-file => 'd:/a.png');
   
9. $mw->iconimage($icon);
   
10. $mw->title("Bad Window");
    
11. $mw->Label(-text => "This is an example of a window that looks bad\nwhen you don't
    
12. send any options to pack")->pack;
    
13. 
    
14. $mw->Checkbutton(-text => "I like it!")->pack;
    
15. $mw->Checkbutton(-text => "I hate it!")->pack;
    
16. $mw->Checkbutton(-text => "I don't care")->pack;
    
17. $mw->Button(-text => "Exit",
    
18.             -command => sub { exit })->pack;
    
19. MainLoop;

复制代码