Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Send

6 views
Skip to first unread message

Леонид Березин

unread,
Dec 9, 2004, 9:29:59 AM12/9/04
to

Hi, all!

Через Send(Handle(...), 256, 9, 0) можно сгенерировать нажатие клавиши таб.
Вопрос. Как сделать нажатие, например Shift + Tab?
Спасибо.

Mark Lokshin

unread,
Dec 9, 2004, 2:10:45 PM12/9/04
to
Hello, Леонид!

Чет Дек 09 2032 17:29, Леонид Березин wrote to All:

ЛБ> Через Send(Handle(...), 256, 9, 0) можно сгенерировать нажатие клавиши
ЛБ> таб. Вопрос. Как сделать нажатие, например Shift + Tab? Спасибо.
Как последовательное нажатие клавиш shift и tab.

Good bye. Mark

One man's fun is another's hell (c) MetallicA 1991.


Konstantin Goldobin

unread,
Dec 9, 2004, 4:14:00 PM12/9/04
to
Пpивет, Леонид.

Чет Дек 09 2004, Леонид Березин писал, а All читал:

ЛБ> Через Send(Handle(...), 256, 9, 0) можно сгенерировать нажатие клавиши
ЛБ> таб. Вопрос. Как сделать нажатие, например Shift + Tab? Спасибо.

А вот у меня какой-то стаpый сниппет завалялся, стpелка вниз как таб, стpелка
ввеpх как шифт-таб:

=== Cut ===
...
type prototypes
subroutine setkeyboardstate(ref char lpbkeystate[256]) library "user.exe"
subroutine getkeyboardstate(ref char lpbkeystate[256]) library "user.exe"
end prototypes

on ue_key;
// Обработчик клавиатуры

char keystate[256]

if KeyDown(keydownarrow!) then
// Сбрасываем нажатие стрелки
getkeyboardstate(keystate)
keystate[41] = char(0)
setkeyboardstate(keystate)
// Hажимаем Tab
send(handle(this),256,9,983041)
elseif KeyDown(keyuparrow!) then
//Зажимаем shift и сбрасываем нажатие стрелки
getkeyboardstate(keystate)
keystate[17] = char(129)
keystate[39] = char(0)
setkeyboardstate(keystate)
// Hажимаем Tab
send(handle(this),256,9,983041)
//Отпускаем shift
keystate[17] = char(0)
setkeyboardstate(keystate)
end if

end on
=== Cut ===

Konstantin.

Леонид Березин

unread,
Dec 12, 2004, 5:31:45 AM12/12/04
to

> А вот у меня какой-то стаpый сниппет завалялся, стpелка вниз как таб,
стpелка
> ввеpх как шифт-таб:
>

Спасибо, помогло.


0 new messages