Vertaling vraag

[otie]

Dim lol1 As String = (txt1_) + TextBox1.Text
                Me.Label1.Text = lol1

 'EN
    Dim txt1_en As String = ("text")
    Dim txt2_en As String = ("text")
    Dim txt3_en As String = ("Text")
    Dim txt4_en As String = ("text")
    Dim txt5_en As String = ("text")

    'NL
    Dim txt1_nl As String = ("tekst")
    Dim txt2_nl As String = ("tekst")
    Dim txt3_nl As String = ("tekst")
    Dim txt4_nl As String = ("tekst")
    Dim txt5_nl As String = ("tekst")

Hallo, ik wil graag zorgen dat zodra TextBox1.text = "nl" dat hij dan overswitch naar nl vertaling, en andersom.
Ik heb nog 6 vertalingen dus het is niet zo dat ik beter gwn alles los kan doen

 

[city guy]

ik kan heel goed overweg met VB, maar deze vraag levert zoveel vragen op dat ik nog niet eens begin met het denken aan een antwoord....

 

[otie]

heb je dan misschien een andere oplossing om vertalingen te doen?

 

[city guy]

heb je dan misschien een andere oplossing om vertalingen te doen?

.. voor mij is de vraag niet duidelijk.wat wil je, wat is het probleem, wat is het doel, vertaling van wat en waarmee?

 

[otie]

ik wil graag dat als je op een vlaggetje (picturebox) klikt dat alle (5 de) labels worden vertaald, de vertalingen en pictureboxen heb ik al.

 

[city guy]

ik wil graag dat als je op een vlaggetje (picturebox) klikt dat alle (5 de) labels worden vertaald, de vertalingen en pictureboxen heb ik al.

... ik doe een gok,

en ga er vanuit dat de teksten in een database staan. Doe in dat geval een query op de database, haal de bijbehorende vertalingen op en plaats die in de labels.

E.e.a. moet je aanpassen, of herhaald uitvoeren als er uit of naar meerdere talen vertaald moet worden.

Je kan ook denken aan een multi-dimensionale array als de hoeveelheid vertaalwoorden klein is. Zorg dan dat de index van de picturebox (die je dan onderdeel van een control-array maakt) overeenkomt met een subscript in die multidim-array. Dan denk ik dat je met, bij benadering, 4 statements klaar bent.

 

[MrPsycho]

werken met "Case" ? zal ik effe opzoeken in me VB cursus en eens kijken om een voorbeeldje te plaatsen

[EDIT:] voorbeeld:

Select Case TextBox1.text
          Case Is NL
                       Dim txt1_nl As String = ("tekst")
                       Dim txt2_nl As String = ("tekst")
                       Dim txt3_nl As String = ("tekst")
                       Dim txt4_nl As String = ("tekst")
                       Dim txt5_nl As String = ("tekst")
          Case Is EN
                       Dim txt1_en As String = ("text")
                       Dim txt2_en As String = ("text")
                       Dim txt3_en As String = ("Text")
                       Dim txt4_en As String = ("text")
                       Dim txt5_en As String = ("text")
          Case Is FR
                       Dim txt1_en As String = ("texte")
                       Dim txt2_en As String = ("texte")
                       Dim txt3_en As String = ("Texte")
                       Dim txt4_en As String = ("texte")
                       Dim txt5_en As String = ("texte")

enz

[EDIT:] ik zie net dat dit stukje code een stukje VBA is, niet VB. kans dat het niet volledig werkt dus; 99% dat het het wel doet.

 

[emielll]

misschien amateurig maar toch:

if textbox1.text = "nl" then
'dan dingen voor nl

elseif textbox1.text = "en" then
'dan dingen voor en

else
'andere taal
msgbox("Deze taal wordt (nog) niet ondersteund")

end if

 

[otie]

misschien amateurig maar toch:

if textbox1.text = "nl" then
'dan dingen voor nl

elseif textbox1.text = "en" then
'dan dingen voor en

else
'andere taal
msgbox("Deze taal wordt (nog) niet ondersteund")

end if

Zo heb ik het uiteindelijk gedaan, al voor jullie posts, maar voor de volgende update van me program,ma ga ik dennkik die cases gebruiken

 

[Dummy1912]

Beste Otie,

Weet niet of je dit bedoelt maar kan proberen
wil je alles vertalen Labels? als je een gewenste taal kiest zodat alles vertaald wordt.

ok even voorbeeld

als je een label hebt met bv (Naam , Land , Telefoon)

kies engels ( Name , Country , Phone)

ik heb dank's rowano mijn programma kunnen voltooien met verschillende selecties van talen
ik heb de labels vertaald dus de texten.

en dit werkt prima.

telkens als je prog wordt geladen zal hij deze uitlezen van de textbestand.

dit is een stukje uit men textbestand.

<Taal='Dutch'>

<Labels>
/lblChooseCountry = "Selecteer uw nieuwe taal"
/lblCurrentLanguage = "Huidige taal:"
/lblDefaultLanguage = "Standaard Taal:"
/lblLanguageDefault = "Engels"
/LinkLabel1 = "Bezoek ons en het team"


<Taal='English'>

<Labels>
/lblChooseCountry = "Please select your new language"
/lblCurrentLanguage = "Default Language:"
/lblDefaultLanguage = "Current Language:"
/lblLanguageDefault = "English"
/LinkLabel1 = "Visit us and join the team"


<Taal='Danish'>

<Labels>
''splashscreen
/lblChooseCountry = "Vær Venlig at vælge dit ønskede sprog"
/lblCurrentLanguage = "Nuværende Sprog:"
/lblDefaultLanguage = "Standart sprog:"
/lblLanguageDefault = "English"
/LinkLabel1 = "Besøg os og kom med i teamet"

je kan zelfs buttons , groupboxen enz... vertalen ook

Laat maar iets horen

Dummy1912