Что нового

Выход по нажатию

Nihau

Новичок
Сообщения
2
Репутация
0
Есть цикл
do
...
while
как сделать выход из цикла при нажатии к примеру f5 ?
 

skype4com

Новичок
Сообщения
11
Репутация
1
Код:
HotKeySet ( "{f5}" ,"Exit")

; что то делаем)

Func Exit()
    Exit
EndFunc
 

snoitaleR

AutoIT Гуру
Сообщения
854
Репутация
223
Nihau
Мой вариант...

Код:
; НАЧАЛО

 GUICreate("Акселераторы")

 $DUMMY=GUICtrlCreateDummy()

 Dim $AccelKeys[1][2]=[["{F5}",$DUMMY]]
 GUISetAccelerators($AccelKeys)

 GUISetState()

 While True

  Switch GUIGetMsg()
   Case $DUMMY
    ExitLoop
  EndSwitch

  Sleep(100)

 WEnd

 MsgBox(0,"","Цикл завершен...")

; КОНЕЦ
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,716
skype4com

Nihau сказал(а):
как сделать выход из цикла при нажатии к примеру f5 ?

Nihau

Цикла Do...While не существует.

Код:
#Include <Misc.au3>

While ...
	If _IsPressed('74') Then
		ExitLoop
	EndIf
	...
WEnd


или

Код:
#Include <Misc.au3>

Do
	...
Until _IsPressed('74')
 
Автор
N

Nihau

Новичок
Сообщения
2
Репутация
0
мой провал, перепутал until \ while
#Include <Misc.au3>

Do
...
Until _IsPressed('74')
оно, его и хотелось.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
964
DOZOMIGAMIUS [?]
Нет. Потому как Exit зарезервированное слово!
Так работает:
Код:
HotKeySet ( "{f5}" ,"_Exit")

While 1
	ToolTip("Делаем что-то!", @DesktopWidth/2, @DesktopHeight/2)
WEnd
Func _Exit()
    Exit
EndFunc
 
Верх