ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как узнать нажат ли например стрл? (шифт алт..)
12 сообщений из 12, страница 1 из 1
как узнать нажат ли например стрл? (шифт алт..)
    #36413024
olllo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olllo
Участник
в .прг файле не в форме...

раньше я делал это помню но шарить по стрым исходникам влом.. хотелось бы быстрее пока не остыл
...
Рейтинг: 0 / 0
15.01.2010, 18:13
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36413432
гхост
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гхост
Гость
не дождешься вас отвечу сам себе наверняка кому то пригодится да и авторитет фоха надо бы поддержать

DECLARE SHORT GetKeyState IN WIN32API INTEGER
#DEFINE VK_SHFT 0x10
#DEFINE VK_CTRL 0x11
*#DEFINE VK_ALT 0x

IF GetKeyState( VK_CTRL ) < 0 ;
.OR. GetKeyState( VK_SHFT) < 0
* .OR. GetKeyState( VK_ALT ) < 0
...
Рейтинг: 0 / 0
16.01.2010, 01:20
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36414493
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
в методе KeyPress, например текстбокса прописываю реакцию на нажатие
необходимых кнопок

LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
*** CTRL***
case nShiftAltCtrl=2


*** Shift***
case nShiftAltCtrl=1
ENDCASE
...
Рейтинг: 0 / 0
17.01.2010, 14:18
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36414497
Местами администратор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Местами администратор
Участник
вопрос не прочитал нормально, ответ конечно для формы
...
Рейтинг: 0 / 0
17.01.2010, 14:20
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36414545
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
гхостне дождешься вас отвечу сам себе наверняка кому то пригодится да и авторитет фоха надо бы поддержать

DECLARE SHORT GetKeyState IN WIN32API INTEGER
#DEFINE VK_SHFT 0x10
#DEFINE VK_CTRL 0x11
*#DEFINE VK_ALT 0x

IF GetKeyState( VK_CTRL ) < 0 ;
.OR. GetKeyState( VK_SHFT) < 0
* .OR. GetKeyState( VK_ALT ) < 0

То ли неудачно восстановленный по памяти пример, то ли вообще неверное использование GetKeyState. Требует конкретного элементарного репрокода.
...
Рейтинг: 0 / 0
17.01.2010, 15:41
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36416029
olllo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olllo
Участник
reware неверное использование GetKeyState. Требует конкретного элементарного репрокода. что череват псоледствиями? а что взамен? что такое экементарный репрокод?

Местами администраторв методе KeyPress, например текстбокса прописываю реакцию на нажатие необходимых кнопок мне не нужно было отловливать нажатие вернее отжатие.. просто узнать состояние клавиши в данный момент..
...
Рейтинг: 0 / 0
18.01.2010, 14:35
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36416692
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
ollloчто череват псоледствиями? а что взамен? что такое экементарный репрокод?
Мне так никогда и не узнать, куда это меня сейчас послали :) А репрокод - это пример кусочка программного кода. Что такое кусочек программного кода не надо обьяснять ?
ollloмне не нужно было отловливать нажатие вернее отжатие.. просто узнать состояние клавиши в данный момент..
Так надо по-русски и излагать, что именно нужно. Перевожу для остальных - человеку хочется в какой-то момент программы проверить состояние Ctrl/Alt/Shift. Ну, получите :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
DECLARE short GetKeyState in Win32Api integer nKey  
    
  Procedure IsShift			&& Is SHIFT key pressed  
  Return GetkeyState(0x10)< 0   
    
  Procedure IsCtrl			&& Is CTRL key pressed  
  Return GetkeyState(0x11)< 0   
    
  Procedure IsAlt			&& Is ALT key pressed  
  Return GetkeyState(0x12)< 0
...
Рейтинг: 0 / 0
18.01.2010, 19:02
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36417986
olllo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olllo
Участник
разве это не тоже самое? тогда в чём же "неверное использование"?
...
Рейтинг: 0 / 0
19.01.2010, 13:44
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36418248
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
ollloразве это не тоже самое? тогда в чём же "неверное использование"?

Вам уже не нужен ответ на заданный вами вопрос и просто хочется и дальше флудить ?
...
Рейтинг: 0 / 0
19.01.2010, 15:03
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36419073
olllo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olllo
Участник
ответ я уже давно получил и не здесь.. подумалось что имеются ещё способы.. легкий флуд не помешает для оживления раздела фохпро.. безлюдно тут..
...
Рейтинг: 0 / 0
19.01.2010, 20:32
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36419081
olllo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olllo
Участник
reware[quot olllo]Вам уже не нужен ответ на заданный вами вопрос ? спасибо за ответ, кстати.. очень элегантно
...
Рейтинг: 0 / 0
19.01.2010, 20:38
| Ответить | Цитировать | Написать  
как узнать нажат ли например стрл? (шифт алт..)
    #36420030
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
ollloreware[quot olllo]Вам уже не нужен ответ на заданный вами вопрос ? спасибо за ответ, кстати.. очень элегантно

Не за что. Только ведите себя по-программистски, а не как торговец китайской лапшой в переходе метро. Прошу простить меня модератора.
...
Рейтинг: 0 / 0
20.01.2010, 11:59
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как узнать нажат ли например стрл? (шифт алт..)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36414497&tid=1585672]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 9ms
total:  108ms
созд. / загр.: 108ms
x
x
Закрыть


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