Visual Basic FAQ

Как переключить раскладку клавиатуры RU-EN?

Option Explicit

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal Flags As Long) As Long

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" _
    (ByVal pwszKLID As String, ByVal Flags As Long) As Long

Const KbdRu = "00000419"
Const KbdEn = "00000409"

Private Sub Command1_Click()
Dim hLayout As Long
hLayout = LoadKeyboardLayout(KbdRu, 0)
ActivateKeyboardLayout hLayout, 0
End Sub

Private Sub Command2_Click()
Dim hLayout As Long
hLayout = LoadKeyboardLayout(KbdEn, 0)
ActivateKeyboardLayout hLayout, 0
End Sub

Запись опубликована on 13.12.2008 at 18:05 и размещена в рубрике: Клавиатура. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.