Visual Basic Forum

makle · Newbie Anmeldedatum: 13.07.2011 Beiträge: 2

Hi,

würde gerne eine Schleife bauen für den folgenden Code:

Public Function funcLoadLanguage(ByVal varLang As String)
Dim varXDoc As XDocument = XDocument.Load(Application.StartupPath & "\lang-" & varLang & ".xml")

'Menu
frmMain.mnuStripFile.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFile>.Value)
frmMain.mnuStripFileTournamentNew.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentNew>.Value)
frmMain.mnuStripFileTournamentOpen.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentOpen>.Value)
frmMain.mnuStripFileTournamentClose.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentClose>.Value)
frmMain.mnuStripFileTournamentSave.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentSave>.Value)
frmMain.mnuStripFileTournamentSaveAs.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentSaveAs>.Value)
frmMain.mnuStripFileTournamentRecentlyOpened.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentRecentlyOpened>.Value)
frmMain.mnuStripFileTournamentPrint.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentPrint>.Value)
frmMain.mnuStripFileCloseProgram.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileCloseProgram>.Value)

Return 1
End Function

Ich möchte quasi aus dem XML-File einen Wert auslesen von einem Child-Element und dem entsprechenden Form-Element zuweisen. Wie man sieht heißt das Child-Element genauso wie das Form-Element.

Jetzt bräcuhte ich quasi eine Schleife baut, da ich sonst ja jeden Wert einzeln zuweisen müsste. Ab einer gewissen Menge macht das logischerweise keinen Sinn.

Bitte keine Diskussion jetzt darüber, warum ich die Sprachenfunktionalität von VS2010 nicht nutze!