關(guān)于PERL的TK窗口

fang3984581

標(biāo)題的這個(gè)圖標(biāo)怎么樣修改???

首天

添加一張圖片，大小最好是32x32以下
在$mw后面添加以下代碼：
my $icon = $mw->Photo('-format' => 'png',-file => '/directory/icon.png');#此處圖片的路徑可以是完整的路徑
my $mw->iconimage($icon);#設(shè)定窗口標(biāo)題的ico圖標(biāo)

fang3984581

添加一張圖片，大小最好是32x32以下
在$mw后面添加以下代碼：
my $icon = $mw->hoto('-format' => 'png' ...
首天 發(fā)表于 2011-11-20 08:24

這是什么問題

首天

這是什么問題
fang3984581 發(fā)表于 2011-11-20 19:17

錯(cuò)誤是a.png這個(gè)文件的問題，a.png必須是png格式的圖片，不能將bmp，jpeg格式的文件改個(gè)文件名。

fang3984581

PNG圖片還是不行

首天

PNG圖片還是不行
fang3984581 發(fā)表于 2011-11-26 03:04

把你程序的代碼以及png圖片傳上來看看。

fang3984581

回復(fù) 6# 首天


    use Tk;

my $mw = MainWindow->new;

my $icon = $mw->Photo('-format' => 'png',-file => '/directory/icon.png');#此處圖片的路徑可以是完整的路徑
my $mw->iconimage($icon);#設(shè)定窗口標(biāo)題的ico圖標(biāo)

$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

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

首天

回復(fù)  首天


    use Tk;

my $mw = MainWindow->new;

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

在開始加上一句use Tk:NG;即可，下圖是運(yùn)行你的程序顯示的效果。

首天

代碼如下：

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;

復(fù)制代碼