kies je taal

[kevenvz]

Dit gebruik ik meestal:

[cpp]if my.settings.language = "" then
'code
end if[/cpp]

 

[edmoor]

Ik heb even naar die code gekeken maar deze is niet voor Visual Studio. Ik zal het herschrijven en dan hier posten.

 

[kevenvz]

Ik werk met visual studio(visual basic) en deze werkt bij mij gewoon.

[cpp] Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.Language = "" Then
chooseLanguage.Show()
End If
End Sub[/cpp]

 

[JoZ1]

Ik zie 't probleem ff niet van de API versie.

Maar goed, wellicht is edmoors manier handiger. We'll see

@kevenz: chooseLanguage.Show() ?? Daar kunnen wij toch niets mee.
Sowieso is het niet verstandig om vertalingen te hardcoden.

 

[old Hippy]

Een simpele manier om een taal te kiesen.

Een form met een button en een combobox Zet hier de talen in
een label en een textbox.

TextBox_Taal in een setting.

Public Class Form1

    Private Sub Nederlands()
        TextBox_Taal.Text = "N"
        Button1.Text = "Klik hier"
        Me.Text = "Meer talen"
        Label_Info.Text = "Kies een taal"
    End Sub

    Private Sub Engels()
        TextBox_Taal.Text = "E"
        Button1.Text = "Click here"
        Me.Text = "More languages"
        Label_Info.Text = "Choose a language"
    End Sub
    Private Sub Duits()
        TextBox_Taal.Text = "D"
        Button1.Text = "Klicken Sie hier"
        Me.Text = "Weitere Sprachen"
        Label_Info.Text = "Wählen Sie eine Sprache"
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If TextBox_Taal.Text = "N" Then
            Nederlands()
        ElseIf TextBox_Taal.Text = "E" Then
            Engels()
        ElseIf TextBox_Taal.Text = "D" Then
            Duits()
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox_Kies_taal.SelectedIndexChanged
        If ComboBox_Kies_taal.Text = "Nederlands" Then
            Nederlands()
        ElseIf ComboBox_Kies_taal.Text = "Engels" Then
            Engels()
        ElseIf ComboBox_Kies_taal.Text = "Duits" Then
            Duits()
        End If
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox_Taal.Text = "N" Then
            MsgBox("Gekozen taal is Nederlands", MsgBoxStyle.Information)
        ElseIf TextBox_Taal.Text = "E" Then
            MsgBox("Chosen language is English", MsgBoxStyle.Information)
        ElseIf TextBox_Taal.Text = "D" Then
            MsgBox("Gewählte Sprache ist Deutsch", MsgBoxStyle.Information)
        End If

    End Sub
End Class

 

[JoZ1]

@old Hippy: Dat wordt niet handig als het veel tekst is om te vertalen

 

[The Mighty Atom]

Je kan ook een enum maken voor de talen. Niet dat dat nodig is ofzo maar dat maakt het wel gestructureerd. Voorbeeld:

Private Enum Language
Dutch
English
German
End Enum

 

[old Hippy]

Ben voor alle manieren in
@JoZ1 je zal toch de texten moeten ingeven of niet??
Hoe vertaal je anders?????

 

[JoZ1]

@old Hippy: Zie het eerste aantal posts van deze thread voor 'mijn' methode.

 

[old Hippy]

Oke JoZ1 met een ini file goed maar ook daar moet je dus veel text zetten.
Werkt ongeveer zo als in mijn eerder gemaakte meertalen die werkt met een textfile.
maakt niet uit wilde aleen maar helpen.

Old Hippy

 

[JoZ1]

@old Hippy: Je hulp wordt zeker gewaardeerd! Jouw manier is handiger wanneer er niet zoveel vertaald hoeft te worden.

 

[kevenvz]

Als je een voorbeeldje wilt hoe ik het altijd doe:

http://dl.dropbox.com/u/45145409/Language.zip

 

[edmoor]

Ik zie 't probleem ff niet van de API versie.

Maar goed, wellicht is edmoors manier handiger. We'll see

@kevenz: chooseLanguage.Show() ?? Daar kunnen wij toch niets mee.
Sowieso is het niet verstandig om vertalingen te hardcoden.

Het spijt me enorm maar ik heb helaas nog geen tijd gehad om dat spul om te zetten naar Visual Studio

 

[JoZ1]

@edmoor: Take your time!

@kevenz: Hij wordt niet helemaal vertaald; Application Must Restart to....

En het is ook niet noodzakelijk te herstarten.