|
From: Koul C. <chr...@fu...> - 2001-01-15 14:37:32
|
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 =3D Win32::GUI::MakeMenu(
"&Fichier" =3D> "Fichier",
" > &Fermer" =3D> "Terminer",
"&Aide" =3D> "Informations",
" > &Soft" =3D> "SoftAide",
);
$Frame =3D new Win32::GUI::Window(
-top =3D> 100,
-left =3D> 150,
-width =3D> 500,
-height =3D> 400,
-name =3D> "Frame",
-title =3D> "Module de demande",
-menu =3D> $menu,
);
$QtyText =3D $Frame->AddTextfield(
-name =3D> "QtyText",
-left =3D> 300,
-top =3D> 74,
-width =3D> 31,
-height =3D> 20,
);
$Menubox1 =3D $Frame->AddCombobox(
-name =3D> "Menubox1",
-left =3D> 35,
-top =3D> 74,
-width =3D> 95,
-height =3D> 20,
-style =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
$Menubox2 =3D $Frame->AddCombobox(
-name =3D> "Menubox2",
-left =3D> 166,
-top =3D> 74,
-width =3D> 95,
-height =3D> 20,
-style =3D> 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=E9 Statistique - Fucam
|