Question

在Windows操作系统中使用Perl Win32 :: GUI模块开发桌面应用程序时，标题栏中会出现“骆驼”图像（窗口最左侧的图像）。有可能改变那个吗？如是，什么样的图像支持（.gif，.png，.jpg，.ico）？和我需要在下面写的设计窗口中更改/添加哪个属性？

  use strict;
  use Win32::GUI;

  my $main = Win32::GUI::Window->new(
    -name    => "Main",
    -title   => "Win32-GUI:Test",
    -left    => 100,
    -top     => 100,
    -width   => 600,
    -height  => 400,
  );

  sub Main_Terminate() {
    print "Main window terminated\n";
    return -1;
  }


  $main->Show();

 Win32::GUI::Dialog();

注意：我正在开发Windows XP中的应用程序

Answer 1

是的，有可能。使用主窗口的SetIcon方法。

$main->SetIcon($icon);

其中$icon必须是Win32::Icon，Win32::Bitmap或Win32::BitmapInline的实例。

如何更改perl win32 :: GUI窗口标题栏图像？

1 个答案: