[Элементы GUI] Custom InputBox но как стандартный

[Dimmak]

Есть custom inputbox c кнопкой ок!
Нужно чтоб при нажатии Enter окно закрывалось и переменная получала значение inputbox ( как в стандарной inputbox ).

#include <GUIConstantsEx.au3>
    GUICreate("1",380,30)
    GUICtrlCreateInput('2',0,0,330,30)
    GUICtrlSetFont(-1, 15, 400, 0, "Tahoma")
    GUICtrlCreateButton ("OK",  330, 2, 50)
	GUISetState(@SW_SHOW)


	While 1
        $msg = GUIGetMsg()

        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

 

[Viktor1703]

Re: [Элементы GUI] Custom InputBox

А где пример?

 

[DarWiM]

Re: [Элементы GUI] Custom InputBox

Dimmak
Попробуй отлавливать нажатие ENTER когда окно активно, и если TRUE - выполняй нужное действие

 

[CreatoR]

Re: [Элементы GUI] Custom InputBox

Dimmak

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Элементы GUI] Custom InputBox " - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.

Добавлено:

Сообщение автоматически объединено: 17 Фев 2012

И ещё:

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Администратор.

 

[Zaramot]

GuiSetAccelerators()

или

#include <GUIConstantsEx.au3>

HotKeySet('{ENTER}', 'OK')

GUICreate("1",380,30)
$Input = GUICtrlCreateInput('2',0,0,330,30)
GUICtrlSetFont(-1, 15, 400, 0, "Tahoma")
$OK = GUICtrlCreateButton ("OK",  330, 2, 50)
GUISetState()

While 1
    Switch GUIGetMsg()
		case $GUI_EVENT_CLOSE
			Exit
		Case $OK
			ok()
	EndSwitch
WEnd

Func OK()
	MsgBox(0, '', GUICtrlRead($Input))
EndFunc

 

[Dimmak]

Zaramot
Спасибо!
:IL_AutoIt_1:
Только вот как по-умолчанию сделать ok! кнопку активной??
Чтоб по Enter InputBox захлопывалась??

 

[CreatoR]

Dimmak [?]

как по-умолчанию сделать ok! кнопку активной?

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Title", 380, 30)

GUICtrlCreateInput('Text', 0, 0, 330, 30)
GUICtrlSetFont(-1, 15, 400, 0, "Tahoma")

$nButton = GUICtrlCreateButton("OK", 330, 2, 50)
GUICtrlSetState(-1, $GUI_DEFBUTTON)

GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nButton
			GUIDelete($hGUI)
			MsgBox(64, 'Title', 'Ok')
			
			Exit
	EndSwitch
WEnd

 

[Dimmak]

CreatoR, спасибо!