Por Luis Filipe Nunes fifaum@hotmail.com Programador Líder da CAP - Comunidade Acadêmica do Paraná Organizador da célula de VB.NET - CAP - CEFET - Pato Branco www.capparana.com.br www.gupnet.com.br
DataBinding com dados em XML

Neste artigo veremos como carregar alguns dos principais componentes com um Data Set alimentado por um arquivo XML. Primeiramente após criar uma Windows Application s clique com o botão direto sobre a sua aplicação no Solution Explorer, Add, Add New Item conforme mostra a figura - 1.

Agora selecione o item XML File e digite Estados.xml para nome do item, logo após clique em Open como mostra a figura - 2.

Antes definirmos a estrutura do arquivo clique na opção Show all Files do Solution Explorer , agora arraste o arquivo Estados.xml para dentro da pasta bin. Com o arquivo aberto,vamos criar a estrutura base, digite o código abaixo:

< Estados > 
       < Id > 1 </ Id > 
       < Estado > Paraná </ Estado > 
</ Estados > 

Agora com a estrutura base definida podemos clicar no bot ao Data, desta forma poderemos alimentar nosso XML de um forma rápida e prática, preencha com mais alguns estados como mostra a figura - 3.

COMBOBOX

Abra a Toolbox e selecione o componente Combobox, adicione ao Form e abra suas propriedades. Defina a propriedade Name como cboEstados e a propriedade DropDownStyle como DropDownList, adicione também um Button e defina a propriedade Name como BtnCombo e a propriedade TEXT como "Carrega Combo".

Pressione a tecla F7 sobre o Form ou selecione o Form no Solution Explorer, clique com o botão direito sobre o mesmo e selecione View Code, agora dentro da classe do Form declare uma variável privada do tipo Dataset, conforme o código abaixo.

          Private pSet As DataSet 

Selecione o evento Click do botão BtnCombo e adicione o código abaixo:

Private Sub BtnCombo_Click( ByVal sender As Object , ByVal e As System.EventArgs) Handles BtnCombo.Click 

            pSet = New DataSet 
           pSet.ReadXml(Application.StartupPath & "\Estados.xml") 
           Me .cboEstados.DisplayMember = "Estado" 
           Me .cboEstados.ValueMember = "ID" 
           Me .cboEstados.DataSource = pSet.Tables(0) 
           pSet = Nothing 

End Sub 

A propriedade DisplayMember seta qual será o campo exibido na combo, já a propriedade ValueMember seta o valor quando determinado item for selecionado.

LISTBOX

Agora adicione o componente Listbox e abra suas propriedades. Defina a propriedade Name como lstEstados, adicione mais um Button e defina a propriedade Name como BtnList e a propriedade TEXT como "Carrega List".

Pressione a tecla F7 sobre o Form ou selecione o Form no Solution Explorer, clique com o botão direito sobre o mesmo e selecione View Code, agora adicione o código abaixo dentro do evento Click do botão.

Private Sub btnList_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnList.Click 

        Dim i As Integer 
       pSet = New DataSet 
       pSet.ReadXml(Application.StartupPath & "\Estados.xml") 
       For i = 0 To pSet.Tables(0).Rows.Count - 1 
             Me .lstEstados.Items.Add(pSet.Tables(0).Rows(i).Item("Estado")) 
       Next 
       pSet = Nothing 

End Sub 

Arquivos XML com certeza serão muito úteis na troca de dados, é de extrema importância o conhecimento de como se manipular os dados contidos no XML. Até o próximo!