Использование GetKeyNameText

[ALX_2002]

Народ, очень нужна хелпа с функцией GetKeyNameText

У кого есть примерчик или описание работы функции - киньте плиз.

Очень нужно.

[GSerg]

Код: Выделить всё

Option Explicit

Private Declare Function GetKeyNameText Lib "user32.dll" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim s As String
 
  s = String$(50, 0)
  Me.Print Left$(s, GetKeyNameText(MapVirtualKey(KeyCode, 0) * &H10000, s, Len(s)))
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
End Sub

[Шурик]

Описание:
Функция GetKeyNameText извлекает строку, которая представляет название клавиши
А вобще Яндекс рулит
http://yandex.ru/yandsearch?stype=www&n ... eyNameText

[ALX_2002]

Этот пример то я сразу нашёл. Но там трабл в том, что русские символы он не возвращает при русской раскладке клавы.

Проблему решил иначе. Так что всё равно огромное спасибо

[GSerg]

Мой пример возвращает русские символы при русской раскладке - но всё равно спасибо

[ALX_2002]

2 Gserg: Шеф. При уверенности в абсолютной вашей правоте ( мож я чего то не сообразил ) у меня раскладка меняется, но лезут только английские буквы

[GSerg]

Может дело в том, что у меня Win98?

А если так?

Код: Выделить всё

Option Explicit

Private Declare Function GetKeyNameText Lib "user32.dll" Alias "GetKeyNameTextW" (ByVal lParam As Long, ByVal lpBuffer As Long, ByVal nSize As Long) As Long
Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyW" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim s As String
 
  s = String$(50, 0)
  Me.Print Left$(s, GetKeyNameText(MapVirtualKey(KeyCode, 0) * &H10000, StrPtr(s), Len(s)))
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
End Sub

[ALX_2002]

Неа... У меня в любом случае возвращается только английские символы.

Русские получается поймать только через Key_Press ascii.

Ну в принципе я уже всё сделал, так что пасиба