You may want to refer to the following sites: http://msdn.microsoft.com/library/devprods/vs6/visualc/vcmfc/_mfc_extended_window_styles.htm http://msdn.microsoft.com/library/psdk/winui/dlgboxes_1flf.htm http://msdn.microsoft.com/library/techart/msdn_styles32.htm I found the last one to be the most digestible. ------Original Message------ From: "Anthony George" <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Sent: May 18, 2000 4:52:22 PM GMT Subject: Re: [perl-win32-gui] passing user input from a textfield to a scalar I understand that. And I know they are listed in GUI.pm, but I was wondering if you or someone else knew what they all/some did and what effects they had, or whether it's just experimenting, and whether you or someone else would mind sharing that knowledge?? >tony Jonathan Southwick wrote: > These lines came directly from a program I have written. > > Jonathan > -------------------------------------------------------------- > Jonathan Southwick [EMAIL PROTECTED] > Technical and Network Services > Allegheny College > Meadville, PA 16335 814-332-2755 > > ----- Original Message ----- > From: "Anthony George" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Thursday, May 18, 2000 9:51 AM > Subject: Re: [perl-win32-gui] passing user input from a textfield to a scalar > > > All the constants that you use in this example, do you have a list of what effect > > they have, or is it mostly experimenting? > > >tony > > > > Jonathan Southwick wrote: > > > > > Aaron, > > > > > > Here is how I do it and it works fine: > > > > > > ## This is the window creation > > > $adduser = new GUI::DialogBox( > > > -title => "Add User Info", > > > -left => 387, > > > -top => 200, > > > -width => 280, > > > -height => 195, > > > -class => $adduser_class, > > > -font => $F, > > > -name => "AddUserWindow", > > > -style => WS_BORDER | DS_MODALFRAME | WS_CAPTION | WS_POPUP | WS_SYSMENU, > > > -exstyle => WS_EX_DLGMODALFRAME | WS_EX_WINDOWEDGE | WS_EX_CONTROLPARENT, > > > ); > > > > > > ## I add the text label here > > > $adduser->AddLabel( > > > -text => "First name: ", > > > -left => 10, > > > -top => 10, > > > ); > > > > > > ## I add the textfield here > > > $fname_input = $adduser->AddTextfield( > > > -left => 120, > > > -top => 8, > > > -width => 105, > > > -height => 22, > > > -tabstop => 1, > > > ); > > > > > > ## I get the value of the textfield in this subroutine > > > sub Proceed_Click { > > > $fname = $fname_input->Text; ## This is the line to pat attention to > > > $lname = $lname_input->Text; > > > $room = $rm_input->Text; > > > $building = $bld_input->Text; > > > $adapteraddress = lc($adap_input->Text); > > > $validinput = CheckInput(); > > > $adduser->PostQuitMessage(0); > > > return; > > > } > > > > > > Jonathan > > > -------------------------------------------------------------- > > > Jonathan Southwick [EMAIL PROTECTED] > > > Technical and Network Services > > > Allegheny College > > > Meadville, PA 16335 814-332-2755 > > > > > > ----- Original Message ----- > > > From: "Aaron Smith" <[EMAIL PROTECTED]> > > > To: <[EMAIL PROTECTED]> > > > Sent: Wednesday, May 17, 2000 4:57 PM > > > Subject: Re: [perl-win32-gui] passing user input from a textfield to a scalar > > > > > > > Could someone expand on this, or point me to more information? If I try > > > > things this way (my $scalar=Window->text->Text();), I get the following error: > > > > > > > > Can't locate auto/Win32/GUI/Textfield=HASH(0x87651b8).al in @INC (@INC > > > > contains: > > > > c:/perl/lib/site C:/Perl/lib C:/Perl/site/lib .) at test.pl line 62 > > > > > > > > And my line 62 reads: > > > > > > > > my $x = $Dialog->$FirstName->Text(); > > > > > > > > Without the above line, the program runs fine. > > > > > > > > $FirstName is just an AddTextField. I assume my syntax is just wrong. But I > > > > don't know how. Can anyone shed some light, or point me to some reference > > > > that might shed some light? Thanks in advance. > > > > > > > > Aaron > > > > > > > > > > > > At Sunday 5/7/00 05:35 PM +0700, you wrote: > > > > >From: Chris Etzel > > > > > >How do I pass the input from the textfield to a scalar > > > > > my $scalar=Window->text->Text(); > > > > > > > > > >should do it. > > > > >Please post in plain text > > > > > > > > > >Rob > > > > >http://bangkokwizard.com/ > > > > >Learn what you know. Share what you don't. > > > > > > > > > > > > ---------- > > > > Aaron Smith - [EMAIL PROTECTED] > > > > GW Micro, Inc. > > > > Support & Web Development > > > > WWW: http://www.gwmicro.com > > > > FTP: ftp://ftp.gwmicro.com > > > > Voice - 219-489-3671 > > > > Fax - 219-489-2608 > > > > > > > > > > > > > > > > > > > > > > ----------------------------------------------- FREE! The World's Best Email Address @email.com Reserve your name now at http://www.email.com
begin:vcard n:George;Anthony tel;pager:(231) 315-4709 tel;cell:(231) 730-2863 tel;fax:(231) 720-1681 tel;work:(231) 720-1481 x-mozilla-html:TRUE url:http://www.emsts.com org:EMS Technical Services adr:;;965 Fork;Muskegon;MI;49442;USA version:2.1 email;internet:[EMAIL PROTECTED] title:Systems Engineer fn:Anthony C. George end:vcard
