Что нового

Как запустить функцию/событие на выходе из input-строки?

hellm

Новичок
Сообщения
32
Репутация
1
Как запустить функцию/событие на выходе из input-строки?
 

Ksaan

Знающий
Сообщения
207
Репутация
15
А какой импут надо? их 2 штука, если InputBox то вот
Код:
InputBox("Question", "Where were you born?", "Planet Earth", "", -1, -1, 0, 0)

If @error Then 
	_Input_A()					   
Else
	_Input_B()					   
EndIf

Func _Input_B()
   MsgBox(4096, "","GOU")
EndFunc

Func _Input_A()
   MsgBox(4096, "","Nou")
   EndFunc

А если GUICtrlCreateInput то в справке пример есть.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
OffTopic:
Каков вопрос таков и ответ.
Великолепно. ;D
 
Автор
H

hellm

Новичок
Сообщения
32
Репутация
1
Ksaan сказал(а):
А если GUICtrlCreateInput то в справке пример есть.

Да, этот конечно. Но в примере к функции такого нет. Мне надо, чтобы перед переносом курсора на другой элемент выполнялась бы функция.


Добавлено:
Сообщение автоматически объединено:

Garrett сказал(а):
OffTopic:
Каков вопрос таков и ответ.
Великолепно. ;D

?
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Код:
;...
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
  
        Case $Input1
            MsgBox(0, "Результат", GUICtrlRead($Input1), 0, $hGui)
    EndSwitch
WEnd
 

IMStrelcov

CTPEJIbLLOB
Сообщения
258
Репутация
66
Вот часть моего кода, думаю разберешься.
Код:
$Window = GUICreate('',600,375,-1,-1)

$ButtonAbout = GUICtrlCreateButton('?',10,10,26,26)

$InputSearch = GUICtrlCreateInput('Введите фразу для поиска ...',46,12,454,22)
GUICtrlSetColor($InputSearch,0x999999)

$ButtonExit = GUICtrlCreateButton('Отмена',240,120,100,26)

GUIRegisterMsg(0x0111,'WM_COMMAND')
GUISetState(@SW_SHOW,$Window)

While 1
   Switch GUIGetMsg()
   Case -3, $ButtonExit
	  ExitLoop
   EndSwitch
WEnd


Func WM_COMMAND($Param1,$Param2,$Param3,$Param4)
   If BitAND($Param3,0x0000FFFF) = $InputSearch Then
	  If BitShift($Param3,0x18) = 1 Then ;фокус
		 If GUICtrlRead($InputSearch) = 'Введите фразу для поиска ...' Then
			GUICtrlSetData($InputSearch,'')
			GUICtrlSetColor($InputSearch,0x000000)
		 EndIf
	  ElseIf BitShift($Param3,0x18) = 2 Then ; потеря фокуса
		 If GUICtrlRead($InputSearch) = '' Then
			GUICtrlSetData($InputSearch,'Введите фразу для поиска ...')
			GUICtrlSetColor($InputSearch,0x999999)
		 EndIf
	  EndIf
   EndIf
EndFunc
 
Верх