MsgBox MultiLanguage

Question

我有问题需要翻译，我可以翻译按钮，标签，TextBoxs等，但我不知道如何翻译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

据我所知，MessageBox不支持.Net这样做。你可以在这里阅读更多...

MessageBox buttons - set language?

Answer 2

我使用了1个label并在form_loading中使用了这个字符串来确定操作系统当前的语言：

label1.Text=Globalization.CultureInfo.CurrentCulture.ThreeLetterISOLanguageName 

大约3种字符语言id为：

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