Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Цитата sashadeg:
можно ещё несколько полосочек для ввода текста вставить в ОДНО окно? »
Код: Выделить весь код
#include <GUIConstantsEx.au3>

$GUI = GUICreate("AutoIt Example", 300, 160)
GUICtrlCreateLabel("Введите нужный текст во все поля:", 20, 10, 260, 20)
$Input_1 = GUICtrlCreateInput("", 20, 40, 260, 20)
$Input_2 = GUICtrlCreateInput("", 20, 70, 260, 20)
$Input_3 = GUICtrlCreateInput("", 20, 100, 260, 20)

$Ok_Button = GUICtrlCreateButton("OK", 40, 130, 60, 20)
$Cancel_Button = GUICtrlCreateButton("Отмена", 200, 130, 60, 20)
GUISetState(@SW_SHOW, $GUI)

While 1
Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
        Exit ;тут выход вобще из скрыпта при закрытии Gui окна
    Case $Cancel_Button
        GUIDelete($GUI) ;удаляем gui, так как уже не надобно
        MsgBox(0,"Внимание","Была нажата кнопка Отмена поэтому будет выход из цикла")
        ExitLoop
    Case $Ok_Button
        $sText1 = GUICtrlRead($Input_1)
        $sText2 = GUICtrlRead($Input_2)
        $sText3 = GUICtrlRead($Input_3)
        if $sText1=="" Or  $sText2=="" Or $sText3=="" then
        MsgBox(0,'Внимание','Вы не ввели текст во всех полях')
        else
        GUIDelete($GUI) ;удаляем gui, так как уже не надобно
        MsgBox(0,"Результат",$sText1 & @CRLF &$sText2 & @CRLF & $sText3) ;можно обойтись без этого сообщения, оно нужно лишь чтобы показать что в переменных $sText1, $sText2, $sText3 уже хранится текст введенный ранее в инпуты
        Exitloop
        endif
EndSwitch
WEnd
;дальше может быть любой набор команд...
P.S. Вот по этой ссылке http://www.autoitscript.com/fileman/...ormdesign.html можеш загрузить программу KODA FormDesigner, написанную на автоите, и с её помощью нарисовать такое Gui-окно с инпутами кнопками, как тебе подходит, а названия переменных, можеш сделать хоть и как в примере выше...В программе есть Русский язык, на который можно переключится в настройках программы.

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Последний раз редактировалось beve, 05-04-2009 в 16:02.

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:38, 05-04-2009 | #15