Aprender a ler um arquivo XML para preencher caixas de texto no seu Visual Basic.NET , que é muitas vezes abreviado como VB.NET , a aplicação pode fazer a sua aplicação mais robusta por não ter o usuário inserir os dados manualmente. XML é um formato aplicável para muitas aplicações diferentes e pode ser lido usando a " XmlTextReader . " O leitor fornece forward-only , somente leitura o acesso a um fluxo de dados XML. Você pode atribuir os dados XML diretamente para o controle , ou você pode cobrá-lo em uma matriz para uso posterior. Coisas que você precisa
Microsoft Visual Studio
Show Mais instruções
1

Abra o Microsoft Visual Studio. Clique em " New Project" no painel esquerdo da tela do computador, e expandir " Visual Basic" abaixo " modelos instalados". Clique em " Windows" e clique duas vezes em " Windows Forms Application " a partir do centro da janela de diálogo para criar um novo projeto.
2

Clique no menu " Project" e selecione " New Item ". Dê um duplo clique em "Arquivo XML" para inserir um novo arquivo XML para o seu projeto. Insira um novo arquivo " XML Schema " , usando a mesma técnica
3

Copie e cole o seguinte código dentro do arquivo " XMLSchema1.xsd " para criar seu esquema XML: .

< xs : schema name = "CEP" >

elemento name = " Street" type = :

< xs " xs: string" />

< xs: nome do elemento = " Estado " type = " xs: string" />

< xs: sequence>

< xs: element name = tipo " ContactName " = " xs : string "/>

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

< xs: element name =" ShipToAddress " type =" USAddress "
4

Clique na aba " Solution Explorer ", em " Solution Explorer" e dê um duplo clique em " XMLFile1.xml " para abri-la . Copie e cole o seguinte código para usar o esquema criado na Etapa 3 e adicionar alguns dados a ele :

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

duplo clique em " Form1 " para ver sua forma. Clique duas vezes em " TextBox " no painel " Toolbox" para adicionar um novo controle de caixa de texto. Adicionar mais oito controles de caixa de texto ao seu formulário. Adicione um controle de "Button" ao seu formulário. Clique duas vezes em "Button1 " para criar um novo clique com o evento para este botão.
6

Adicione a seguinte linha de código no topo do seu módulo de código para usar o namespace " System.Xml " :

Imports System.Xml
7

Copie e cole o seguinte código dentro do evento clique para ler o arquivo XML criado e salvar o conteúdo de uma matriz 2- D: < br >

Dim reader Como XmlTextReader = New XmlTextReader ("C: \\ Temp \\ XMLFile1.xml " )

Dim xmlDataArray (30, 1) As String Dim

xCntr As Integer < br >

Do While ( reader.Read ())

Select Case reader.NodeType

Caso XmlNodeType.Element

Se ( reader.Name <> " Cliente ") E ( reader.Name <>" ShipToAddress ") Then

xmlDataArray ( xCntr , 0) = reader.Name

End If

Caso XmlNodeType . Texto

xmlDataArray ( xCntr , 1) = reader.Value

xCntr + = 1

End Select

loop
8

Edite o caminho do arquivo XML no Passo 7 e digite o caminho para o arquivo XML
9

percorrer a matriz e adicionar os dados para as caixas de texto , adicionando o seguinte código: . < br >

Para xCntr = 0 a 10

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

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

End If

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

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

End If

Se ( xmlDataArray ( xCntr , 0) = " E-mail ") Then

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

End If < br >

Se ( xmlDataArray ( xCntr , 0) = "Telefone" ) Então

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

Se ( xmlDataArray ( xCntr , 0) = "Nome" ) Então

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

Se ( xmlDataArray ( xCntr , 0) = " Street" ) Então

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

Se ( xmlDataArray ( xCntr , 0) = " City" ) Então

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

Se ( xmlDataArray ( xCntr , 0) = " Estado " ) Então

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

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

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

Próxima
10

Pressione " F5" para executar o programa . Clique em " Button1 " para preencher as caixas de texto .