- 论坛徽章:
- 0
|
#!perl -w
use strict;
use warnings;
use Win32::GUI qw(WS_CLIPCHILDREN WS_EX_CLIENTEDGE);
use Win32::GUI::AxWindow();
use Win32::OLE();
use Win32::TieRegistry();
my $DOS = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
my $Main = Win32::GUI: ialogBox->new(-name => 'Main',
-text => 'V131230',
-width => 300,
-height => 400,
-topmost => 1,
);
$Main->AddTreeView(
-name => 'TV',
-pos => [5,5],
-size =>[280,350],
-rootlines => 1,
-lines => 1,
-buttons => 1,
);
$Main->Center();
$Main->Show();
Win32::GUI:ialog();
$Main->Hide();
undef $Main;
exit(0);
TreeView窗口不知道怎麽添加 |
|
免费注册
发表于 2013-12-30 13:13
