Tkx如何替换掉程序运行后的tk图标?

haijunzeng

用的是Tkx,
运行后的程序最左上角, 默认是红色的tk图标,
我想换成公司图标, 不知道怎么换.

搜了下网上,也没搜到.
有请大侠帮忙.

iamlimeng

Win32::GUI是这样的：

1. my $icon = new Win32::GUI::Icon("icon.ico");
   
2. my $wm_class = new Win32::GUI::Class(
   
3.         -name => 'Limeng',
   
4.         -icon => $icon,
   
5. );
   

复制代码

TK应该类似吧

haijunzeng

试出来了，但还有 iconify , iconmask, iconname, iconphoto , iconposition, iconwindow 不知道怎么用的？ 反正在win7 下， 用iconbitmap 在我电脑上可以

#!/usr/bin/perl -w
use Tkx;
my $mw = Tkx::widget->new(".");
$mw->g_wm_iconbitmap("apex.ico");
Tkx::MainLoop();

其中，apex.ico 为程序目录下的一ico图标文件

uiojkl227

回复 3# haijunzeng


谢谢。请问 g_wm_iconbitmap这个函数的源码在哪个包里呢？

   

uiojkl227

回复 4# uiojkl227



这些是tcl中tk的命令，tkx只是将命令包装了。
   

roacky

这样是可以实现,缺点就是 这个apex.ico 文件一直要放在script 目录下, 把脚本生成.exe后这个文件必须跟.exe 放在一起.
还不知道怎么一起打包成.exe, 郁闷一天了~

cdjmzj

回复 6# roacky

win32::gui中有个内联图片，不会用Tkx,看以不能给你点思路


To create a BitmapInline:

    perl -MWin32::GUI::BitmapInline -e "inline('image.bmp')" >>script.pl
To use a BitmapInline (in script.pl):

    use Win32::GUI();
    use Win32::GUI::BitmapInline ();
   
    $Bitmap1 = Win32::GUI::BitmapInline->new( q(
    Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAIAAAAAAAAAAAAAAABAAAAAQAAAAAAAA
    AACcnABjzs4A9/f3AJzO/wCc//8Azv//AP///wD///8A////AP///wD///8A////AP///wD///8A
    ////AHd3d3d3d3d3d3d3d3d3d3dwAAAAAAAABxIiIiIiIiIHFkVFRUVEQgcWVVRUVFRCBxZVVVVF
    RUIHFlVVVFRUUgcWVVVVVUVCBxZVVVVUVFIHFlVVVVVVQgcWZmZmZmZSBxIiIiIRERF3cTZlUQd3
    d3d3EREQd3d3d3d3d3d3d3d3
    ) );

roacky

经过几天的研究终于彻底根治, 其实只要更改 c:\Perl\site\lib\auto\Tk\Tk.dll 里面的ico 就ok 了~

roacky

回复 7# cdjmzj


    谢谢~~