Christian,
Increase the height of your combo boxes.
Felice
Koul Christian <[EMAIL PROTECTED]> on 01/15/2001 09:39:42 AM
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
cc: (bcc: Felice Vittoria/Aut/Schneider)
Subject: [perl-win32-gui-users] Combobox
Hi all,
I dont have my items in the combobox. The code is here below. can
somebody
tell me where i am wrong?
****************************
use Win32::GUI;
$menu = Win32::GUI::MakeMenu(
"&Fichier" => "Fichier",
" > &Fermer" => "Terminer",
"&Aide" => "Informations",
" > &Soft" => "SoftAide",
);
$Frame = new Win32::GUI::Window(
-top => 100,
-left => 150,
-width => 500,
-height => 400,
-name => "Frame",
-title => "Module de demande",
-menu => $menu,
);
$QtyText = $Frame->AddTextfield(
-name => "QtyText",
-left => 300,
-top => 74,
-width => 31,
-height => 20,
);
$Menubox1 = $Frame->AddCombobox(
-name => "Menubox1",
-left => 35,
-top => 74,
-width => 95,
-height => 20,
-style => WS_VISIBLE | 2 | WS_NOTIFY,
);
$Menubox2 = $Frame->AddCombobox(
-name => "Menubox2",
-left => 166,
-top => 74,
-width => 95,
-height => 20,
-style => WS_VISIBLE | 2 | WS_NOTIFY,
);
for $i ( 0 .. 5 ) {
$Menubox1->InsertItem($i);
$Menubox2->InsertItem($i*$i);
}
$Frame->Show();
Win32::GUI::Dialog();
sub Terminer_Click {
&Frame_Terminate;
}
sub Frame_Terminate {
-1;
}
*********************************
--
Sincerely.
__________________
Christian Koul
Civil Engineer
Unité Statistique - Fucam
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
