Getasynckeystate????

[Cham.VB]

помогите плиз почему эта функция Русские буквы нечетает ??? тоесть например
keystate = Getasynckeystate(Asc("Q"))
If (keystate And &H1) = &H1 Then
msgbox "Q"
End If
работает
а это уже нет
keystate = Getasynckeystate(Asc("Й"))
If (keystate And &H1) = &H1 Then
msgbox "Й"
End If
есть ли какойнибудь способ заставить это работать или какая нибудь подобная функция работающая с Русским языком?

[GM]

Потому что ей все равно руские или не русские буквы, она ловит нажатие клавиш. Для определения языка, юзай GetKeyboardLayout.

[Cham.VB]

хм чето у меня так голова неварит быстро можно на примере плизз
а тоесть у каждой клавиши(не символа) типо есть свой код например у
Q или q или Й или й будет один код???
и типо сначало надо узнать на какой раскладке я нахожусь и вместе с этим предпринять какието действия так я понимаю? но на примере было бы лутше

[Amed]

Именно.
Примерно так:

Если раскладка = "En" и код клавиши = "q", то буква = "q".Если раскладка = "Ru" и код клавиши = "q", то буква = "й".

Если к тому же нажат шифт, то буква = UCase(буква).

[Cham.VB]

а вот еще вопросец как можно эмулировать функцию вставки или что нибудь подобное???как ctrl+v
clipboard.gettext не предлагать так как 2е приложение делал не я