Apprendre à lire un fichier XML pour remplir les zones de texte dans votre Visual Basic.NET , ce qui est souvent abrégé en VB.NET , l'application peut rendre votre application plus robuste en n'ayant pas l'utilisateur entrer manuellement les données. XML est un format applicable à de nombreuses applications et peut être lu en utilisant le " XmlTextReader . " Le lecteur offre avant uniquement , en lecture seule accès à un flux de données XML. Vous pouvez attribuer des données XML directement à contrôler, ou vous pouvez gagner dans un tableau pour une utilisation ultérieure . Choses que vous devez
Microsoft Visual Studio
Voir Plus Instructions
1

Lancement de Microsoft Visual Studio . Cliquez sur " Nouveau Projet" dans le volet gauche de l'écran de votre ordinateur, et d'élargir "visual basic" dessous " Modèles installés . " Cliquez sur "Windows" et double-cliquez sur "Application Windows Forms " du centre de la fenêtre de dialogue pour créer un nouveau projet.
2

Cliquez sur le menu "Projet " et sélectionner " Nouvel élément. " Double -cliquez sur " Fichier XML " pour insérer un nouveau fichier XML à votre projet. Insérer un nouveau fichier "XML Schema " , en utilisant la même technique
3

Copiez et collez le code suivant dans le fichier " XMLSchema1.xsd " pour créer votre schéma XML: .

< xs : schema name = " postalCode "> Photos

Photos

Photos

< /xs: simpleType > Photos

< xs: nom de l'élément = type de " Street" = " xs: string " />

< xs: nom de l'élément = " Etat " type = " xs: string " />

Photos

Photos

< xs: sequence> Photos

< xs: nom de l'élément = Type " ContactName " = " xs: string "/>

< xs: nom de l'élément =" "type = " Téléphone xs : string "/>

< xs: nom de l'élément =" "type =" ShipToAddress usAddress " Hôtels 4

Cliquez sur l'onglet " Solution Explorer " sous " Solution Explorer" et double -cliquez sur " XMLFile1.xml " pour l'ouvrir. Copiez et collez le code suivant pour utiliser le schéma créé à l'étape 3 et ajouter des données à elle :

< xmlns __gVirt_NP_NN_NNPS<__ client = " http://tempuri.org/XMLSchema1.xsd "
5

Double -cliquez sur " Form1 " pour afficher votre formulaire. Double -cliquez sur " TextBox " dans le volet " boîte à outils " pour ajouter un nouveau contrôle de zone de texte. Ajouter huit autres contrôles de zone de texte à votre formulaire. Ajoutez un contrôle "Bouton" de votre formulaire. Double -cliquez sur " Button1" pour créer un nouveau clic - événement pour ce bouton .
6

Ajoutez la ligne de code suivante dans le très haut du module de code pour utiliser l'espace de noms " System.Xml " : Photos

Imports System.Xml
7

Copiez et collez le code suivant dans l'événement clic pour lire le fichier XML créé et enregistrer le contenu d' un tableau 2 -D: < br >

lecteur As XmlTextReader = new XmlTextReader ("C: \\ Temp \\ XMLFile1.xml " )

Dim xmlDataArray (30, 1) As String

xCntr As Integer < br >

Do While ( reader.Read ())

Select Case reader.NodeType

Case XmlNodeType.Element

( reader.Name <> " client ») et ( reader.Name <>" ShipToAddress ") Then

xmlDataArray ( xCntr , 0) = reader.Name

End If
XmlNodeType Case

. texte Clip

xmlDataArray ( xCntr , 1) = reader.Value

xCntr + = 1

End Select

boucle
8 < p> Modifier le chemin du fichier XML à l'étape 7 , et tapez le chemin d'accès au fichier XML
9

parcourir le tableau et ajouter les données sur les zones de texte en ajoutant le code suivant : . < br >

xCntr = 0 To 10

( xmlDataArray ( xCntr , 0) = " CompanyName ") Then

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

End If

( xmlDataArray ( xCntr , 0) = " ContactName ") Then

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

End If

( xmlDataArray ( xCntr , 0) = "Email" ) Puis

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

End If < br >

( xmlDataArray ( xCntr , 0) = " Téléphone ") Then

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

End If

Si ( xmlDataArray ( xCntr , 0) = " Nom ") Then

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

End If

( xmlDataArray ( xCntr , 0) = " Street" ) Puis

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

End If

( xmlDataArray ( xCntr , 0) = "City ") Then

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

End If

( xmlDataArray ( xCntr , 0) = " Etat " )

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

End If

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

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

End If

Suivant
10

Appuyez sur " F5" pour exécuter le programme . Cliquez sur " Button1" pour remplir les zones de texte.