Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Переключение регистра

Автор: Staruha 16.7.2004, 10:34

Проблема в том ,что в форме(VBA) поля без проблем работают при EN -Английский,а одно поле при RU.Все это исправить - не хватает знаний.А вот если бы ,когда в это поле заносишь данные ,автоматически переключаться на русский

Автор: ~FoX~ 16.7.2004, 11:18

Цитата

Переключение раскладки клавиатуры
[Declare Function LoadKeyboardLayout Lib "user32" Alias _
"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

' Переключение на английскую раскладку
Function KBDToENG()
Call LoadKeyboardLayout("00000409", &H1)
End Function

' Переключение на русскую раскладку
Function KBDToRUS()
Call LoadKeyboardLayout("00000419", &H1)
End Function ]

Какая раскладка клавиатуры включена в данный момент
[Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Sub Form_Load()
Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
'Номер 409 - английская, 419 - русская
MsgBox "Текущая раскладка номер " & CStr(CLng(Left$(KeybLayoutName, _
InStr(1, KeybLayoutName, Chr(0)) - 1)))
End Sub]

Программно переключить клавиатуру с русского на английский и обратно
Расположите на форме элемент CommandButton.
[Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
ActivateKeyboardLayout 0, 0
End Sub]

Автор: Staruha 16.7.2004, 11:48

Пойду посмотрю

Автор: Staruha 16.7.2004, 20:06

Код

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

-на это место ругается красным цветом

Автор: arilou 16.7.2004, 20:11

Цитата

Код

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

-на это место ругается красным цветом

Конечно - это код для VB, а ты пишешь на VBA. Там нельзя импортировать функции из DLL. Возможный путь - написать ActiveX DLL на VB6, в которую внести функциональность из кода, приведенного выше, и подключить эту DLL к проекту в Excel'e.

Но если у тебя только одно поле глючит, значит где-то в коде есть проблема. Я бы посоветовал все перепроверить.

Автор: cardinal 16.7.2004, 22:02

А что у вас скобки квадратные в коде делают?

Переключение раскладки клавиатуры

Код

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

' Переключение на английскую раскладку
Function KBDToENG()
Call LoadKeyboardLayout("00000409", &H1)
End Function 

' Переключение на русскую раскладку
Function KBDToRUS()
Call LoadKeyboardLayout("00000419", &H1)
End Function

Какая раскладка клавиатуры включена в данный момент

Код

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

Private Sub Form_Load()
Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
'Номер 409 - английская, 419 - русская
MsgBox "Текущая раскладка номер " & CStr(CLng(Left$(KeybLayoutName, _
InStr(1, KeybLayoutName, Chr(0)) - 1)))
End Sub

Программно переключить клавиатуру с русского на английский и обратно
Расположите на форме элемент CommandButton.

Код

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
ActivateKeyboardLayout 0, 0
End Sub

Автор: Staruha 17.7.2004, 16:06

Мне сейчас некогда ,я попозже

Автор: Staruha 17.7.2004, 20:44

Насчет кв.скобок это не ко мне. А вот вопрос как всегда есть:
Может ли в этом случае сработать вот это -
=VbKeyShift + VbKeyAlt 'переключение регистра.
Может у кого крд родиться