hmmm, like a kid on christmas! thanks!!
>tony

David Welden wrote:

> 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

Reply via email to