Win32::GUI 更新托盘图标不起作用

Posted 2023-02-21

【中文标题】Win32::GUI 更新托盘图标不起作用

【英文标题】：Win32::GUI update tray icon does not work

【发布时间】：2015-03-28 19:28:22

【问题描述】：

托盘图标没有改变。可能是什么原因？ 我正在使用最新的 Strawberry Perl v5.20.2 x86、Win32::GUI v1.11、Windows 7 x64。

use strict;
use warnings;
use Win32::GUI;


my $main = Win32::GUI::Window->new(
-name => 'Main',
-text => 'Perl',
-width => 200,
-height => 200
);

my $icon = new Win32::GUI::Icon('1-0.ico');
my $ni = $main->AddNotifyIcon(
-name => "NI",
-icon => $icon
);

my $icon2 = new Win32::GUI::Icon('0-0.ico');


Win32::GUI::Dialog();
while(1)

    $ni->Change( -icon => $icon );
    sleep(5);
    $ni->Change( -icon => $icon2 );
    sleep(5);

【参考方案1】：

Win32::GUI::Dialog();

必须放在 while 循环之后才能工作。 :(

【讨论】：

没有实际解释为什么这是对一个措辞不好的问题的一个相当糟糕的答案。 “不行吗？” 真的吗？