Erick,
No, actually I meant what I thyped:
$HostName ->Select(0);
It works for me.
Make sure you place that before your
Win32::GUI::Dialog() call or somewhere where it will get called from a specific
sub.
Try this short code and see if it
works:
=====================================
use Win32::GUI;
my $screen_width =
Win32::GUI::GetSystemMetrics(0);
my $screen_height =
Win32::GUI::GetSystemMetrics(1);
my $minwidth = 620;
my $minheight =
255;
my $MainWindow = new
Win32::GUI::Window(
-name =>
"MainWindow",
-top => ($screen_height -
$minheight)/2,
-left => ($screen_width -
$minwidth)/2,
-width => $minwidth,
-height =>
$minheight,
-minsize=> [$minwidth,$minheight],
-title
=> "Sample Window",
);
$HostName =
$MainWindow->AddCombobox(
-name
=> "HostName",
-tabstop =>
1,
-style => WS_VISIBLE | 2 |
WS_NOTIFY,
-left =>
205,
-top =>
10,
-width =>
110,
-height =>
160,
);
$HostName->InsertItem
("ftp.server1.com");
$HostName->InsertItem
("ftp.server2.com");
$MainWindow->Show();
$HostName->Select(0);
Win32::GUI::Dialog();
=============================================
Let me know if it still doesn't work for
you.
----- Original Message -----
Sent: Tuesday, January 23, 2001 2:22
PM
Subject: [perl-win32-gui-users]
Combobox
Johnathan,
Do you mean $HostName ->Select[0];
I tried both ways, both don't work.
erick