![]() |
![]() ![]() v.5.2011.12.30 |
Бесплатные домены для портфолио и электронных визиток |
|
Visual Basic 5.0/6.0 - Клавиатуры, мыши, джойстикиВсе примеры / Клавиатуры, мыши, джойстикиКак изменить раскладку клавиатуры (Ru-En-De ...)?
Автор: Алексей Немиро | добавлено: 05.03.2010, 16:49 | просмотров: 2902 (1+) | комментариев: 0 | рейтинг:
Простой пример, демонстрирует, как при помощи API-функции LoadKeyboardLayout изменить текущую раскладку клавиатуры.
![]() ИнструкцииСоздайте стандартный EXE-проект. На форме (Form) разместите элемент CommandButtonКодrivate Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Const KLF_ACTIVATE = 1 Private Const LANG_BULGARIAN = &H2 Private Const LANG_CHINESE = &H4 Private Const LANG_CROATIAN = &H1A Private Const LANG_CZECH = &H5 Private Const LANG_DUTCH = &H13 Private Const LANG_DANISH = &H6 Private Const LANG_ENGLISH = &H9 Private Const LANG_FINNISH = &HB Private Const LANG_FRENCH = &HC Private Const LANG_GERMAN = &H7 Private Const LANG_GREEK = &H8 Private Const LANG_HUNGARIAN = &HE Private Const LANG_ICELANDIC = &HF Private Const LANG_ITALIAN = &H10 Private Const LANG_JAPANESE = &H11 Private Const LANG_KOREAN = &H12 Private Const LANG_NEUTRAL = &H0 Private Const LANG_NORWEGIAN = &H14 Private Const LANG_POLISH = &H15 Private Const LANG_PORTUGUESE = &H16 Private Const LANG_ROMANIAN = &H18 Private Const LANG_RUSSIAN = &H19 Private Const LANG_SLOVAK = &H1B Private Const LANG_SLOVENIAN = &H24 Private Const LANG_SPANISH = &HA Private Const LANG_SWEDISH = &H1D Private Const LANG_TURKISH = &H1F Public Function nasGetMultiDgital( _ Optional lngNum As Long = 0, _ Optional lngDigitPlace As Long = 0) As String If lngDigitPlace <= 0 Then nasGetMultiDgital = lngNum Exit Function End If Dim strFormat As String strFormat = String(lngDigitPlace, "0") nasGetMultiDgital = Format(lngNum, strFormat) End Function Private Sub Command1_Click() LoadKeyboardLayout nasGetMultiDgital(400 + LANG_ENGLISH, 8), KLF_ACTIVATE End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 286)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 31)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|