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-&