ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ожидание нажатия клавиши
5 сообщений из 5, страница 1 из 1
Ожидание нажатия клавиши
    #34822048
farbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
farbox
Участник
Господа , доброго дня вам
подскажите пожалуйста
как реализовать преостановление выполнения программы до нажатия какой нибудь кнопки ?

Т.е. выполняется у меня программа, а потом на определённом этапе она останавливатся и дальше не выполняется , пока не будет нажата кнопка какая нить определённая. (например F12)

Помогите , подскажите как быть .


Я знаю, что ничего не знаю.
Сократ.
...
Рейтинг: 0 / 0
24.09.2007, 16:30:15
| Ответить | Цитировать | Написать  
Ожидание нажатия клавиши
    #34822511
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Можно разорвать программу и вторую часть запускать по нажатию клавиши .onAction.
Или организовать бесконечный цикл с выходом по нажатию клавиши.
...
Рейтинг: 0 / 0
24.09.2007, 18:40:16
| Ответить | Цитировать | Написать  
Ожидание нажатия клавиши
    #34823227
farbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
farbox
Участник
А как это сделать (то что вы описали про цикл)
Как в виде кода это реализовать ?
Я знаю, что ничего не знаю.
Сократ.
...
Рейтинг: 0 / 0
25.09.2007, 09:39:58
| Ответить | Цитировать | Написать  
Ожидание нажатия клавиши
    #34823812
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
1)
Код: plaintext
expression.OnKey(Key, Procedure)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Example
This example assigns "InsertProc" to the key sequence CTRL+PLUS SIGN and assigns "SpecialPrintProc" to the key sequence SHIFT+CTRL+RIGHT ARROW.

Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"
		
This example returns SHIFT+CTRL+RIGHT ARROW to its normal meaning.

Application.OnKey "+^{RIGHT}"
		
This example disables the SHIFT+CTRL+RIGHT ARROW key sequence.

Application.OnKey "+^{RIGHT}", ""

но приостановить не удастся наверное
тогда разбейте на две части, одна до нажатия клавиши, вторая - после

2)
Код: plaintext
InputBox Function
выводите и ждете нажатие клавиши


выше приведенные методы не совсем то, что хотелось бы, но можно при желании прикрутить

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
25.09.2007, 12:03:48
| Ответить | Цитировать | Написать  
Ожидание нажатия клавиши
    #34825904
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Цикл:
Код: plaintext
1.
2.
3.
4.
5.
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Do
    If GetAsyncKeyState( 90 ) <  0  Then Exit Do
    DoEvents
Loop
...
Рейтинг: 0 / 0
25.09.2007, 20:55:55
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ожидание нажатия клавиши
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34822048&tid=2182220]:
 0ms
get settings:
 4ms
get forum list:
 10ms
check forum access:
 1ms
check topic access:
 1ms
track hit:
 46ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 198ms
total:  325ms
созд. / загр.: 325ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]