categorized question
QandAEditors
here is a (modified) program that i've been working on
the original code comes from a gentleman named Jonathan
(the rest is left out to protect anonimity)<br><br>
it's a pretty simple proggie and dosen't really do anything
but it runs (if you've installed win32::GUI). it's a reasonable "hello world" level example of how to make
a window and how to put buttons and stuff on it<br><br>
i've added some comments ... i've also admitted
where i don't know what's going on ... if you do, changing the
comments to make them more useful would really be just GREAT <g><br><br>
in the "theListBox" function at the bottom i need some help
if you know how to do this, please help<br><br>
for the rest, i hope it helps the "newbies"<br><br>
<code>
use Win32::GUI;
# i don't know what this line is for but i assume you need it <g>
($DOShwnd, $DOShinstance) = GUI::GetPerlWindow();
# these lines close the dos window that pops up after executing the
# program from windows ... for testing, i'd leave them commented out
# click on the "headcount" button to see why
#
#GUI::CloseWindow($DOShwnd);
#GUI::Hide($DOShwnd);
# these are also important (i geuss) but i don't know why
my $screen_width = Win32::GUI::GetSystemMetrics(0);
my $screen_height = Win32::GUI::GetSystemMetrics(1);
# set the constants used for the dimensions of your box
my $minwidth = 350;
my $minheight = 200;
# if you have an icon handy when you run this
# section that icon becomes the fancy picture your
# program uses (you also got to un-comment the
# appropriate line under $DataWindow
#
# my $dbv_icon = new Win32::GUI::Icon("My.ico");
#
# my $dbv_class = new Win32::GUI::Class(
# -name => "My Funky Class",
# -icon => $dbv_icon,
#);
my $DataMenu = new Win32::GUI::Menu(
# pulldown heading, note the "&" andpersand,
# in this context it is used to indicate
# which letter gets the little underliney bit
"&File" => "File",
# pulldown subheading
" > Open &Headcount" => "Headcount",
# pulldown subheading separator
" > -" => 0,
" > E&xit" => "FileExit",
# This is to re-enforce menu-building structure
"&Next" => "AnotherMenuHeading",
" > -" => 0,
);
# hopefully this is self explanitory
$DataWindow = new Win32::GUI::Window(
-name => "DataWindow",
# orientation, where the window starts
-top => ($screen_width - $minwidth)/2,
-left => ($screen_height - $minheight)/2,
# taken from the constants above ... these are the dimensions o
-width => $minwidth,
-height => $minheight,
-title => 'Simple Win32::GUI Window ' .
"- by Alex Chesser (with some blatant CutandPaste from Jonathan) ",
#put the menu (defined in "$DataMenu" above) onto the window
-menu => $DataMenu,
# make a little icon (notes above)
#-class => $dbv_class,
);
# this is where we build and orient the
# listbox, it's sortof like painting it
# on the window
$theListBox = $DataWindow->AddListbox(
-name => "TheListBox",
-text => "&The List Box",
-top => 30,
-left => 15,
-height => 120,
-width => 20,
-multisel => 0,
);
$theListBox->InsertItem('0');
$theListBox->InsertItem('1');
$theListBox->InsertItem('2');
$theListBox->InsertItem('3');
$theListBox->InsertItem('4');
$theListBox->InsertItem('5');
$theListBox->InsertItem('6');
$theListBox->InsertItem('7');
# same as $theListBox but for a button
# i included this one to show you
# something that works ;)
$Headcount = $DataWindow->AddButton(
-name => "Headcount",
-text => "Open &Headcount",
-top => 15,
-left => $DataWindow->ScaleWidth -95,
-width => 90,
-height => 25,
);
# after the above "painting" stage, we display the window.
$DataWindow->Show();
# then we tell it to enter a "mainloop", essentially
# sit there and and wait for inputs
# (for fun, comment it out and see what happens to the program)
Win32::GUI::Dialog();
# if the button named "Headcount" gets a "_Click", run this sub
sub Headcount_Click {
my $headcount_filename = Win32::GUI::GetOpenFileName();
print "$headcount_filename,$ListSelection\n";
}
# this is the bit that i'd like some help with
# i'd like to set
#
sub TheListBox_Click {
my $ListSelection = $theListBox->SelectedItem();
print ",$ListSelection\n";
}
# someone clicks File->exit
sub FileExit_Click {
exit(0);
}
# someone clicks the 'X' window (haha ... not the X-window but the x on the window)
sub DataWindow_Terminate {
exit(0);
}
</code>
15433