Обработка нажатий на клавиатуру

[EXIS]

Как узнать раскладку на платформе .net

Или придется обходиться дедовским

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

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
GetKeyboardLayoutName(Label1.Text)

[MIT]

А чем тебе не нравиться WinAPI? Ведь работает же.

[iGrok]

А чем тебе не нравиться WinAPI? Ведь работает же.

Токо Long на Integer поменяй..

[Williams]

Можно то же самое, но через P/Invoke:

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

<DllImport("user32.dll")> _
Private Shared Function GetKeyboardLayoutName(<Out> pwszKLID As StringBuilder) As Boolean
End Function

[Nord777]

И нафиг изголяться? Народ еще не привык, что в .Net уже многое есть?

можно так

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

MsgBox(InputLanguage.CurrentInputLanguage.LayoutName)

Можно эдак

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

  Private Sub Form1_InputLanguageChanged(ByVal sender As Object, ByVal e As InputLanguageChangedEventArgs) Handles Me.InputLanguageChanged
    Dim messageBoxVB As New System.Text.StringBuilder()
    messageBoxVB.AppendFormat("{0} = {1}", "InputLanguage", e.InputLanguage)
    messageBoxVB.AppendLine()
    messageBoxVB.AppendFormat("{0} = {1}", "Culture", e.Culture)
    messageBoxVB.AppendLine()
    messageBoxVB.AppendFormat("{0} = {1}", "CharSet", e.CharSet)
    messageBoxVB.AppendLine()
    MessageBox.Show(messageBoxVB.ToString(), "InputLanguageChanged Event")
  End Sub

[EXIS]

И нафиг изголяться? Народ еще не привык, что в .Net уже многое есть?

можно так

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

MsgBox(InputLanguage.CurrentInputLanguage.LayoutName)

Можно эдак

Спасибо! WinAPI немного не удобен и потихоньку устаревает, тем более хочеться изучить все возможности платформы .Net

Я вот пишу обработчик нажатия клавиш для ячейки... пишу как умею. Может в .net есть какая-то функция которая переводит коды клавиш учитывая текущую раскладку клавиатуры?

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

    Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs, ByVal rowIndex As Integer)
        Dim symb As Char
        If InputLanguage.CurrentInputLanguage.Culture.LCID = 1033 Then symb = Chr(e.KeyCode)
        If InputLanguage.CurrentInputLanguage.Culture.LCID = 1049 Then
            If e.KeyCode = 65 Then symb = "Ф"
            If e.KeyCode = 66 Then symb = "И"
            If e.KeyCode = 67 Then symb = "С"
            If e.KeyCode = 68 Then symb = "В"
            If e.KeyCode = 69 Then symb = "У"
            If e.KeyCode = 70 Then symb = "А"
            If e.KeyCode = 71 Then symb = "П"
        End If
        MyBase.DataGridView.CurrentCell.Value += symb
    End Sub

[Nord777]

Может в .net есть какая-то функция которая переводит коды клавиш учитывая текущую раскладку клавиатуры?

Есть. Событие KeyPress.