20
Декабрь
2008
Как переключить раскладку клавиатуры?
Как переключить раскладку клавиатуры?
Option Explicit
Private Declare Function LoadKeyboardLayout Lib "user32" Alias _
"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Const KLF_ACTIVATE = 1
Private Sub Command1_Click()
LoadKeyboardLayout "00000419", KLF_ACTIVATE
Me.Caption = "Ru"
End Sub
Private Sub Command2_Click()
LoadKeyboardLayout "00000409", KLF_ACTIVATE
Me.Caption = "En"
End Sub