| Вопрос: MUI (VB9) | Добавлено: 27.09.07 14:07 |
Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 |
|
Multi User Interface
Вопрос собсно такой: Все помнят ресурсы в ВБ6. Там была возможность выбрать язык ресурса (скажем стрингов). А кот как сделать это в ВБ9? Как сделать мультиязыковость в приложениях. И желательно сделать так чтоб их можно было выбрать ) Спасибо заранее"""" |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #1 | Добавлено: 28.09.07 00:31 |
| Nu... Nikto ne znaet? Imya_proekta.resx . A dla mnoqoyazikoqoqo resursa doljo bit,cto-to tipa imya_proekta.kod_yazika.resx. No kak eqo dobavit? | ||
|
Номер ответа: 2 Автор ответа:  BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #2 | Добавлено: 28.09.07 14:56 |
| smotri v spravku "Culture" | ||
|
Номер ответа: 3 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #3 | Добавлено: 29.09.07 01:23 |
|
Ну а если подробнее то:
1. Создай новый проект с формой. 2. Кинь на форму кнопку, лейбл и комбобокс 3. в свойствах формы(PropertyViewer) поставь Localizable=true 4. в свойствах формы(PropertyViewer) установи language=English(US) 5 теперь для этого языка поменяем этикетки на всех контролах: Button1.text = "Button" label1.text = "Label" combobox1.items добавь построчно "ITALIAN","RUSSIAN","ENGLISH" 6. в свойствах формы(PropertyViewer) установи language=Italian(IT) 7 теперь для этого языка поменяем этикетки на всех контролах: Button1.text = "Tasto" label1.text = "Etichetta" combobox1.items добавь построчно "ITALIANO","RUSSO","INGLESE" 8. в свойствах формы(PropertyViewer) установи language=Russian(RU) 9. теперь для этого языка поменяем этикетки на всех контролах: Button1.text = "кнопка" label1.text = "этикетка" combobox1.items добавь построчно "ИТАЛЬЯНСКИЙ","РУССКИЙ","АНГЛИЙСКИЙ" 10. Создай в MY.SETTINGS новый параметр NAME = CurrentLanguage TYPE = String ну и естесственно видимость = "USER" 11. задавать "Culture" нужно обязательно перед InitializeComponent Public Sub New()
If Not My.Settings.CurrentLanguage = "" Then My.Application.ChangeUICulture(My.Settings.CurrentLanguage) End If InitializeComponent() End Sub 12. создадим обработчик событий при смене значения комбобокса Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case Me.ComboBox1.SelectedIndex Case 0 My.Settings.CurrentLanguage = "it-IT" Case 1 My.Settings.CurrentLanguage = "ru-RU" Case 2 My.Settings.CurrentLanguage = "en-US" End Select Dim DRes As Windows.Forms.DialogResult  Res = Windows.Forms.MessageBox.Show("Restart program to change language?", "Restart needed", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Select Case DRes Case Windows.Forms.DialogResult.Yes Application.Restart() End Select End Sub ну вот в принципе и всё, запускай, пробуй. Если чё спрашивай 
|
||
|
Номер ответа: 4 Автор ответа: MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #4 | Добавлено: 29.09.07 14:45 |
| Пасиб! Пойду посмотрю | ||
|
Номер ответа: 5 Автор ответа: MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #5 | Добавлено: 01.10.07 21:41 |
|
Всё работает!!! Спасибо!
Тока вот есчё одно хочу спросить, а мона-ли эти файлы в разных компах чтоб люди локализовали а я их склеивал? Или чтоб читал всё из каки-хто сторонних файлов? |
||
Страница: 1 |