Ik ben bezig met een klein projectje, maar nu heb ik dus even een vraag.
Hoe laat ik ingevoerde data, zoals taal, in een bestand zetten,
en dat dan de pagina in dat bestand kijkt wat de momentele taal is, en deze dan opvraagt, dmv een ander bestand waar alle vertalingen in staan?
Kan je je uitleg anders formuleren want nu is het wel heel onduidelijk. Probeer meer in stapjes uit te leggen wat er moet gebeuren en niet in één zin met tien komma's in. Wat staat er bijvoorbeeld ook in zo'n bestand?
Hij bedoelt, hoe die vertaling aan zijn website kan toevoegen dus dat zijn site engeles en nederlands is. En dat de browser van de bezoeker wordt gecontroleerd op welke taal die staat. En dat de site zich automatisch aanpast naar de taal van de browser. (Van de bezoeker)
1. Er zijn zeg maar 3 bestanden.
- De Applicatie (bijv. frmMain.vb)
- Bestand waarin data word opgeslagen, met een standaard waarde. (dit bestand noemen we even DataFile)
- Een bestand met alle vertalingen die hij vervangt op de juiste plek
2. In de applicatie zit een 'Optie' mogelijkheid, en bewaard deze in het 2e bestand. (DataFile)
3. De applicatie vraagt aan de "DataFile" de waardes op en als de taal bijv. op Dutch staat, dan vraagt de applicatie de vertalingen op die natuurlijk op de juiste plekken worden ingevoegd.
Op het moment gebruik ik deze mogelijkheid, maar dat is niet toepassend op meerdere windows forms als ik het goed heb.
Private Sub btnSafe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSafe.Click
'
' uitvoer '
'
If cmbLanguage.Text = "Nederlands" Then
' label vertalingen '
lblGeneral.Text = "Welkom bij Teamssx All-In-One," & vbCrLf & vbCrLf & _
"Teamssx All-In-One voorziet je met de laatste updates en alle bestanden gerelateerd aan Teamssx." & vbCrLf & _
"Een paar opties dat dit programma heeft zijn: Databses, Scripts, Zelfgemaakte Browser" & vbCrLf & _
"Als je nieuw bent op dit programma, gelieve dat te registeren en ontdek een nieuw wereld van Teamssx!" & vbCrLf & vbCrLf & _
"Met vriendelijke Groet," & vbCrLf & _
"Larssy1"
' knoppen vertalingen '
btnSafe.Text = "Opslaan"
' group vertalingen '
grpOptions.Text = "Taal"
grpGeneral.Text = "Algemeen"
grpFiles.Text = "Bekijkbare Bestanden"
' menu vertalingen '
mnuMainFile.Text = "Bestand"
mnuMainPrograms.Text = "Programma's"
mnuMainView.Text = "Beeld"
mnuMainHelp.Text = "Help"
mnuMainAccount.Text = "Gebruiker"
ElseIf cmbLanguage.Text = "English (Standard)" Then
' label vertalingen '
lblGeneral.Text = "Welcome to Teamssx All-In-One," & vbCrLf & vbCrLf & _
"Teamssx All-In-One provides you with the latest updates and all files related to Teamssx." & vbCrLf & _
"A few feuterus this programm has are: Databases, Scripts, Crew, Selfmade Browser" & vbCrLf & _
"If you are a new user to this programm, please signup and discover a new world of Teamssx!" & vbCrLf & vbCrLf & _
"Dear Regards," & vbCrLf & _
"Larssy1"
' knoppen vertalingen '
btnSafe.Text = "Save"
' group vertalingen '
grpOptions.Text = "Language"
grpGeneral.Text = "General"
grpFiles.Text = "Files To Show"
' menu vertalingen '
mnuMainFile.Text = "File"
mnuMainPrograms.Text = "Programs"
mnuMainView.Text = "View"
mnuMainHelp.Text = "Help"
mnuMainAccount.Text = "Account"
End If
End Sub
PrivateSub btnSafe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnSafe.Click
'
' uitvoer '
'
If cmbLanguage.Text="Nederlands"Then
' label vertalingen '
lblGeneral.Text="Welkom bij Teamssx All-In-One,"& vbCrLf & vbCrLf & _
"Teamssx All-In-One voorziet je met de laatste updates en alle bestanden gerelateerd aan Teamssx."& vbCrLf & _
"Een paar opties dat dit programma heeft zijn: Databses, Scripts, Zelfgemaakte Browser"& vbCrLf & _
"Als je nieuw bent op dit programma, gelieve dat te registeren en ontdek een nieuw wereld van Teamssx!"& vbCrLf & vbCrLf & _
"Met vriendelijke Groet,"& vbCrLf & _
"Larssy1"
' knoppen vertalingen '
btnSafe.Text="Opslaan"
' group vertalingen '
grpOptions.Text="Taal"
grpGeneral.Text="Algemeen"
grpFiles.Text="Bekijkbare Bestanden"
' menu vertalingen '
mnuMainFile.Text="Bestand"
mnuMainPrograms.Text="Programma's"
mnuMainView.Text="Beeld"
mnuMainHelp.Text="Help"
mnuMainAccount.Text="Gebruiker"
ElseIf cmbLanguage.Text="English (Standard)"Then
' label vertalingen '
lblGeneral.Text="Welcome to Teamssx All-In-One,"& vbCrLf & vbCrLf & _
"Teamssx All-In-One provides you with the latest updates and all files related to Teamssx."& vbCrLf & _
"A few feuterus this programm has are: Databases, Scripts, Crew, Selfmade Browser"& vbCrLf & _
"If you are a new user to this programm, please signup and discover a new world of Teamssx!"& vbCrLf & vbCrLf & _
Werk je met WindowsForms of is het webbased? Als je met Forms werkt kan je gebruik maken van de Settings file en daar al je vertalingen en dergelijke in steken. Je kan dan aan de hand van de gekozen taal de juiste variabelen ophalen.
Hmm, het is me gelukt om die settings te kunne invoegen, (wist even niet hoe dat moest) en zijn deze strings aan te passen nadat de gebruiker bijv. de taal aanpast?
indien je zoals ik zei de scope van je variabele globaal maakt (plaats hem in een module/class en maak hem public) , dan is deze inderdaad over meerdere forms in te lezen.
nog beter, zet de ganse code waar je de taal uitleest (getRMValue) in een aparte module en je probleem is opgelost.
Mijn leraar heeft mij geleerd om deze bestanden zo af te korten dus daarom
Anyway, Ty voor je oplossing ik denk dat ik het gewoon op deze manier doe ;) veel makkelijker
_______________________________________
Nog wel 1 probleempje,