[perl-win32-gui-users] newbie - trying to get data from text box

[Michael S. <MSo...@3s...>]

I have just started looking at Win32 Gui

What I want to do is put up a text box and allow a user to enter data then
capture it

By looking at code posted here I have written the following:

use Win32::GUI; 
  
         $Frame = new Win32::GUI::Window( 
              -name => "aFrame", 
               -top => 100, 
                -left => 150, 
             -width => 350, 
              -height => 200, 
               -title => "Test Win32::GUI", 
            ); 
        $Frame->AddTextfield( 
                -name => "aTextField", 
                 -top => 50, 
                  -left => 20, 
                   -height => 20, 
                    -width => 300, 
                -prompt => "Type a text here : ", 
           ); 
         $Frame->AddButton( 
              -name => "aButton", 
               -text => "OK", 
                -top => 90, 
             -left => 150, 
              -height => 25 
               -width => 50, 
               ); 
   
         $Frame->Show(); 
   
          Win32::GUI::Dialog(); 
    
       sub aFrame_Terminate { 
               -1; 
          } 
    
sub aButton_Click {
		print "test\n";
		&aFrame_Terminate;
}


What I haven't worked out how to do is to access the text entered.

Also I want the cursor to start in the text box rather than having to click
on it.

Any help will be gratefully received.

Regards


Mike Solomon
Technical Manager
Work     01582 831125
Mobile 07941 537 172
email   mso...@3s...

============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential.  If you are
not
the named recipient please notify us immediately.  You must not copy or
disclose
the contents to any third party.

Internet e-mail is not a fully secure communications medium.  Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks. 

www.3s-group.com

=========================================================================