< xs: sekvens >
< xs: element name = " ContactName " type = " xs : string "/>
< xs: element name = " Phone "type =" xs : string " />
< xs: element name =" ShipToAddress "type =" usAddress "
4
Klik på " Solution Explorer " under " Solution Explorer ", og dobbeltklik på " XMLFile1.xml " for at åbne det. Kopier og indsæt følgende kode til at bruge det skema oprettede i trin 3 , og tilføje nogle data til den : Hej
< Customer xmlns = " http://tempuri.org/XMLSchema1.xsd "
5
Dobbeltklik på " Form1 " for at se din formular . Dobbeltklik på " TextBox " fra " Toolbox" ruden for at tilføje en ny tekstboks . Tilføj otte mere tekst box kontrolelementer til formularen . Tilføj en " Button " kontrol til formularen . Dobbeltklik på " Button1 " for at oprette et nyt click -event for denne knap.
6
Tilføj følgende linje kode i selve toppen af din kode modul til at bruge " System.Xml " namespace : Hej
Import System.Xml
7
Kopier og indsæt følgende kode inde klik begivenheden til at læse XML oprettede fil og gemme indholdet til en 2 -D matrix: < br >
Dim reader Som XmlTextReader = Ny XmlTextReader ( "C: \\ Temp \\ XMLFile1.xml " )
Dim xmlDataArray (30, 1 ) As String
Dim xCntr As Integer < br >
Do While ( reader.Read () )
Vælg Case reader.NodeType
Case XmlNodeType.Element
p Hvis ( reader.Name < > " kunden " ) og ( reader.Name < >" ShipToAddress " ) Så
xmlDataArray ( xCntr , 0) = reader.Name
End If
Case XmlNodeType . Tekst
xmlDataArray ( xCntr , 1) = reader.Value
xCntr + = 1
End Vælg
Loop
8 < p> Rediger XML-fil sti i trin 7 , og skriv stien til din XML-fil
9
Loop gennem array og tilføje data til tekstbokse ved at tilføje følgende kode : . < br >
xCntr = 0 Til 10
p Hvis ( xmlDataArray ( xCntr , 0) = " Firmanavn " ) Så
Me.TextBox1.Text = xmlDataArray ( xCntr , 1 ) < br >
End If
p Hvis ( xmlDataArray ( xCntr , 0) = " ContactName " ) Så
Me.TextBox2.Text = xmlDataArray ( xCntr , 1)
End If
p Hvis ( xmlDataArray ( xCntr , 0) = " e-mail" ) Så
Me.TextBox3.Text = xmlDataArray ( xCntr , 1)
End If < br >
Hvis ( xmlDataArray ( xCntr , 0) = " telefon" ) Så
Me.TextBox4.Text = xmlDataArray ( xCntr , 1)
End If
Hvis ( xmlDataArray ( xCntr , 0) = "Navn" ) Så
Me.TextBox5.Text = xmlDataArray ( xCntr , 1)
End If
p Hvis ( xmlDataArray ( xCntr , 0) = " Street " ) Så
Me.TextBox6.Text = xmlDataArray ( xCntr , 1)
End If
p Hvis ( xmlDataArray ( xCntr , 0) = "By" ) Så
Me.TextBox7.Text = xmlDataArray ( xCntr , 1)
End If
p Hvis ( xmlDataArray ( xCntr , 0) = " stat" ) Så
Me.TextBox8.Text = xmlDataArray ( xCntr , 1)
End If
p Hvis ( xmlDataArray ( xCntr , 0) = " Zip " ) Så < br >
Me.TextBox9.Text = xmlDataArray ( xCntr , 1)
End If
Næste
10
Tryk på " F5 " for at køre programmet. Klik på " Button1 " for at befolke tekstbokse.