Re: My first gui
"valery_vi" <[email protected]>
| Newsgroups | gmane.comp.windows.autoit.user |
|---|---|
| Message-ID | <[email protected]> |
Try this:
#include <GUIConstants.au3>
GUICreate("Form Fillter by Rick KirkhamsEbooks.com", 450, 400)
$LabelUserName = GUICtrlCreateLabel("User Name: ", 10, 10, 100, 20)
$UserName = GUICtrlCreateInput("", 110, 10, 200, 20)
GUICtrlSetTip ($UserName,'Type user name...')
$LabelPassword = GUICtrlCreateLabel( "Password: ", 10, 40, 100, 20)
$Password = GUICtrlCreateInput( "", 110, 40, 200, 20)
GUICtrlSetTip ($Password,'Type pasword...')
$LabelTitle = GUICtrlCreateLabel( "Title:", 10, 70, 100, 20)
$Title = GUICtrlCreateInput( "", 110, 70, 200, 20)
GUICtrlSetTip ($Title,'Type title ...')
$EditLabel = GUICtrlCreateLabel( "Body:", 10, 100, 100, 20)
$Edit = GUICtrlCreateEdit( "<Fill lines and press button View, please
>", 110, 100, 280, 200)
GUICtrlSetTip ($Edit,'Type body of this form ...')
$View = GUICtrlCreateButton ("View", 200, 330, 50)
GUICtrlSetTip ($View,'Press to see content of form...')
GUISetState () ; will display an dialog box with 2 button
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $View
$Content = ''
$Content &= 'UserName: ' & GuiCtrlRead($UserName) & @CrLf
$Content &= 'Password: ' & GuiCtrlRead($Password) & @CrLf
$Content &= 'Title: ' & GuiCtrlRead($Title) & @CrLf
$Content &= 'Body: ' & GuiCtrlRead($Edit) & @CrLf
MsgBox(0,'Content of form', $Content)
EndSelect
Wend
Now you can start and develop it to make GUI wished.
Valery
--- In [email protected], "Sensei J. Richard Kirkham B.Sc"
<tutor2000@...> wrote:
>
> Aloha
>
> I can make the buttons I found that example
>
> But I need to make a text box right by the buttons
>
> How do I do that?
>
> Rick
>
> #include <GUIConstants.au3>
> GUICreate("Form Fillter by Rick KirkhamsEbooks.com") ; will create
a dialog box that when displayed is centered
> Opt("GUICoordMode",2)
> $Button_1 = GUICtrlCreateButton ("User Name", 10, 30, 100)
> $Button_2 = GUICtrlCreateButton ( "Password", -1,0)
> $Button_3 = GUICtrlCreateButton ( "Title", -1,0 )
>
> GUISetState () ; will display an dialog box with 2 button
> ; Run the GUI until the dialog is closed
> While 1
> $msg = GUIGetMsg()
> Select
> Case $msg = $GUI_EVENT_CLOSE
> ExitLoop
> Case $msg = $Button_1
> Run('Notepad.exe') ; Will Run/Open Notepad
> Case $msg = $Button_2
> MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will
demonstrate Button 2 being pressed
> EndSelect
> Wend
>