If CreateObject("WScript.Shell").Popup("Выбираем ?, но за 5 секунд", 5, "Выбор ...", vbYesNo + vbQuestion) <> vbNo Then
Call mFunction 'mFunction
End If
Как в диалоге предоставить 5 сек. на размышление?
Msg = "Выбираем?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Выбираем?"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then Call mFunction()
Как в этом диалоге сделать автонажатие на клавишу по умолчанию, но оставить 5 сек., чтобы можно было выбрать другой вариант?
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Выбираем?"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then Call mFunction()
Как в этом диалоге сделать автонажатие на клавишу по умолчанию, но оставить 5 сек., чтобы можно было выбрать другой вариант?
используй цикл...
В этом диалоге - никак (конечно, если Вы не захотите явно использовать функции WinAPI), а вот в следующем - можно :
или так (что, собственно, одно и тоже)
Код:
Код:
If CreateObject("WScript.Shell").Popup("Выбираем ?, но за 5 секунд", 5, "Выбор ...", 4 + 32) <> 7 Then
mFunction ' Call mFunction
End If
mFunction ' Call mFunction
End If
Что предложил pashulka проще, а самое главное что работает VB6 и VB2010
Цитата: Patr1ot
используйТЕ цикл...
Это как? Я может чего не понеМать.
если можно на пальцах
Взял вариант от pashulka. Явно интеллигентнее, чем исходный ))) Спасибо.
А такой еще вопрос. В предложенном диалоге (и постоянно используемом) захотелось, что бы активная кнопка (которую можно нажимать клавишей Энтер) была не Yes/Да, а No/Нет. Чем это можно задать?
Видишь кусок кода,в котором "vbYesNo + vbQuestion"?Есть такая константа(вроде vbDefPushButton… называется,погугли),с помощью которой можно задавать одну из трёх кнопок по умолчанию
"vbDefPushButton". ОК. направление понял! Thnx ))