| Вопрос: язык | Добавлено: 19.12.05 01:41 |
Автор вопроса:  Lanback | ICQ: 271-209-305 |
| Подскажите, пожалуйста, как устанавливать язык системы с помощью VB. |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | Цитата | #1 | Добавлено: 19.12.05 05:33 |
| У системы нет языка, если только ты не работаешь в Win95. | ||
|
Номер ответа: 2 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #2 | Добавлено: 19.12.05 06:51 |
| Как это. Всегда вроде английский по умолчанию. | ||
|
Номер ответа: 3 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | Цитата | #3 | Добавлено: 19.12.05 10:17 |
| То есть сменить язык винды? Или как? Я что-то не понял.. | ||
|
Номер ответа: 4 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | Цитата | #4 | Добавлено: 19.12.05 10:32 |
|
Ну если программное переключение клавы, то вроде так:
Declare Function ActivateKeyboardLayout Lib "user32" _
 ByVal HKL As Long, _
ByVal Flags As Long) As Long Declare Function LoadKeyboardLayout Lib "user32" _ Alias "LoadKeyboardLayoutA" _ ByVal pwszKLID As String, _
ByVal Flags As Long) As Long Const KbdRu = "00000419" Const KbdEn = "00000409" Sub SwitchToRu() Dim hLayout As Long hLayout = LoadKeyboardLayout(KbdRu, 0) ActivateKeyboardLayout hLayout, 0 End Sub Sub SwitchToEn() Dim hLayout As Long hLayout = LoadKeyboardLayout(KbdEn, 0) ActivateKeyboardLayout hLayout, 0 End Sub |
||
|
Номер ответа: 5 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | Цитата | #5 | Добавлено: 19.12.05 10:59 |
| В смысле раскладку для конкретного приложения? Или дефолтовую локалю? | ||
|
Номер ответа: 6 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 19.12.05 17:17 |
|
Если надо узнать язык операционной системы, то самый тупой способ:
создать .res-файл для своего приложения создать string-table для каждого интересующего языка, написать в один ID для каждого языка его название (или номер или...) Вызвать LoadResString от этого самого идентификатора. Я точно заметил, что для английской винды откомпилированная программа дает английскую строчку, а для русской - русскую. Как ни странно, результат не зависит от того, какой язык пользователь выбрал предпочтительным. А вот из среды разработки в английской винде все равно русскую строчку грузит (видимо по тому, что у меня предпочтительным стоит русский). |
||
|
Номер ответа: 7 Автор ответа: Lanback ICQ: 271-209-305 Вопросов: 23 Ответов: 48 |
Профиль | Цитата | #7 | Добавлено: 20.12.05 01:21 |
| Да!? Типа для каждого приложения свой язык! А как же язык Винды по умолчанию? | ||
|
Номер ответа: 8 Автор ответа: LanbackICQ: 271-209-305 Вопросов: 23 Ответов: 48 |
Профиль | Цитата | #8 | Добавлено: 20.12.05 01:24 |
| Ну да - сменить язык винды, а также узнать текущий язык. Ну, если по большому счёту разобраться, то не винды, а каждого конкретного приложения! | ||
|
Номер ответа: 9 Автор ответа: LanbackICQ: 271-209-305 Вопросов: 23 Ответов: 48 |
Профиль | Цитата | #9 | Добавлено: 20.12.05 01:36 |
|
Спасибо! Работает нормально. Но кроме всего прочего мне нужно узнавать текущий язык для определённого приложения и иметь возможность его изменять(язык приложения)!
Для каждого ж приложения свой язык, правильно? |
||
|
Номер ответа: 10 Автор ответа: LanbackICQ: 271-209-305 Вопросов: 23 Ответов: 48 |
Профиль | Цитата | #10 | Добавлено: 20.12.05 01:37 |
| раскладку для конкретного приложения | ||
|
Номер ответа: 11 Автор ответа: G-Man Вопросов: 1 Ответов: 3 |
Профиль | Цитата | #11 | Добавлено: 26.12.05 11:59 |
Как сделать так, чтоб в VB2005 в TextBox можно было вводить только русские буквы?Или как поменять язык на русский? Если можно обьясните популярно, а то я в коде выше мало че понял. 
|
||
|
Номер ответа: 12 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | Цитата | #12 | Добавлено: 26.12.05 12:28 |
| http://www.vbnet.ru/forum/show.aspx?id=92410 | ||
|
Номер ответа: 13 Автор ответа: G-ManВопросов: 1 Ответов: 3 |
Профиль | Цитата | #13 | Добавлено: 26.12.05 13:04 |
| А что писать после "Application.CurrentInputLanguage =" чтоб был русский? | ||
|
Номер ответа: 14 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | Цитата | #14 | Добавлено: 26.12.05 15:37 |
| А вот это уже сам в мануале найди, а? | ||
Страница: 1 |