Lancering Microsoft Visual Studio . Klik op " New Project" van het linkerpaneel van uw computerscherm , en uit te breiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een ​​nieuw project aan te maken . Kopen van 2

Klik op het menu " Project " en selecteer " Nieuw item . " Dubbelklik op " XML File " om een ​​nieuw XML-bestand aan uw project in te voegen. Plaats een nieuwe " XML Schema " -bestand , met behulp van dezelfde techniek

Kopieer 3 en plak de volgende code in de " XMLSchema1.xsd " bestand op uw XML-schema te maken: .

< xs : schema name = " postalCode " >

base="xs:positiveInteger">

value="\\d{5}" />

< /xs : beperking >

< /xs : simpleType >

name="naam" />

< xs type="xs:string" : element name = " Straat " type = " xs : string" />

name="City" />

< xs type="xs:string" : element name = " Staat " type = " xs : string" >

< /xs /: sequence >

< /xs : complexType >

< xs : sequence

< xs > type="xs:string" : element name = " Contactpersoon " type = " xs : string " >

< xs /type="xs:string" : element name = " Telefoon " type = " xs : string " />

< xs : element name = " ShipToAddress " type = " usAddress " Goedkope 4

Klik op het tabblad " Solution Explorer " onder " Solution Explorer " en dubbelklik op " XMLFile1.xml ' om het te openen . Kopieer en plak de onderstaande code om het schema gemaakt in stap 3 gebruikt en een aantal gegevens aan toe te voegen :

< Customer xmlns = " http://tempuri.org/XMLSchema1.xsd " Goedkope 5

Dubbelklik op " Form1 " om uw formulier te bekijken . Dubbelklik op " TextBox " van de " Toolbox " venster om een ​​nieuw tekstvak toe te voegen . Voeg acht meer tekstvakken aan uw formulier . Voeg een " knop " control naar uw formulier . Dubbelklik op " Button1 " naar een nieuwe click - event van deze knop te creëren .
6

Voeg de volgende regel code in de top van de code -module aan de " System.Xml " namespace gebruiken :

Imports System.Xml

Kopieer en plak de volgende code in de gebeurtenis click om het XML-bestand aangemaakt lezen en opslaan van de inhoud van een 2 - D -array
7 : < br

Dim lezer Zoals XmlTextReader = Nieuw XmlTextReader ( " C : \\ Temp \\ XMLFile1.xml " ) >

Dim xmlDataArray
( 30 , 1 ) als Koord

Dim xCntr
als Geheel < br >

Do While ( reader.Read ( ) ) op

Selecteer Case reader.NodeType

Case XmlNodeType.Element

Als ( reader.Name < > " klant " ) en ( reader.Name < > " ShipToAddress " ) dan

xmlDataArray
( xCntr , 0 )

Einde = reader.Name
Als

Case XMLNodeType
. tekst

xmlDataArray
( xCntr , 1 ) = reader.Value

xCntr
+ = 1

End of Selecteer

Loop
8

Bewerk het XML-bestand pad in stap 7 , en typ het pad naar het XML-bestand

Loop 9 door de array en de gegevens toe te voegen aan de tekstvakken door toevoeging van de volgende code : . < br >

xCntr = 0 To 10

Als ( xmlDataArray ( xCntr , 0 ) = " Bedrijfsnaam " ) dan

Me.TextBox1.Text = xmlDataArray
( xCntr , 1 ) < br

End > Als

Als ( xmlDataArray ( xCntr , 0 ) = " Contactpersoon " ) dan

Me.TextBox2.Text = xmlDataArray
( xCntr , 1 ) op Twitter

end If

Als ( xmlDataArray ( xCntr , 0 ) = " E-mail " ) dan

Me.TextBox3.Text = xmlDataArray ( xCntr , 1 )

eind
Als < br >

Als ( xmlDataArray ( xCntr , 0 ) = " Telefoon " ) dan

Me.TextBox4.Text = xmlDataArray ( xCntr , 1 )

Eind
Als

if ( xmlDataArray ( xCntr , 0 ) = " Naam " ) dan

Me.TextBox5.Text = xmlDataArray ( xCntr , 1 )

Eind
Als

Als ( xmlDataArray ( xCntr , 0 ) = " Straat " ) dan

Me.TextBox6.Text = xmlDataArray
( xCntr , 1 )

Eind
Als

Als ( xmlDataArray ( xCntr , 0 ) = " Stad " ) dan

Me.TextBox7.Text = xmlDataArray
( xCntr , 1 )

Eind
Als

Als ( xmlDataArray ( xCntr , 0 ) = " Staat " )

Me.TextBox8.Text = xmlDataArray ( xCntr , 1 )

Einde

Als ( xmlDataArray ( xCntr , 0 Als ) dan
= " Zip " ) dan < br >

Me.TextBox9.Text = xmlDataArray ( xCntr , 1 )

Eind
Als

Volgende

Druk op " F5 " 10 aan het programma uit te voeren . Klik op " Button1 " om de tekstvakken bevolken .