< 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.