MsgBox многоязыковой

Question

У меня вопросы переводить, я могу перевести кнопки, метки полей ввода и т.д., но я не знаю, как перевести MsgBox ... У меня есть этот код

Imports System.Threading.Thread 
Imports System.Globalization  
Public Class FrmLlenguatje 
Private Sub btEspañol_Click(sender As Object, e As EventArgs) Handles btEspañol.Click 

    CurrentThread.CurrentUICulture = New CultureInfo("ES") 
    Dim p02Es As New Form1 
    p02Es.Show() 

    InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages(0) 
End Sub 

Private Sub btCatalà_Click(sender As Object, e As EventArgs) Handles btCatalà.Click 

    CurrentThread.CurrentUICulture = New CultureInfo("CA") 
    Dim p02Ca As New Form1 
    p02Ca.Show() 

    InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages(0) 
End Sub 
End Class 

И Я хотел бы знать способ привязки этой кнопки к другой форме, а затем попытаться, если я смогу создать оператор If/else для перевода этих MsgBox.

Я хочу, чтобы вы могли мне помочь .. Спасибо!

Answer 1

Насколько я знаю .Net не поддерживает это с MessageBox. Вы можете прочитать здесь ...

MessageBox buttons - set language?

Answer 2

Я использовал 1 ярлык и на form_loading эту строку, чтобы определить младший матрос Текущий язык:

label1.Text=Globalization.CultureInfo.CurrentCulture.ThreeLetterISOLanguageName 

некоторые 3 символов языков идентификатор являются:

ita, spa, eng, nld, fra, rus, zho. 

Затем, когда вы создаете окно сообщений, использует некоторые как этот

If Form1.Label1.Text = "eng" Then 
If MsgBox("Save the changes?", vbYesNo) = vbYes Then 
else 
end if 
If Form1.Label1.Text = "spa" Then 
If MsgBox("¿Guardar los cambios?", vbYesNo) = vbYes Then 
else 
end if 

ДА/НЕТ автоматически определяется (переведенный) на ваш текущий язык.

catalan = cat