| |
Переключение раскладки клавиатуры (Ru-En) |
|
| |
Расположите на форме элемент CommandButton.
Private Declare Function LoadKeyboardLayout Lib "user32" Alias
"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Const KLF_ACTIVATE = 1
Public Sub SetLanguage(ByVal s As String)
Select Case UCase(Left(s, 1))
Case "R"
LoadKeyboardLayout "00000419", KLF_ACTIVATE
Case "U"
LoadKeyboardLayout "00000422", KLF_ACTIVATE
Case "E"
LoadKeyboardLayout "00000409", KLF_ACTIVATE
Case Else
End Select
End Sub
Private Sub Command1_Click()
'Вызывается соответственно с параметром "R",
"U" или "E"
SetLanguage ("R")
End Sub
|
|
| |
|
|
|
|