MsgBox in two languages - How to choose?

[Jaymond Flurrie]

I made a form that has a radio button pair "Suomeksi" - "In English". Now, I want my message boxes to appear in that chosen language.

How do I do that?

This is what I have done so far:

Option Explicit

Public strLng As String

Private Sub optEnglish_Click()
    VaihdaKieli ("Eng")
End Sub

Private Sub optFinnish_Click()
    VaihdaKieli ("Fin")
End Sub

Sub VaihdaKieli(strLng As String)
    If strLng = "Eng" Then
        lblINI.Caption = "INI file:"
        lblSource.Caption = "Source file:"
        btnGet.Caption = "Get tags"
    ElseIf strLng = "Fin" Then
        lblINI.Caption = "INI tiedosto:"
        lblSource.Caption = "Lähdetiedosto:"
        btnGet.Caption = "Hae tagit"
    End If
End Sub

Which works fine - It does change the language of the form.

But how do I display message boxes? I tried to use

    If Not FileOrDirExists(sFName) Then
        If strLng = "Eng" Then
            MsgBox Title:="Error!", Buttons:=vbOKOnly + vbCritical, Prompt:="INI-file can't be found!"
        Else
            MsgBox Title:="Virhe!", Buttons:=vbOKOnly + vbCritical, Prompt:="INI-tiedostoa ei löydy!"
        End If
        Exit Sub
    Else
'...the main code goes here
    End If

Should be pretty easy for anyone who has programmed a multi language program. The problem is probably with variable scope or so.

 

[Sal Paradise]

One way is to have all your messages be drawn from a translation sheet. For instance:

Excel Workbook
	A	B	C
1	English	Japanese	French
2	Cat	?	Chat
3	Dog	?	Chien
4	Ant	?	Fourmi
5	Grasshopper	??	Cigale
Sheet1

Add a Global Variable called 'Language' or something that equals the column of the target language.

Then instead of writing MsgBox("Dog") you can write:
MsgBox(Worksheets("Sheet1").Range("A3").Offset(0,Language))

That will offset "Dog" (A3) by as many columns as the selected language.

Then you just set your radio button to control language (0-2).

 

[Jaymond Flurrie]

One way is to have all your messages be drawn from a translation sheet. For instance:

Excel Workbook
	A	B	C
1	English	Japanese	French
2	Cat	?	Chat
3	Dog	?	Chien
4	Ant	?	Fourmi
5	Grasshopper	??	Cigale
Sheet1

Add a Global Variable called 'Language' or something that equals the column of the target language.

Then instead of writing MsgBox("Dog") you can write:
MsgBox(Worksheets("Sheet1").Range("A3").Offset(0,Language))

That will offset "Dog" (A3) by as many columns as the selected language.

Then you just set your radio button to control language (0-2).

Ok, I think I can make it with this. Thank you!