[VB 6]Gestione Multilingue

[xegallo]

adesso nei programmi va molto di moda per la gestione multilinguaggio i files .xml

<?xml version="1.0"?>
<Traduzioni>
	<italiano>
		<x1>ciao</x1>
		<x2>buongiorno</x2>
	</italiano>
	<inglese>
		<x1>hello</x1>
		<x2>good morning</x2>
	</inglese>
	<francese>
		<x1>salut</x1>
		<x2>bonjour</x2>
	</francese>
</Traduzioni>

gestirli è relativamente facile

Private Sub traduci()
Dim MyXml As New MSXML.DOMDocument
Dim ListaNodi As IXMLDOMNodeList
Dim Elemento As IXMLDOMElement
Dim x As IXMLDOMNode
Dim l As Long
Dim i As Integer
    If MyXml.Load(App.Path & "\lang.xml") Then
        If mnuIt.Checked = True Then
            Set ListaNodi = MyXml.getElementsByTagName("italiano")
        ElseIf mnuEn.Checked = True Then
            Set ListaNodi = MyXml.getElementsByTagName("inglese")
        ElseIf mnuFR.Checked = True Then
            Set ListaNodi = MyXml.getElementsByTagName("francese")
        End If
        For i = 0 To ListaNodi.length - 1
            Set Elemento = ListaNodi.Item(i)
            
            Set x = Elemento.childNodes(0)
            Label1.Caption = x.Text
            Set x = Elemento.childNodes(1)
            Label2.Caption = x.Text
        Next i
    End If
End Sub