Perl GUI （未完待续）

  use Win32::GUI;
  use Win32::GUI qw(CW_USEDEFAULT);
  use Win32::GUI::DIBitmap;
  use Win32::GUI::DropFiles;
  my $size = 20;
 
  $W = new Win32::GUI::Window (
              -title    => "lis文件分析",
              -pos      => [100, 100],
              -size     => [400, 400],
              -name     => "Window",
              );

$W->AddTextfield(
    -name => 'inputsize',
    -text => 25,
    -prompt => [ "RAM/ROM值(k):", 80],
    -pos => [10,10],
    -size => [40,20],
    -align => 'right',
    -number => 1,
);

#得到当前选的那个选项
print $W->inputsize->GetLine(0),"\n";
 
$W->AddLabel(
    -name => 'chooselabel',
    -left => 10,
    -top  => $W-&