Что нового

Управление окнами - с автонажатием выбора

dr.room

Новичок
Сообщения
283
Репутация
0
Доброго времени суток всем
Подскажите решение задачи: необходим автоматический выбор в диалоговом окне - через заданный промежуток времени. Т.е. нажать Да
Пока получается только временный промежуток определить - но не автонажатие. Т.е. окно просто закрывается...и не более.
В случае успеха - должно появиться подтверждающее окно

Спасибо
Код:
Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36,"Вопрос","Да или Нет ?",4)
Select
   Case $iMsgBoxAnswer = 6  ;Yes
	Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(64,"Ответ","Выбрано Да - атоматически",2)
Select
   Case $iMsgBoxAnswer = -1 ;Timeout

   Case Else                ;OK

EndSelect
   Case $iMsgBoxAnswer = 7  ;No

   Case $iMsgBoxAnswer = -1 ;Timeout

EndSelect
 
A

Alofa

Гость
Код:
$iMsgBoxAnswer = MsgBox(36, "Вопрос", "Да или Нет ?", 4)
Select
	Case $iMsgBoxAnswer = -1 Or $iMsgBoxAnswer = 6
		MsgBox(64, "Ответ", "Выбрано Да", 2)
	Case $iMsgBoxAnswer = 7 ;No
		MsgBox(64, "Ответ", "Нажата кнопка Нет", 2)
EndSelect
Код:
Switch MsgBox(36, "Вопрос", "Да или Нет ?", 4)
	Case -1 ; истекло время отображения окна
		MsgBox(64, "Ответ", "Сейчас будет выбрано Да - автоматически", 2)
		ContinueCase
	Case 6 ; Да (Yes)
		MsgBox(64, "Ответ", "Нажата кнопка Да", 2)
	Case 7 ; Нет (No)
		MsgBox(64, "Ответ", "Нажата кнопка Нет", 2)
EndSwitch
Код:
Switch MsgBox(36, "Вопрос", "Да или Нет ?", 4)
	Case -1 To 6 ; Да (Yes)
		MsgBox(64, "Ответ", "Нажата кнопка Да", 2)
	Case 7 ; Нет (No)
		MsgBox(64, "Ответ", "Нажата кнопка Нет", 2)
EndSwitch
 
Верх