Aprender a leer un archivo XML para rellenar los cuadros de texto en tu Visual Basic.NET , a menudo abreviado como VB.NET , la aplicación puede hacer que su aplicación más robusta al no tener el usuario introducir los datos manualmente. XML es un formato aplicable para diversas aplicaciones y se puede leer a través del " XmlTextReader . " El lector proporciona sólo avance y de sólo lectura a una secuencia de datos XML. Puede asignar los datos XML directamente a controlar , o se puede recoger en una matriz para su uso posterior. Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio . Haga clic en " Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar a continuación " Visual Basic" " Plantillas instaladas ". Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.

2 Haga clic en el menú "Proyecto " y seleccionar " Nuevo elemento ". Haga doble clic en "Archivo XML " para insertar un nuevo archivo XML al proyecto . Inserte un nuevo archivo " XML Schema ", utilizando la misma técnica
3

Copia y pega el siguiente código dentro del archivo " XMLSchema1.xsd " para crear el esquema XML: .

< xs : schema name = " postalCode ">

< /xs: restricción >

< /xs: simpleType >

xs name="nombre" type="xs:string" < : nombre de elemento = tipo "Street " = " xs: string" />

< xs: nombre de elemento = " Estado " type = " xs: string" />

< /xs : Secuencia >

< /xs: complexType >

< xs: secuencia >

< xs: nombre del elemento de tipo " ContactName " = = " xs: string " />

< xs: nombre de elemento =" " type = " Teléfono xs : string " />

< xs: nombre de elemento =" " type =" ShipToAddress usAddress " Página 4

clic en la pestaña " Explorador de soluciones " en " Explorador de soluciones " y haga doble clic en " XMLFile1.xml " para abrirlo. Copia y pega el siguiente código para utilizar el esquema creado en el paso 3 y añadir algunos datos en ella :

< xmlns cliente = " http://tempuri.org/XMLSchema1.xsd " Página 5

doble clic en " Form1 " para ver su forma . Haga doble clic en " cuadro de texto " en el panel "Toolbox" para añadir un nuevo control de cuadro de texto. Añadir otros ocho controles de cuadro de texto al formulario. Agregue un control "Button" a su formulario. Haga doble clic en " Button1 " para crear un nuevo evento de clic en este botón.
6

Añada la siguiente línea de código en la parte superior de su módulo de código para utilizar el espacio de nombres " System.Xml " :

Imports System.Xml
7

Copia y pega el siguiente código dentro del evento click para leer el archivo XML creado y guardar el contenido en una matriz 2 -D: < br >

lector As XmlTextReader = New XmlTextReader ("C: \\ temp \\ XMLFile1.xml " )

Dim xmlDataArray (30, 1 ) As String

xCntr Dim As Integer < br >

Do While ( reader.Read ( ))

Seleccione Case reader.NodeType

Case XmlNodeType.Element

Si ( reader.Name < > " cliente ") Y ( reader.Name < > " ShipToAddress ") Luego

xmlDataArray ( xCntr , 0 ) = reader.Name

End If

XmlNodeType Case. Texto Fotos

xmlDataArray ( xCntr , 1 ) = reader.Value

xCntr + = 1

End Select Loop

8 < p> Editar la ruta del archivo XML en el paso 7 , y escriba la ruta de acceso al archivo XML
9

recorrer la matriz y añadir los datos a los cuadros de texto con el código siguiente : . < br >

Para xCntr = 0 a 10

Si ( xmlDataArray ( xCntr , 0 ) = " CompanyName ") Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = " Nombre del contacto ") Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = "Email" ) Luego

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

End If < br >

Si ( xmlDataArray ( xCntr , 0 ) = "Teléfono ") Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = "Nombre" ) Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = " la calle ") Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = "Ciudad") Luego

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

End If

Si ( xmlDataArray ( xCntr , 0 ) = " Estado " ) Luego

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

End If

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

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

End If

Siguiente
10 Pulse

"F5 " para ejecutar el programa. Haga clic en " Button1 " para rellenar los cuadros de texto.