iMasters - Se��o: vbnet

VB .NET - Usando o Entity Framework com MySQL no VS 2008 - Parte 02

macoratti@yahoo.com (Jos� Carlos Macoratti) — Wed, 23 Dec 2009 11:00:00 +0100

No artigo anterior eu criei o banco de dados no MySQL, a solu��o no Visual Studio 2008 SP1 e gerei o Entity Data Model (EDM) a partir do banco de dados Cadastro. Vou continuar mostrando como implementar as opera��es CRUD contra o banco de dados MySQL usando os recursos do Entity Framework.

Repetindo o final do artigo criamos a interface no projeto ef_interface e agora vamos implementar as funcionalidades citadas.

O leiaute da interface � mostrado abaixo:

Controles do formul�rio:

�- 3 TextBox

txtID
txtNome
txtValor

�- 5 Buttons

btnNovo
btnAlterar
btnExcluir
btnExibir
btnSair

- 1 DataGridView

gdvProdutos

Todas as funcionalidades ser�o implementadas atrav�s do evento Click dos bot�es de comando.

Para tornar mais claro o entendimento e ressaltar os recursos do Entity Framework, eu vou usar uma sintaxe b�sica e vou usar o tratamento de erros simplificado atrav�s do bloco Try/Catch.

Antes de iniciar devemos declarar o namespace� �Imports ef_entities; (Lembre-se que referenciamos o projeto ef_entities)

A seguir devemos declarar duas vari�veis objeto que ser�o instanciadas mais tarde:

Dim cadastroContexto As cadastroEntities
Dim produtoLista As List(Of produtos)

Vou iniciar com a funcionalidade para exibir os dados da tabela Produtos no controle DataGridView - gdvProdutos. A id�ia � criar uma rotina chamada exibirProdutos() e chamar esta rotina no evento Load do formul�rio e no evento Click do bot�o Exibir, de forma que os dados ser�o exibidos quando o formul�rio for carregado e toda vez que o cliente clicar no bot�o Exibir.

O c�digo da rotina � dado a seguir:

 Private Sub exibirProdutos()

        Try

 cadastroContexto = New cadastroEntities
            produtoLista = New List(Of produtos)

  Dim produtosConsulta = From p In cadastroContexto.produtos.ToList

            gdvProdutos.DataSource = produtosConsulta.ToList

        Catch ex As Exception
            MsgBox("Erro : " & ex.Message)
        End Try

End Sub

Criamos uma inst�ncia do nosso modelo de entidades - cadastroEntities (� atrav�s dela que temos acesso aos m�todos para persist�ncia.)

Definimos a consulta LINQ onde obtemos todos os produtos cadastrados: �Dim produtosConsulta = From p In cadastroContexto.produtos.ToList

Exibimos os produtos no DataGridView: �� gdvProdutos.DataSource = produtosConsulta.ToList

Essa rotina ser� chamada no evento Load e Click e o c�digo correspondente � dado a seguir:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        exibirProdutos()
End Sub

C�digo do evento Load do formul�rio form1

Private Sub btnExibir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibir.Click
        exibirProdutos()
End Sub

C�digo do evento Click do bot�o Exibir

Ao executar o projeto, o resultado ser� a exibi��o dos produtos conforme a figura abaixo:

Para incluir um novo produto usamos o seguinte c�digo no evento Click do bot�o Novo:

Private Sub btnNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNovo.Click
        Try
            Dim novoProduto As New produtos
            novoProduto.nome = txtNome.Text
            novoProduto.valor = txtValor.Text
            novoProduto.id = -1
      cadastroContexto.AddToprodutos(novoProduto)
            cadastroContexto.SaveChanges()
            MsgBox("Um novo produto foi inclu�do")
        Catch ex As Exception
            MsgBox("Erro : " & ex.Message)
        End Try
    End Sub

No c�digo acima, primeiro criamos uma inst�ncia da nossa entidade produtos e em seguida atribu�mos os valores informados no formul�rio ao objeto novoProduto, e inclu�mos o novo objeto novoProduto na cole��o de objetos: �cadastroContexto.Add(novoAutor)

Voc� pode incluir novos objetos a um contexto de objeto atrav�s do m�todo AddObject ou chamando um dos m�todos AddToEntitySetName do ObjectConext.

Voc� tamb�m pode incluir um objeto a um contexto de objeto adicionando o objeto a um EntityCollection existente.

Quando voc� chama o m�todo Add em um EntityCollection que est� anexado a um contexto de objeto, o objeto que voc� est� incluindo � adicionado ao mesmo ObjectContext.

Na linha de c�digo �cadastroContexto.AddToAutor(novoAutor) o m�todo AddTo<EntityName>,� que � usado pelo EF baseado nas entidades geradas a partir do banco de dados e ir� realizar a inclus�o do novo objeto no contexto.

O� m�todo SaveChanges() do contexto � usado para persistir as altera��es no banco de dados.

Lembre-se de que o EF usa o modelo de concorr�ncia otimista e isso significa que n�o s�o realizados bloqueios nos dados na fonte de dados. O padr�o por�m � o Object Services salvar as altera��es nos objetos para o banco de dados sem verificar a concorr�ncia.

Havendo uma grande possibilidade de ocorrer concorr�ncia � recomendado que a propriedade da entidade seja definida na camada conceitual com um atributo:� ConcurrencyMode="fixed"

Ex: <Property Name="Status" Type="Byte" Nullable="false" ConcurrencyMode="Fixed" />

Dessa forma o Object Services ir� verificar por altera��es no banco de dados antes de salvar as mudan�as para o banco de dados e qualquer conflito ir� causar uma exce��o OptimisticCuncurrencyException.

O c�digo para excluir um produto � dado a seguir:

Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click

        Try
            cadastroContexto = New cadastroEntities

            Dim p As New produtos
            p.id = txtID.Text

  Dim prod = cadastroContexto.produtos.First(Function(prd) prd.id = p.id)

            cadastroContexto.DeleteObject(prod)
            cadastroContexto.SaveChanges()

            MsgBox("Um produto foi excluido")
        Catch ex As Exception
            MsgBox("Erro : " & ex.Message)
        End Try
    End Sub

O c�digo cria uma inst�ncia da nossa entidade produtos e em seguida atribui o valor informado pelo cliente na caixa de texto referente ao c�digo do produto;

Em seguida usamos uma consulta LINQ para localizar a primeira (First) ocorr�ncia cujo c�digo do produto seja igual ao ID informado.

�� Dim prod = cadastroContexto.produtos.First(Function(prd) prd.id = p.id)

A seguir o m�todo DeleteObject() marca o objeto para dele��o a partir do ObjectStateManager, sendo que o objeto � efetivamente exclu�do quando o m�todo SaveChanges � chamado.

Para alterar uma informa��o usamos o seguinte c�digo:

Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

        Try
            cadastroContexto = New cadastroEntities
            Dim p As New produtos
            p.id = txtID.Text
            p.nome = txtNome.Text
            p.valor = txtValor.Text

            'localiza o produto a alterar
            Dim prod = cadastroContexto.produtos.First(Function(prd) prd.id = p.id)

            'efetua as alteracoes
            prod.nome = p.nome
            prod.valor = p.valor
            cadastroContexto.SaveChanges()

            MsgBox("Um produto foi alterado")
        Catch ex As Exception
            MsgBox("Erro : " & ex.Message)
        End Try
    End Sub

Primeiro criamos uma inst�ncia do nosso modelo de entidades - cadastroEntities

A seguir criamos uma inst�ncia da nossa entidade produtos e em seguida atribu�mos os valores informados no formul�rio - estes valores � que ir�o alterar os valores originais.

Em seguida usamos uma consulta LINQ para localizar a primeira (First) ocorr�ncia cujo c�digo do produto seja igual ao ID informado.

�� Dim prod = cadastroContexto.produtos.First(Function(prd) prd.id = p.id)

A seguir alteramos os valores originais e usamos o m�todo SaveChanges() do contexto, que � usado para persistir as altera��es no banco de dados.

Al�m dessa funcionalidades, eu criei um tratamento no evento CellClick do controle DataGridView de modo que quando o usu�rio clicar em uma c�lula do controle, os valores ir�o preencher as caixas de texto do formul�rio. O c�digo � o seguinte:

Private Sub gdvProdutos_CellClick(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles
gdvProdutos.CellClick
        Dim i As Integer
        Dim j As Integer
        j = gdvProdutos.RowCount - 1
        i = gdvProdutos.CurrentRow.Index
  If i <= j Then
            txtID.Text = gdvProdutos.Item(0, i).Value
            txtNome.Text = gdvProdutos.Item(1, i).Value
            txtValor.Text = gdvProdutos.Item(2, i).Value
   Else
            txtID.Text = ""
            txtNome.Text = ""
            txtValor.Text = ""
  End If
    End Sub

Abaixo temos uma tela exibindo o recurso acima e a funcionalidade para alterar os dados de um produto:

Com isso, mostramos como usar o Entity Framework com um banco de dados MySQL no Visual Studio 2008 com SP1. Esse exemplo foi somente um 'tira-gosto', visto que usamos somente uma tabela. Em um cen�rio mais complexo com relacionamentos, chave estrangeira e heran�a existem alguns detalhes relativos ao MySQL que dever�o ser levados em conta.

Aguarde em breve mais artigos sobre o assunto...

Pegue o projeto completo aqui: EF_MySQL.zip

Eu sei, � apenas Entity Framework, mas eu gosto...�

VB .NET - Usando o Entity Framework com MySQL no VS 2008 - Parte 01

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 17 Dec 2009 11:15:00 +0100

O Entity Framework (EF) � um framework para realizar o mapeamento OR/M e persistir dados em banco de dados relacionais. Desde o seu lan�amento ele vem sendo aperfei�oado e na nova vers�o da plataforma .NET ele deve estar mais robusto e com muitos bugs corrigidos. Vamos aguardar...

Eu j� publiquei diversos artigos sobre o Entity Framework(EF) e em todos eles eu usei o banco de dados SQL Server. Procurei na web para ver exemplos com outros banco de dados e n�o achei nada de muito concreto, mas por acaso acabei descobrindo que, ap�s baixar a �ltima vers�o do MySQL e do conector .NET para MySQL, era poss�vel usar o Entity Framework(EF) com o MySQL nativamente no Visual Studio 2008 com SP1.

Ent�o este artigo vai mostrar um exemplo usando uma aplica��o Windows Forms s� para mostrar que podemos usar o Entity Framework com o MySQL no VS 2008. Se voc� j� acompanhou os meus artigos a respeito, ver� que n�o haver� muita diferen�a nos procedimentos que devemos realizar para efetuar as opera��es contra um banco de dados MySQL usando o Entity Framework.

Ent�o vamos ao trabalho...

Do que voc� vai precisar?�

Visual Studio 2008 com service pack 1;
MySQL 5.1
MySQL GUi Tools;
MySQL Connector;

Devemos realizar as seguintes tarefas:

Criar o banco de dados Cadastro no MySQL usando o MySQL Administrator;
Criar a tabela Produtos contendo os campos : id , nome e valor;
Criar um novo projeto Windows Application usando o VS 2008;
Criar um Entity Data Model para o banco de dados Cadastro;
Usar os m�todos do contexto criado pelo EDM para realizar o acesso e as opera��es CRUD no banco de dados;

Ent�o, como diria Jack, vamos por partes...

1. Criando o banco de dados e a tabela no MySQL usando o MySQL Administrator

O MySQL Administrator � uma ferramenta que fornece uma interface gr�fica que o ajuda a gerenciar o seu MySQL.

Ao executar o MySQL Administrator �voc� ver� a seguinte tela:

Voc� deve se conectar ao MySQL informando a senha que configurou durante a instala��o. Ao fazer isto obter� a seguinte janela:

Selecione a op��o - Catalogs. Voc� ver� uma lista dos bancos de dados que j� existem no MySQL.

Clique com o bot�o direito do mouse sobre a �rea da janela onde os banco de dados est�o sendo exibidos e selecione a op��o - Create New Schema.

Uma nova janela chamada - Create New Schema - ir� surgir e voc� dever� informar o nome do banco de dados que deseja criar, conforme abaixo.

Ao clicar no bot�o OK, o banco de dados - Produtos - ser� criado no MySQL.

Assim que o novo Schema surgir na lista, estamos prontos para criar a tabela - Produtos - para isto , clique no bot�o - Create Table. Na janela - Table Editor informe o nome da tabela e digite o nome dos campos que deseja criar diretamente na aba - Columns and Indices.

Abaixo foi criada a tabela Produtos com os campos:

id - o c�digo do produto
nome - o nome do produto
valor - o valor do produto

Para incluir alguns dados na tabela produtos podemos usar o MySQL Query Browser e usar a instru��o SQL:

�Insert Into Produtos (nome,valor) values ('Caneta', 1.25)

conforme a figura abaixo:

2. Criando a solu��o no Visual Studio 2008 SP1

Abra o VS 2008 e no menu File selecione New Project e a seguir selecione em Other Project Types o item Visual Studio Solutions;

Depois selecione Blank Solution em Templates e informe o nome EF_MySQL e clique em OK;

Agora no menu File selecione Add e a seguir New Project;

Na janela New Project selecione o template Windows Forms Application e informe o nome ef_interface;

Vamos agora incluir um outro projeto do tipo Class Library onde iremos definir o nosso entity data model (EDM);

No menu File selecione Add e a seguir New Project;

Na janela New Project selecione o template Class Library e informe o nome ef_entities;

Se voc� fez tudo certinho, a janela Solution Explorer do seu projeto dever� estar como a figura abaixo:

Na janela Solution Explorer temos uma solu��o contendo dois projetos:

ef_interface
ef_entities

Agora selecione o projeto ef_entities e clique com o bot�o do mouse sobre ele e selecione o Add -> New Item;

Em seguida selecione ADO .NET Entity Data Model, informe o nome Cadastro.edmx e clique em Add;

No assistente do Entity Data Model selecione o item Generate from DataBase e clique em Next>;

Na janela Choose Your Data Connection do assistente clique no bot�o New Connection;

Na janela Connection Properties clique no bot�o Change;

Na janela Change Data Source selecione o Data Source MySQL DataBase e clique em OK;

A seguir defina as propriedades de conex�o para o seu banco de dados MySQL. No meu caso os valores s�o:

Server name = localhost
User name = root
Password = ******

Feito isso, j� poderemos selecionar o banco de dados Cadastro no MySQL e clicar em OK;

De volta � janela do assistente Entity Data Model(EDM) marque a op��o Yes e clique em Next>;

Agora selecione a tabela produtos e clique em Finish.

Ao final termos a entidade produtos criada no descrito Entity Data Model(EDM) conforme abaixo;

Obs: Eu poderia ter alterado o nome da entidade para produto, mas preferi deixar o nome fornecido.

Agora � s� alegria ...

Basta definir uma interface no projeto ef_interface e usar os m�todos do contexto do EDM para acessar os dados e realizarmos as opera��es contra o banco de dados MySQL.

3. Criando a interface e mandando bala com o EF no MySQL

A interface que eu vou definir no formul�rio form1.vb � mostrada na figura abaixo:

Controles do formul�rio:

�- 3 TextBox

txtID
txtNome
txtValor

�- 5 Buttons

btnNovo
btnAlterar
btnExcluir
btnExibir
btnSair

- 1 DataGridView

gdvProdutos

Aguarde a continua��o do artigo...

Eu sei, � apenas Entity Framework, mas eu gosto...

NHibernate - usando o ActiveRecord - Parte 03

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 10 Dec 2009 11:15:00 +0100

Leia os artigos anteriores:

NHibernate - usando o ActiveRecord - Parte 02

NHibernate - usando o ActiveRecord - Parte 01

Na primeira parte desta s�rie de artigos eu apresentei o ActiveRecord e depois mostrei uma exemplo pr�tico de sua utiliza��o com o NHibernate, mostrando como ficou f�cil gerar os arquivos de mapeamento XML.

Agora, veremos mais uma caracter�stica do NHibernate e que, na verdade, � um dos principais motivos para sua utiliza��o: a portabilidade da sua aplica��o para outro gerenciador de banco de dados. Para ilustrar o exemplo, eu vou pintar um cen�rio hipot�tico abusando das ilustra��es.

Imagine que voc� est� trabalhando como programador ou programador analista ou programanalista em uma empresa na qual desenvolveu o sistema que atualmente est� em uso.

Agora imagine que, em uma sexta-feira, voc� chega no servi�o todo contente, afinal � sexta-feira, e logo ao chegar voc� � avisado que o seu chefe deseja falar com voc� com urg�ncia.

Na sala do chefe voc� recebe a fat�dica not�cia: por um problema com o fornecedor, o contrato para utiliza��o do banco de dados que a empresa est� usando n�o ser� renovado e ele dever� ser trocado com m�xima urg�ncia at� segunda-feira (Estamos na sexta, lembra? ). Voc� est� recebendo a not�cia somente a 3 dias de ter a nova vers�o do banco de dados em produ��o, pois havia uma expectativa de renova��o que n�o se concretizou.

Resumindo: o pepino (como sempre) sobrou para a �rea de TI.�

Ao ouvir tal not�cia voc� tentou argumentar que deveria ter sido avisado com anteced�ncia mas, para resumir, n�o teve jeito, e voc� vai ter que trocar o banco de dados atual da sua aplica��o por um banco de dados open source. E o escolhido foi o MySQL.

Voc� ter� que criar o banco de dados, as tabelas, e importar os dados, mas esse n�o � o maior problema. O problema � que voc� vai ter que mudar toda a sua aplica��o para acessar outro banco de dados, e isso em 3 dias, considerando que voc� vai ter que trabalhar sexta, s�bado e domingo para que o sistema esteja no ar na segunda, usando o novo banco de dados.

Neste momento voc� pode ter duas rea��es, dependendo de como o seu projeto atual foi desenvolvido:

01. O seu projeto foi desenvolvido sem qualquer organiza��o e � composto por centenas de formul�rios onde se misturam regras de neg�cio, l�gica de acesso a dados e c�digo para apresenta��o.

Neste cen�rio voc� vai ficar muito bravo, pois vai ter que ralar no final de semana, alterar milhares de linhas de c�digo, trabalhando direto para fazer a migra��o da aplica��o para usar o novo banco de dados MySQL sem saber se ao final as coisas v�o funcionar, pois n�o ter� tempo de testar.

"Por que eu n�o segui o conselho do Macoratti e n�o adotei as boas pr�ticas como uma arquitetura em camadas, padr�es de projeto e os recursos da orienta��o a objetos? "

02. O seu projeto foi desenvolvido com base nas boas pr�ticas de programa��o usando uma arquitetura em camadas, padr�es de projeto e, para melhorar a situa��o, voc� usou o NHibernate e ActiveRecord na sua camada de acesso a dados, pois j� previa que poderia haver uma mudan�a no gerenciador de banco de dados que a empresa estava usando.

Neste cen�rio voc� sente que chegou o momento de mostrar a sua compet�ncia, pois vai conseguir efetuar a migra��o com pouco esfor�o. Na verdade, voc� nem vai ter que trabalhar no final de semana, pois o trabalho ser� apenas criar o banco de dados e as tabelas com a mesma estrutura no MySQL, e na sua aplica��o voc� vai ter que apenas criar um novo arquivo de configura��o sem ter que mexer no c�digo.

"Ainda bem que eu segui o conselho do Macoratti e adotei as boas pr�ticas usando uma arquitetura em camadas, padr�es de projeto e os recursos da orienta��o a objetos."

Embora o cen�rio possa ser hipot�tico (e um tanto exagerado), ele n�o � imposs�vel de acontecer e, como desenvolvedores, devemos estar sempre preparados para� contornar os problemas que com certeza iremos encontrar na profiss�o.

Para ilustrar como � simples efetuar a migra��o de um banco de dados para outro quando se usa o NHibernate, eu vou usar o exemplo j� abordado na segunda parte deste artigo onde usamos banco de dados SQL Server e vou migrar a aplica��o para usar o MySQL.

A primeira coisa a fazer � criar o banco de dados e as tabelas no MySQL. Abaixo temos a estrutura do banco de dados SQL Server e das tabelas usadas pela aplica��o:

Temos que ter cuidado na cria��o do banco de dados e das tabelas, pois devemos manter a mesma estrutura e os mesmos tipos de dados usados pela aplica��o.

Usando o MySQL Administrator vemos abaixo o novo banco de dados Clientes e a tabela a nova Contatos criada no MySQL:

Ap�s migrar os dados, vamos fazer a altera��o na aplica��o para acessar o novo banco de dados e as tabelas no MySQL.

Ser� que teremos que alterar alguma linha de c�digo ? N�o, iremos mudar s� o arquivo de configura��o.

Para isso basta alterar o arquivo AppConfig.xml conforme abaixo:

<?xml version="1.0" encoding="utf-8" ?>
<activerecord>
  <config>
    <add
        key="connection.driver_class"
        value="NHibernate.Driver.MySqlDataDriver" />
    <add
        key="dialect"
        value="NHibernate.Dialect.MySQLDialect" />
    <add
        key="connection.provider"
        value="NHibernate.Connection.DriverConnectionProvider" />
    <add
        key="connection.connection_string"
        value="Server=localhost;Database=clientes;User ID=root;Password=xxxxxx" />
    <add
        key="proxyfactory.factory_class"
        value="NHibernate.ByteCode.Castle.ProxyFactoryFactory, NHibernate.ByteCode.Castle"  />
    <add
        key="hbm2ddl.keywords" value="none" />
  </config>
</activerecord>

Observe que alteramos as informa��es referentes ao banco de dados usado, como: driver de conex�o, dialeto, string de conex�o, etc.

Conseguimos, assim, portar uma aplica��o que usava um banco de dados SQL Server para usar um banco de dados MySQL sem ter que mudar uma �nica linha de c�digo, mexer em uma �nica regra de neg�cio.

Fazendo apenas esta altera��o j� podemos rodar a aplica��o e verificar o seu funcionamento:

Voc� aproveitou um momento de crise, mostrou a sua compet�ncia e no final da sexta-feira teve mais um motivo para comemorar! Tudo isso gra�as ao NHibernate e ao ActiveRecord.�

Pegue o projeto completo aqui: NHibernateActiveRecordDemoMySQL.zip (sem as dlls das refer�ncias)

Eu sei, � apenas NHibernate, mas eu gosto...

NHibernate - usando o ActiveRecord - Parte 02

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 03 Dec 2009 11:15:00 +0100

Na primeira parte deste artigo eu apresentei o ActiveRecord. Agora vou mostrar como usar este recurso em um projeto Windows Forms usando a linguagem VB .NET.

Apenas recordando, o ActiveRecord � um recurso que facilita a utiliza��o do NHibernate poupando o trabalho de criar os arquivos XML de mapeamento OR/M, para isso � criada uma classe onde usamos atributos para realizar esta tarefa.

Obs: O projeto Castle ActiveRecord oferece uma maneira r�pida e f�cil para implementar o padr�o de registro ativo para aplicativos do Microsoft com base no .NET Framework.

Usando o ActiveRecord e o NHibernate em uma aplica��o Windows Forms

Para que voc� possa entender como� implementar a utiliza��o dos recursos do ActiveRecord em sua aplica��o C# ou VB .NET, eu vou criar um exemplo usando a linguagem VB .NET no qual iremos realizar as seguintes tarefas:

Cria��o do banco de dados e da tabela usando o SQL Server 2008 Express;
Cria��o do projeto WIndows Forms;
Defini��o das refer�ncias para as DLLs do NHibernate e do ActiveRecord;
Cria��o das classe para realizar o mapeamento;
Defini��o do arquivo de configura��o;
Inicializando o Framework;
Usando as classes na aplica��o Windows Forms;

1. Criando o banco de dados e a tabela

A primeira coisa que eu vou fazer ser� criar o banco de dados Clientes e a tabela contatos no SQL Server 2008. Eu poderia criar as minhas classes de dom�nio e mandar gerar o banco de dados e as tabelas, mas por ser uma introdu��o vou seguir o caminho feliz.

Eu vou criar o banco de dados e a tabela usando o Microsoft SQL Server Management Studio. Abaixo vemos a estrutura da tabela definida com os campos : id, nome e email, sendo que id � um campo chave prim�ria do tipo identity;

2. Criando o projeto Windows Forms e fazendo a refer�ncia ao NHibernate e ao ActiveRecord

Abra agora o Visual Basic 2008 Express Edition e crie um novo projeto do tipo WIndows Forms Application com o nome NHibernateActiveRecordDemo;

A seguir clique com o bot�o direito do mouse sobre o nome do projeto e selecione a op��o Add Reference:

Na guia Browse primeiro localize onde voc� instalou os arquivos do NHibernate e inclua as refer�ncias conforme a figura 1.0;

Em seguida repita a opera��o selecionando as dlls na pasta onde voc� instalou as dlls do ActiveRecord conforme a figura 2.0;

3. Criando a classe para efetuar o mapeamento OR/M

No menu Project selecione Add Class e informe o nome Contato.vb. Esta classe dever� herdar da classe ActiveRecordBase e usar os atributos do ActiveRecord para realizar o mapeamento OR/M para a tabela Contatos.

Imports Castle.ActiveRecord

<ActiveRecord("contatos")> _
Public Class Contato
Inherits ActiveRecordBase(Of Contato)

    Private m_id As Integer
    Private m_nome As String
    Private m_email As String

<PrimaryKey("Id")> _
    Public Property Id() As Integer
        Get
            Return (m_id)
        End Get
        Set(ByVal value As Integer)
            m_id = value
        End Set
    End Property

    <[Property]("Nome")> _
    Public Property Nome() As String
        Get
            Return (m_nome)
        End Get
        Set(ByVal value As String)
            m_nome = value
        End Set
    End Property

    <[Property]("Email")> _
    Public Property Email() As String
        Get
            Return (m_email)
        End Get
        Set(ByVal value As String)
            m_email = value
        End Set
    End Property

End Class

Neste arquivo usamos o namespace Castle.ActiveRecord para ter acesso �s classes e aos atributos;

A classe Contato herda da classe ActiveRecordBase() e dessa forma poder� usar os m�todos para mapear e persistir informa��es para o banco de dados;

Definimos 3 propriedades e usamos os seguintes atributos:

- <PrimaryKey("Id")> _
- <[Property]("Nome")> _
- <[Property]("Email")> _

Para mapear as propriedades para os campos da tabela Contatos.

N�o definimos explicitamente o nome da tabela nem seu esquema, mas o ActiveRecord � capaz de inferir estas informa��es.

Observe que a classe Contato estende a classe ActiveRecordBase e usa atributos para sinalizar quais propriedades mapeiam para colunas na tabela de banco de dados e a coluna que serve como a chave prim�ria.

A classe de ActiveRecordBase define m�todos de inst�ncia, como criar e salvar e m�todos est�ticos incluindo Find, FindAll e DeleteAll.

Junto com a cria��o da classe Contatos, voc� tamb�m vai precisar definir algumas configura��es de configura��o, como a seq��ncia de conex�o de banco de dados e algumas poucas op��es espec�ficas de NHibernate.

Mas n�o h� necessidade de escrever nenhum c�digo de acesso a dados. que � realizado para voc� automaticamente pelo projeto de ActiveRecord e NHibernate.

Na verdade, voc� nem precisa ter criado as tabelas do banco de dados neste ponto, como o projeto ActiveRecord pode automaticamente gerar as tabelas com base nas classes que voc� criou. (N�o vou usar este recursos neste exemplo.)

Obs: Nosso exemplo possui somente uma tabela, mas podemos trabalhar com relacionamentos entre tabelas. A sintaxe do atributo do projeto ActiveRecord tamb�m � usada para estabelecer relacionamentos entre classes. Por exemplo, os atributos HasMany e BelongsTo podem ser usados em uma classe pai e filho, respectivamente, para indicar uma rela��o um-para-muitos.

4. Criando o arquivo XML para definir as configura��es usadas pelo NHibernate

Vamos agora criar o arquivo de configura��o para o NHibernate com o nome AppConfig.xml conforme abaixo:

<?xml
version="1.0"
encoding="utf-8"
?>

<activerecord>

<config>

    <add

            key="connection.driver_class"

           value="NHibernate.Driver.SqlClientDriver" />

     <add

            key="dialect"

            value="NHibernate.Dialect.MsSql2005Dialect" />

     <add

            key="connection.provider"

           value="NHibernate.Connection.DriverConnectionProvider" />

     <add

             key="connection.connection_string"

             value="Data Source=.\SQLEXPRESS;Initial Catalog=Clientes;Integrated Security=SSPI" />

      <add

            key="proxyfactory.factory_class" />

            value="NHibernate.ByteCode.Castle.ProxyFactoryFactory, NHibernate.ByteCode.Castle"

</config>

</activerecord>

Neste arquivo estamos definindo as seguintes informa��es:

O driver do banco de dados usados no projeto:� key="connection.driver_class"
O dialeto do banco de dados :� key="dialect"
O provedor da conex�o : �key="connection.provider"
A string de conex�o usada: �key="connection.connection_string"
O proxy : � key="proxyfactory.factory_class" />

Estas informa��es referem-se ao banco de dados que estamos usando, no caso o SQL Server 2008 Express.

Este arquivo XML deve estar localizado na pasta bin/debug quando o projeto estiver sendo executado no modo de debug.

Neste momento o seu projeto dever� ter a seguinte estrutura:

Vamos partir para a cria��o da interface e utiliza��o na pr�tica do ActiveRecord.

5. Criando o arquivo para inicializar o framework

No menu Project selecione Add Class e informe o nome App.vb e inclua nele o seguinte c�digo:

Imports Castle.ActiveRecord
Imports Castle.ActiveRecord.Framework
Imports Castle.ActiveRecord.Framework.Config

Public Class App

    Public Shared Sub Main()
        Dim source As XmlConfigurationSource = New XmlConfigurationSource("AppConfig.xml")
ActiveRecordStarter.Initialize(source, GetType(Contato))
    End Sub

End Class

Este arquivo ir� ler as informa��es do arquivo AppConfig.xml criado e iniciar o framework usando o m�todo Initialize da classe ActiveRecordStarter.

Temos que executar este c�digo antes de poder usar os recursos do ActiveRecord, e, sem fazer isso o projeto n�o vai funcionar.

6. Criando a interface com o usu�rio

Agora vamos criar uma interface usando o formul�rio form1.vb conforme a figura abaixo:

Iremos implementar as funcionalidades de listar, incluir, alterar e excluir informa��es do banco de dados usando o NHibernate e o mapeamento gerado pelo ActiveRecord.

a. Listando os contatos no DataGridView

Vamos primeiro definir o c�digo para listar as informa��es da tabela Contatos no evento Click do bot�o Listar:

Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar.Click
        Try
   gdvContato.DataSource = Contato.FindAll()
        Catch ex As Exception
            MsgBox(" ERRO : " & ex.Message)
        End Try
    End Sub

Olhe bem o c�digo que usamos; ele � respons�vel por obter os dados da tabela contatos e exibir no datagridview.

Cad� o comando SQL, a conex�o, os objetos Command, Connection , dataset, datable, dataadapter ????

Esta � a vantagem em usar o NHibernate. N�o precisamos de nada nisso.�

Estamos usando apenas o m�todo FindAll() que retorna todas as inst�ncias do tipo Contato. Lembre-se de que a nossa classe Contato herda da classe ActiveRecordBase(Of Contato).

b. Criando um novo contato

Para criar um novo contato eu vou incluir um novo formul�rio a partir do menu Project op��o Add Windows Forms com o nome Novo.vb conforme o leiaute abaixo:

Este formul�rio possui 3 Labels, 3 TextBox :

txtNome
txtEmail

Dois controles Buttons:

btnSalvar
btnCancelar

Para incluir um novo Contato n�o � preciso informar o c�digo do mesmo, visto que este campo foi definido como do tipo identity na tabela e � gerenciado pelo pr�prio banco de dados.

O c�digo do evento Click do bot�o Salvar do formul�rio Novo.vb � dado a seguir:

 Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
If txtNome.Text <> String.Empty And txtEmail.Text <> String.Empty Then
Dim contato As New Contato
contato.Nome = txtNome.Text
contato.Email = txtEmail.Text
Try
contato.Create()
txtNome.Text = ""
txtEmail.Text = ""
MsgBox("Contato criado com sucesso.")
Catch ex As Exception
MsgBox("Erro " & ex.Message)
End Try
End If
End Sub

Neste c�digo verificamos se foram informados valores para nome e email nas caixas de texto e em seguida criamos uma inst�ncia da classe Contato.

A seguir atribu�mos os valores para o objeto criado e usamos o m�todo Create() que cria (Salva) uma nova inst�ncia do objeto para o banco de dados.

Limpamos os controles e exibimos uma mensagem ao usu�rio. Ocorrendo erro emitimos um aviso.

Antes que eu esque�a o c�digo que abre este formul�rio est� no evento Click do bot�o Novo do formul�rio Form1.vb :

Private 
    Sub btnNovo_Click(ByVal 
    sender As 
    System.Object, ByVal 
    e As System.EventArgs)
    Handles 
    btnNovo.Click

�� My.Forms.Novo.ShowDialog()

End Sub

c. Alterando um contato existente

O c�digo do evento Click do bot�o Alterar do formul�rio Form1.vb� apenas abre um novo formul�rio que eu crie e chamei de Alterar.vb. O c�digo �:

Private 
    Sub btnAlterar_Click(ByVal 
    sender As 
    System.Object, ByVal 
    e As System.EventArgs)
    Handles 
    btnAlterar.Click��� 
    My.Forms.Alterar.ShowDialog()
End
    Sub

Para alterar um contato eu vou incluir um novo formul�rio a partir do menu Project op��o Add Windows Forms com o nome Alterar.vb conforme o leiaute abaixo:

Este formul�rio possui 3 Labels, 3 TextBox :

txtCodigo
txtNome
txtEmail

Dois controles Buttons:

btnSalvar
btnCancelar

Dica: Como os formul�rio Novo.vb e Alterar.vb s�o iguais poder�amos ter usado a heran�a visual para cri�-los.

Neste formul�rio a propriedade Enabled do controle txtCodigo foi definida como False, pois n�o podemos alterar o c�digo do contato.

No evento Load do formul�rio Alterar.vb devemos incluir o c�digo a seguir:

Private Sub Alterar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 txtCodigo.Text = Form1.gdvContato.CurrentRow.Cells(0).Value.ToString()
        txtNome.Text = Form1.gdvContato.CurrentRow.Cells(1).Value.ToString()
        txtEmail.Text = Form1.gdvContato.CurrentRow.Cells(2).Value.ToString()
    End Sub

Este c�digo apenas obt�m os valores selecionados no controle DataGridView e os exibe nas caixas de texto do formul�rio Alterar.vb para que possamos realizar as mudan�as.

No evento Click do bot�o Salvar temos o seguinte c�digo :

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

        Dim codigo As Integer = Convert.ToInt32(txtCodigo.Text)
        Dim contato As Contato = contato.Find(Convert.ToInt32(codigo))

        contato.Nome = txtNome.Text
        contato.Email = txtEmail.Text
        Try
  contato.Update()
            MsgBox("Contato atualizado com sucesso.")
        Catch ex As Exception
            MsgBox("Erro " & ex.Message)
        End Try
    End Sub

O c�digo obt�m o c�digo da caixa de texto e usando o m�todo Find() procura pelo objeto na cole��o de objetos.

Em seguida atribui os valores definidos nas caixas de texto ao objeto encontrado e usando o m�todo Update() atualiza as informa��es no banco de dados.

d. Excluindo um contato existente

Para excluir um contato existente inclu�mos o c�digo abaixo no evento Click do bot�o Excluir:

 Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click



If (MsgBox("Deseja excluir o contato : " &
gdvContato.CurrentRow.Cells(1).Value.ToString(), MsgBoxStyle.YesNo) =
MsgBoxResult.Yes) Then
            Dim codigo As Integer = Convert.ToInt32(gdvContato.CurrentRow.Cells(0).Value.ToString())
            Dim contato As Contato = contato.Find(Convert.ToInt32(codigo))



            Try
  contato.Delete()
                MsgBox("Contato exclu�do com sucesso.")
            Catch ex As Exception
                MsgBox("Erro " & ex.Message)
            End Try
        End If
    End Sub

No c�digo, primeiro obtemos o valor do c�digo do contato a partir da c�lula do DataGridView selecionada e em seguida, usando o m�todo Find(), procuramos pelo objeto na cole��o de objetos.

Para excluir o objeto usamos o m�todo Delete() que deleta uma inst�ncia do banco de dados.

Abaixo vemos a aplica��o em execu��o mostrando a altera��o de um contato:

Como podemos notar, o NHibernate realiza as opera��es de persist�ncia usando os m�todos apropriados de forma que no nosso c�digo n�o precisamos usar instru��es SQL nem os objetos ADO .NET para realizar a conex�o, criar comandos para efetivar tais opera��es.

De uma forma resumida podemos dizer que por tr�s dos panos, quando usamos o ActiveRecord, ocorrem as seguintes tarefas:

os comandos SQL s�o gerados;
os comandos SQL s�o passados para o Gerenciador de banco de dados em uso (RDBMS);
o RDBMS compila e executa o SQL;
retorna um enumerable;
cria um modelo ActiveRecord para cada linha;

Pegue o projeto completo aqui: NHibernateActiveRecordDemoSQLServer.zip (sem as refer�ncias)

O c�digo ficou mais limpo e f�cil de manter e ainda temos uma vantagem adicional: se precisarmos mudar o banco de dados, a �nica altera��o que devemos fazer ser� no arquivo de configura��o AppConfig.xml. � isso que irei mostrar na continua��o deste artigo.

Eu sei, � apenas NHibernate, mas eu gosto...

VB .NET - Monitorando as notifica��es de eventos do sistema

macoratti@yahoo.com (Jos� Carlos Macoratti) — Wed, 07 Oct 2009 10:30:00 +0100

A classe SystemEvents fornece acesso �s notifica��es de eventos do sistema e tamb�m fornece a capacidade para responder a tipos espec�ficos de eventos do sistema.

Quando um evento do sistema � gerado, os delegados anexados ao evento s�o chamados usando a linha de execu��o que monitora os eventos do sistema. Portanto, voc� deve fazer qualquer chamada de seu manipulador de evento. Se voc� precisar chamar um evento do sistema que n�o � exposto como um membro da classe, voc� pode usar o m�todo InvokeOnEventsThread.

A seguir temos alguns dos m�todos da classe SystemEvents:

Nome	Descri��o
CreateTimer	Cria uma nova janela Timer associado � janela eventos do sistema.
Equals	Determina se o�objeto especificado � igual ao objeto�atual.
Finalize	Permite que um objeto tente liberar recursos e executar outras opera��es de limpeza antes de o objeto ser recuperado por coleta de lixo.
GetHashCode	Serve como uma fun��o�hash para um tipo espec�fico.
GetType	Obt�m o tipo da inst�ncia atual.
InvokeOnEventsThread	Chama o representante especificado o segmento que escuta eventos do sistema.
KillTimer	Encerra o timer especificado por determinada identifica��o.
MemberwiseClone	Cria uma c�pia superficial do objeto atual.

Podemos, ent�o, usar esta classe para verificar altera��es no sistema operacional e neste artigo vou mostrar alguns exemplos.

Como a quantidade de eventos e condi��es que podem ser monitorados s�o enormes, vou mostrar apenas alguns para que voc� tenha no��o de como podemos usar este recurso.

Lembrando que SystemEvents s�o eventos disparados pelo sistema em resposta a a��es que afetam o ambiente operacional. N�o confunda SystemEvents com eventos Win32, que s�o eventos do Kernell, acess�veis por todos os programas. Abaixo temos alguns eventos disparados pela classe SystemEvents:

DisplaySettingsChanged� -� Ocorre quando o usu�rio altera a exibi��o das configura��es;
EventsThreadShutdown� -� Ocorre antes da thread que escuta os eventos do sistema terminar;
InstalledFontsChanged� -� Ocorre quando o usu�rio inclui ou remove fontes ao sistema;
LowMemory - Ocorre quando o sistema est� rodando abaixo da mem�ria RAM;
PaletteChanged - Ocorre quando o usu�rio muda para uma aplica��o que usa uma paleta diferen�a;
PowerModeChanged� - Ocorre quando o usu�rio suspende ou reinicia o sistema;
SessionEnded - Ocorre quando o usu�rio est� efetuando um logoff ou um shutdown no sistema;
SessionEnding - Ocorre quando o usu�rio tenta efetuar um logoff ou um shutdown no sistema;
TimeChanged - Ocorre quando o usu�rio muda a hora do sistema;
TimerElapsed - Ocorre quando o timer do Windows expirou;
UserPreferenceChanged - Ocorre quando uma prefer�ncia do usu�rio sofreu uma mudan�a;
UserPreferenceChanging - Ocorre quando uma prefer�ncia do usu�rio est� sendo modificada;

Criando um exemplo para efetuar a monitora��o de eventos

Os namespaces usados no exemplo deste artigo s�o definidos pelas seguintes declara��es:

Imports System
Imports Microsoft.Win32

Crie um novo projeto Windows Forms no Visual Basic 2008� Express Edition e no formul�rio padr�o coloque o c�digo abaixo:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Define classe SystemEvents para receber as notifica��es dos eventos 
        'quando uma prefer�ncia do usu�rio for alterada, a paleta sofre altera��o, a exibi��o das configura��es mudar 
        'ou quando ocorrer uma altera��o na data/hora
        AddHandler SystemEvents.UserPreferenceChanging, AddressOf SystemEvents_UserPreferenceChanging
        AddHandler SystemEvents.PaletteChanged, AddressOf SystemEvents_PaletteChanged
        AddHandler SystemEvents.DisplaySettingsChanged, AddressOf SystemEvents_DisplaySettingsChanged
        AddHandler Microsoft.Win32.SystemEvents.TimeChanged, AddressOf TimeChangedEvent

    End Sub

    'Verifica altera��es na data/hora do sistema
    Sub TimeChangedEvent(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("A data/hora do sistema foi alterada")
    End Sub

    ' Este m�todo � chamado quando uma prefer�ncia do usu�rio � alterada.
    Private Sub SystemEvents_UserPreferenceChanging(ByVal sender As Object, ByVal e As UserPreferenceChangingEventArgs)
        MessageBox.Show("Altera��o de preferencias do usu�rio : " & e.Category.ToString())
    End Sub

    ' Este m�todo � chamado quando a paleta � alterada.
    Private Sub SystemEvents_PaletteChanged(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Ocorreu uma altera��o na Paleta")
    End Sub

    ' Este m�todo � chamado quando as exibi��o das configura��es muda
    Private Sub SystemEvents_DisplaySettingsChanged(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Exibi��o das configura��es foi alterada.")
    End Sub

    ' Verifica as altera��es das prefer�ncias do usu�rio
    Sub UserPreferenceChangedEvent(ByVal sender As Object, ByVal e As Microsoft.Win32.UserPreferenceChangedEventArgs)
        ' Verifica a categoria alterada
        Select Case e.Category
            Case Microsoft.Win32.UserPreferenceCategory.Color
                MessageBox.Show("Foram alteradas as cores do sistema")
            Case Microsoft.Win32.UserPreferenceCategory.Screensaver
                MessageBox.Show("Foi alterado o screensaver do sistema")
            Case Microsoft.Win32.UserPreferenceCategory.Window
                MessageBox.Show("Foram alteradas dimens�es ou caracter�sticas do sistema")
        End Select
    End Sub

Para testar o c�digo acima, execute o projeto e efetue uma altera��o relacionada ao evento que estamos monitorando, como, por exemplo, alterar a data do sistema. Voc� receber� um aviso emitido pela aplica��o, indicando que o evento est� sendo monitorado.

Podemos usar os recursos da infra-estrutura da plataforma .NET, como a classe SystemEvents para criar algo �til, como monitorar os eventos para realizar algumas tarefas, como gerar um log de auditoria ou n�o permitir que certas a��es sejam executadas, como n�o permitir o log off enquanto os dados n�o forem salvos, etc.

Eu sei, � apenas VB .NET, mas eu gosto...

Refer�ncias:

http://msdn.microsoft.com/en-us/library/microsoft.win32.systemevents.aspx

.NET - Usando Generics

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 03 Sep 2009 10:30:00 +0100

A vers�o 2.0 da plataforma .NET introduziu as cole��es gen�ricas que ficam agrupadas no namespace System.Collections.Generics; Generics permite a defini��o de tipos em tempo de execu��o.

Podemos dizer que Generics s�o cole��es tipadas de modo que somente um tipo de dado perten�a � cole��o. Ao se tentar inserir outro tipo de dado, o compilador ir� reclamar. Assim sabemos o que cada cole��o cont�m e n�o precisamos fazer a convers�o na hora de retirar um item da cole��o.

Estas cole��es Generics s�o fortemente tipadas, ou seja, est�o dispon�veis no intelissense e s�o verificadas pelo compilador, o que evita erros e torna mais f�cil a vida do desenvolvedor.

Os problemas que envolvem o uso de cole��es no VB.NET podem ser resumidos da seguinte forma:

As cole��es aceitam qualquer tipo de dados;
As cole��es fazem a convers�o impl�cita dos tipos de dados para Object;
Ao tratarmos os itens das cole��es temos que fazer o caminho de volta Object-> tipo-do-item via casting;
As cole��es n�o exibem suas propriedades no intelissense;
Tudo isto � transparente para o desenvolvedor e a depura��o pode ser traum�tica.;

As principais cole��es gen�ricas s�o:

List(Of� T) -� Representa uma lista fortemente tipada de objetos que podem ser acessados atrav�s de um �ndice. Fornece os m�todos Search, Sort e efetua a manipula��o da lista.
LinkdeList(Of� T) - Organiza os itens na forma de uma lista duplamente ligada.
Stack(Of T) - Organiza os itens na forma de um pilha.(LIFO - last-in first-out)
SortedList(Of TKey, TValue) - Representa uma cole��o de pares representados por chave/valor que s�o ordenados pela chave com base na implementa��o de System.Collections.Generic.IComparable associada.
SortedDictionary(Of TKey, TValue) - Representa uma cole��o de pares representados por chave/valor que s�o ordenados pela chave.
Queue(Of T) - Organiza os itens na forma de uma fila.(FIFO - first-in firs-out)

Nota: O par�metro (Of T) na declara��o da lista � obrigat�rio e indica qual o tipo de dados que poder� ser inclu�do na cole��o.

Come�ando pelo come�o

Um das cole��es gen�ricas mais usada � a List(Of (T)), onde se define o tipo da cole��o que se pretende usar.

Vamos iniciar um exemplo bem simples definindo uma lista do tipo String:

Abra o Visual Basic 2008 Express Edition e crie um novo projeto do tipo Windows Application com o nome usandoGenerics;

Inclua os seguintes controles no formul�rio: ListBox (lstALunos) , TextBox (txtNome) e Button1 (btnProcurar) e Button2(btnListar) conforme o leiaute abaixo:

No formul�rio padr�o form1.vb no in�cio da classe Form1 vamos declarar uma lista do tipo String:

' Cria uma nova lista do tipo "string"
Dim listaAlunos As New List(Of String)

Onde List(Of T) repesenta uma lista fortemente tipada que pode ser acessada pelo �ndice e fornece m�todos para ordenar, procurar e manipular listas.

No evento Load do formul�rio vamos popular a lista com nomes:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Inclui nomes na lista
        listaAlunos.Add("Macoratti")
        listaAlunos.Add("Jefferson")
        listaAlunos.Add("Jessica")
        listaAlunos.Add("Janice")
        listaAlunos.Add("Bianca")
        listaAlunos.Add("Yuri")
        listaAlunos.Add("Larissa")
        listaAlunos.Add("Larissa")
        listaAlunos.Add("Madalena")
        listaAlunos.Add("Marcia")
        listaAlunos.Add("Carlos")
    End Sub

Agora no evento Click do bot�o de comando inclua o seguinte c�digo:

Private Sub btnProcurar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibir.Click
        Dim nomeAluno As String = txtNome.Text
        ' Encontrou o nome
        If listaAlunos.Contains(nomeAluno) Then
            ' Exibe o nome e o total de nomes
            Dim msg As String = "{0} foi encontrado em uma rela��o de  {1} nome(s)"
            lstAlunos.Items.Add(String.Format(msg, nomeAluno, listaAlunos.Count))
        Else
            ' N�o encontrou nome na lista
            lstAlunos.Items.Add("Nome n�o encontrado na lista!")
        End If
    End Sub

Neste c�digo usamos os seguintes m�todos da lista :

Contains - determina se um elemento est� na lista;
Count - obt�m o n�mero de elementos contidos na lista;

Para listar o conte�do da lista inclu�mos o c�digo abaixo no evento Click do bot�o Listar:

  Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar.Click
        For i = 0 To listaAlunos.Count - 1
            lstAlunos.Items.Add(listaAlunos(i))
        Next
  End Sub

Como alternativa para listar o conte�do de uma lista tipada podemos tamb�m usar os seguintes m�todos:

For Each nome As String In listaAlunos
������lstAlunos.Items.Add(nome)
Next

Usando o loop For Each percorremos a lista e exibimos o nome

ou ainda:

    Dim atual As String
    Dim en As IEnumerator(Of String) = listaAlunos.GetEnumerator()
    While (en.MoveNext())
         atual = en.Current
        lstAlunos.Items.Add(atual)
    End While

Usando o GetEnumerator(), que � um fun��o da interface IEnumerable, obtemos um enumerator com o qual podemos percorrer a cole��o usando a fun��o MoveNext().

Quando usamos o MoveNext(), o enumerator vai para a primeira posi��o da cole��o e podemos acessar o seu valor usando a propriedade Current.

Ao chegar ao final da cole��o para retornar usamos a propriedade Reset.

Se voc� desejar ordernar a lista, basta usar a fun��o Sort: listaAlunos.Sort().

Se desejar passar os nomes da lista para caixa baixa, use o m�todo ToLower. Quer caixa alta? Ent�o use a fun��o ToUpper.

No exemplo abaixo usamos as fun��es Sort para ordernar e ToUpper para colocar em caixa alta os nomes da lista:

Dim atual
        As String

        listaAlunos.Sort()

        Dim en As IEnumerator(Of String) = listaAlunos.GetEnumerator()

        While (en.MoveNext())

        ����atual = en.Current.ToUpper()

        ����lstAlunos.Items.Add(atual)

        End While

Com o advento do Generics, podemos usar um c�digo mais limpo e otimizado em nossas aplica��es que tratam com cole��es de dados como as aplica��es que usam Banco de dados Relacionais.

Neste caso podemos criar uma classe definindo um tipo de dado para a nossa entidade e depois definir uma lista gen�rica do tipo da classe que implementamos. Entendeu? Bem, vamos mostrar isso na pr�tica...

Neste exemplo eu vou criar uma aplica��o ASP .NET usando a linguagem VB .NET que ter� como objetivo acessar a tabela Alunos em um banco de dados SQL Server Express Edition (Vou usar a vers�o 2005) e exibir a rela��o de alunos em uma p�gina web.

At� agora nada de mais, voc� pode estar pensando. A novidade � que eu vou usar generics para obter uma lista dos alunos que est�o na tabela Alunos. Vejamos...

Abra o Visual Web Developer 2008 Express Edition e crie um novo web site usando o template ASP .NET Web Site com o nome listaAlunosGenerics;

A seguir clique no menu Web Site e selecione a op��o Add new Item e na janela Templates selecione o template SQL Server DataBase, informe o nome Escola.mdf e clique em Add;

Clique no bot�o Sim para salvar o banco de dados na pasta App_Data:

A seguir abra o banco de dados na janela DataBase Explorer e crie a tabela Alunos com a seguinte estrutura:

id - int
nome - nvarchar(50)
email - nvarchar(80)

Clique com o bot�o direito do mouse sobre a tabela criada , selecione a op��o Show Table Data e inclua alguns registros na tabela.

Selecione a p�gina Default.aspx e inclua um componente GridView com id=gdvAlunos na p�gina:

Agora vamos criar uma classe que representar� a nossa tabela Alunos como uma entidade. Para isso, no menu Web Site, selecione Add New Item e, em templates, selecione Class e informe o nome Aluno.vb e clique em Add;

Confirme a op��o para salvar o arquivo na pasta App_Code;

Defina o c�digo abaixo no arquivo Alunos.vb:

Public Class Aluno
    Dim _id As Long
    Dim _nome As String
    Dim _email As String

    ReadOnly Property ID() As Long
        Get
            Return _id
        End Get
        Set(ByVal value As Long)
            _id = value
        End Set
    End Property
    Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property
    Property Email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
End Class

O c�digo define 3 membros e 2 propriedades para a classe Aluno que representa um aluno com id, nome e email.

Agora s� resta criar o c�digo no arquivo code-behind Default.aspx.vb para acessar o banco de dados, obter os registros e gerar a lista gen�rica usando a classe Aluno como tipo.

Abra o arquivo code-behind Default.aspx.vb e inclua o c�digo abaixo:

Imports usados:

Imports System.Data
Imports System.Data.SqlClient

O m�todo getAlunos() que acessa o banco de dados e gera uma lista contendo uma cole��o de objetos do tipo Aluno:

  Private Function getAlunos() As List(Of Aluno)

 Dim
strConn As String = "Data
Source=.\SQLEXPRESS;AttachDbFilename=C:\_aspn\listaAlunosGenerics\App_Data\Escola.mdf;Integrated
Security=True;User Instance=True"
        Dim sql As String = "Select * from Alunos"
 Dim listaAlunos As List(Of Aluno) = New List(Of Aluno)
        Dim con As SqlConnection = New SqlConnection(strConn)

        Try
            Dim cmd As SqlCommand = New SqlCommand(sql, con)
            con.Open()
            Dim dr As SqlDataReader = cmd.ExecuteReader
            While (dr.Read)
                Dim aluno As New Aluno
                aluno.ID = dr("id")
                aluno.Nome = dr("nome")
                aluno.Email = dr("email")
                listaAlunos.Add(aluno)
            End While
            Return listaAlunos
        Catch
            Throw New Exception("Erro ao gerar lista de alunos")
        Finally
            con.Close()
        End Try
    End Function

No evento Load da p�gina Default.aspx inclua o c�digo que ir� usar a fun��o getAlunos():

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        gdvAlunos.DataSource = getAlunos()
        gdvAlunos.DataBind()
    End Sub

Executando a p�gina iremos obter o seguinte resultado:

Mas afinal qual a vantagem? Ora bolas, com Generics estamos trabalhando com objetos fortemente tipados em lista de cole��es de objetos e, ao inv�s de passar um dataset ou datatable, estamos trafegando objetos.

Pegue os projetos completos aqui: UsandoGenerics.zip (VB .NET)� listaAlunosGenerics.zip (ASP .NET)

Eu sei, � apenas VB .NET e Generics, mas eu gosto...

VB. NET - Consumindo Web Services com Windows Forms

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 13 Aug 2009 10:30:00 +0100

Em meu artigo anterior, Criando Web Services, mostrei como � f�cil criar Web Services na plataforma .NET, mesmo usando uma ferramenta gratuita como o Visual Web Developer 2008 Express Edition.

Neste artigo vou mostrar como consumir o web service criado em uma aplica��o WIndows Forms criada no Visual Basic 2008 Express Edition.

Nota: Por raz�es did�ticas eu alterei o nome do web service criado no artigo citado de Service.asmx para getProdutosService.asmx.

A figura abaixo mostra como ficou o projeto com o novo nome. Isso n�o alterou em nada a funcionalidade criada.

Abra o Visual Basic 2008 Express Edition e crie um novo projeto do tipo Windows Forms Application usando a linguagem Visual Basic com o nome consumindoWS.

Na janela Solution Explorer clique com o bot�o direito do mouse sobre o nome do projeto e selecione a op��o Add Service Reference.

Na janela Add Service Reference informe na caixa Address a URL do nosso web service. Abaixo temos a informa��o (j� com o nome alterado).

Observe que o servi�o e a opera��o foram identificados. Clique no bot�o OK.

Voc� pode tamb�m clicar no bot�o Advanced... para ter acesso � janela Service Reference Settings e efetuar ajustes na configura��o.

Na janela de configura��o existe o bot�o Add Web Reference que remete � mesma janela que usada para referenciar o web service na aplica��o ASP .NET.

Neste momento a janela Solution Explorer ir� exibir a refer�ncia ao web service criado na pasta Web References:

Selecione o formul�rio form1.vb e a partir da ToolBox inclua um componente DataGridView no formul�rio.

Nota: Uma outra forma de incluir uma refer�ncia ao web service � atrav�s da op��o Choose Data Source do DataGridView.

Em seguida, clicando na op��o - Add Project Data Source... iremos para a janela Data Source Configuration Wizard onde vemos a op��o Service e Web Service.

Selecinando a op��o Service e clicando em Next> teremos a janela Add Service Reference:

Em seguida vamos referenciar o web service atrav�s da declara��o: Imports consumindoWS.WS_getProdutos.

Vamos declarar tamb�m o namespace System.Data: Imports System.Data.

No evento Load do formul�rio inclua o c�digo abaixo:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ws As New getProdutosService
        Dim ds As DataSet
        ds = ws.getProdutos(10)
        DataGridView1.DataSource = ds.Tables(0)
    End Sub

Criamos a inst�ncia do servi�o e um dataset.

Usando a inst�ncia do servi�o usamos o m�todo getProdutos() para obter um dataset contendo os 10 produtos da tabela.

Exibimos o dataset no grid do formul�rio:

Simples e pr�tico!!!

Pegue o projeto completo aqui: consumindoWS_WF.zip

Eu sei, � apenas VB .NET, mas eu gosto...

VB .NET - Obtendo informa��es da rede local

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 30 Jul 2009 10:30:00 +0100

A plataforma .NET inclui um conjunto de classes para tratar diversos aspectos relacionados com redes. Essas classes suportam quase tudo sobre programa��o baeada em sockets atrav�s do protocolo de controle de transmiss�o (TCP/IP) para efetuar o download de arquivos e p�ginas HTML a partir da web sobre o protocolo HTTP.

Neste artigo veremos como realizar algumas tarefas relacionadas com redes locais e ambiente cliente/servidor usando as classes da plataforma .NET.

1. O obtendo informa��es sobre a configura��o da rede local

Para obter informa��es sobre a rede local usamos o m�todo GetAllNetworkInterfaces da classe NetWorkInterface do namespace System.NetworkInformation.

Neste caso iremos obter um array de objetos derivados a partir da classe abstrata NetworkInterface, onde cada objeto representa uma interface de rede dispon�vel na m�quina local.

Usamos os membros de cada objeto NetworkInterface para retornar a informa��o sobre a configura��o de rede e as estat�sticas para a interface. Este recurso est� dispon�vel a partir da vers�o 2.0 da plataforma .NET.

A seguir temos nas tabelas abaixo as propriedades e m�todos da classe NetworkInterface:

Propriedades

Membro	Descri��o
Description	Obt�m uma String que fornece uma descri��o geral da interface.
Id	Obt�m uma String que cont�m um identificador �nico da interface.
isReceiveOnly	Obt�m um valor boleano que indica se a interface pode somente receber ou receber/enviar dados.
Name	Obt�m uma string contendo o nome da interface
NetworkInterfaceType	Obt�m um valor a partir da enumera��o System.Net.NetworkInformation.NetworkInterfaceType que identifica o tipo de interface. Os valores comuns incluem: Ethernet, FastEthernet and LoopBack.
OperationalStatus	Obt�m um valor a partir da enumera��o System.Net.NetworkInformation.OperationalStatus que identifica o estado da interface. Valores-padr�o incluem: Down e Up.
SupportsMulticast	Obt�m um valor boleano que indica se a interface est� habilitada para receber pacotes multicast.
Speed	Obt�m um valor Long que identifica a velocidade (em bits por segundo) da interface como informada pela interface (n�o baseada em um c�lculo din�mico)

M�todos

Membro	Descri��o
GetIPProperties	Retorna um objeto System.Net.NetworkInformation.IPInterfaceProperties que fornece acesso � informa��o da configura��o TCP/IP para a interface. As propriedades do objeto IPInterfaceProperties fornecem acesso ao WINS, DNS, gateway e configura��o do endere�o IP.
GetIPv4Statistics	Retorna um objeto System.Net.NetworkInformation.IPv4InterfaceStatistics que fornece acesso �s estat�sticas TCP/IP v4 para a interface. As propriedades do objeto IPv4InterfaceStatistics fornecem o acesso � informa��o sobre bytes enviados e recebidos, pacotes enviados e recebidos, pacotes descartados e pacotes com erros.
GetPhysicalAddress	Retorna um objeto System.Net.NetworkInformation.PhysicalAddress que fornece acesso ao endere�o f�sico da interface. Voc� pode obter o endere�o f�sico como um array de Byte usando o m�todo PhysicalAddress.GetAddressBytes ou como uma string usando PhysicalAddress.ToString.
Supports	Retorna um valor boleano indicando se a interface suporta um protoco espec�fico. Voc� especifica o protocolo usando um valor a partir da enumera��o System.Net.NetworkInformation.NetworkInterfaceComponent. Os valores poss�veis incluem IPv4 e IPv6.

A classe NetworkInterface tamb�m fornece outros membros est�ticos (Shared) que podem ser �teis como:

A propriedade LoopbackInterfaceIndex que retorna um inteiro identificando o �ndice da interface loopback no interior do array NetworkInterface retornado pelo m�todo GetAllNetworkInterfaces;
O m�todo GetIsNetworkAvailable que retorna um valor boleano indicando se qualquer conex�o de rede est� dispon�vel, ou seja, o valor de OperationalStatus est� definido como Up.

Vejamos ent�o um exemplo pr�tico que usa os membros da classe NetworkInterface para exibir a informa��o sobre todas as interfaces de rede na m�quina local:

Crie um novo projeto no Visual Basic 2008 Express Edition com o nome de infoRedeLocal;

No formul�rio padr�o inclua os componentes: TextBox, ListBox e Button conforme o leiaute da figura abaixo:

Agora defina os namespaces que iremos usar para poder ter acesso �s classes e obter informa��o sobre a rede local;

Imports System
Imports System.Net.NetworkInformation

A seguir vamos definir uma rotina chamada verificaRedeLocal() que ser� chamada para usar as classes da plataforma .NET e obter informa��es da rede local. O c�digo � dado abaixo:

 Private Sub verificaRedeLocal()


If NetworkInterface.GetIsNetworkAvailable Then

   ' Obtem e define todos os objetos NetworkInterface para a maquina local

     Dim interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()


    ' Percorre as interfaces e exibe informa�o

    For Each ni As NetworkInterface In interfaces

         ' relatorio endereco fisico.

       txtEnderecoFisico.Text = " Endereco Fisico : " & ni.GetPhysicalAddress().ToString()

        ' relatorio de informacao basica da interface

       lstInterfaceLocal.Items.Add(" Nome da Interface: " & ni.Name)

       lstInterfaceLocal.Items.Add(" Descricao : " & ni.Description)

       lstInterfaceLocal.Items.Add(" ID : " & ni.Id)

       lstInterfaceLocal.Items.Add(" Tipo : " & ni.NetworkInterfaceType)

       lstInterfaceLocal.Items.Add(" Velocidade : " & ni.Speed)

       lstInterfaceLocal.Items.Add(" Status : " & ni.OperationalStatus)

         ' Relatorio para estatistica de rede para a interface

       lstInterfaceLocal.Items.Add(" Bytes enviados : " & ni.GetIPv4Statistics().BytesSent)

       lstInterfaceLocal.Items.Add(" Bytes Recebidos: " & ni.GetIPv4Statistics.BytesReceived)

          ' Informa a configuracao do IP

       lstInterfaceLocal.Items.Add(" Enderecos IP:")


          For Each addr As UnicastIPAddressInformation In ni.GetIPProperties.UnicastAddresses

            lstConfiguracaoIP.Items.Add("contrato/validade " & addr.Address.ToString & (DateTime.Now.AddSeconds(addr.DhcpLeaseLifetime)).ToString)

          Next

      Next

Else

     MsgBox("Nao ha rede local disponivel")

End If

End Sub

Agora no evento Click do bot�o de comando inclua o c�digo abaixo que chama a rotina criada acima:

Private Sub btnExibir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibir.Click

    verificaRedeLocal()

End Sub

Executando o projeto em minha m�quina local, o resultado obtido foi o seguinte:

O resultado pode variar para cada m�quina dependendo da placa de rede e da configura��o da mesma.

Pegue o projeto completo aqui:� infoRedeLocal.zip

Eu sei, � apenas VB .NET, mas eu gosto...

Programa��o Ass�ncrona com Thread Pools

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 02 Jul 2009 10:30:00 +0100

Quando voc� est� desenvolvendo uma aplica��o, pode se deparar com uma situa��o onde existe a necessidade de realizar um processamento mais intenso. Isso pode fazer com que sua aplica��o sofra uma perda de desempenho dando a sensa��o ao usu�rio que a aplica��o est� 'congelada'.

Se voc� n�o precisa aguardar o t�rmino deste processamento para que o usu�rio interaja com a aplica��o, pode usar o recurso do ThreadPool para obter um comportamento ass�ncrono sem ter que recorrer ao processamento de MultiThreads.

MultiThreads??? Meu Deus!!! O que � isto???? Calma!! O termo MultiThread define a capacidade de se executar m�ltiplos processos ao mesmo tempo de forma independente. Ou seja, voc� executa duas tarefas (assobiar e chupar cana) ao mesmo tempo e uma tarefa n�o depende da outra para ser executada.

Vamos dar um exemplo para clarear: suponha que voc� queira carregar um controle ListView com os dados de uma tabela e que, ao mesmo tempo, queira tamb�m preencher o conte�do de uma Combobox com os dados de outra tabela. Bem, se conseguir realizar tal proeza ao mesmo tempo e de forma independente, voc� esta realizando um processamento MultiThread.

Ora, ora, voc� pode estar pensando com os seus bot�es que o VB6.0 suporta o processamento MultiThread... Mas eu lhe digo que est� enganado. Na verdade, quando voc� tenta fazer tal tarefa usando o VB 6.0, a tarefa � feita sequencialmente; s� que a coisa � t�o r�pida (se a tabela tiver poucos registros) que parece - eu disse parece - que as tarefas s�o realizadas simultaneamente. O que o VB6.0 faz � executar m�ltiplos apartamentos dentro de um �nico processo.

No VB.NET a multiTarefa (MultiThread) � uma realidade, ou seja, podemos ter m�ltiplos processos paralelos que podem acessar o mesmo conjunto de dados compartilhados.

A plataforma .NET mant�m um pool de threads prontas para serem usadas, que s�o id�ias para realizar tarefas r�pidas. Geralmente essas threads s�o usadas para opera��es ass�ncronas de acesso a arquivos ou opera��es realizadas pela chamada de um Delegate ou BeginInvoke.

Delegates s�o tipos usados para invocar um ou mais m�todos onde o m�todo atual invocado � determinado em tempo de execu��o.

Delegates prov� uma forma de invocar m�todo pelo seu endere�o ao inv�s de seu nome.

Como estas tarefas s�o r�pidas, a cria��o e destrui��o das threads passa a ter uma por��o significativa no tempo de execu��o da tarefa. Para evitar que gerenciamento de linhas de execu��o (Threads) afete o desempenho, a .NET Framework cria um pool de threads quando necess�rio at� um valor limite e, ent�o, mant�m as threads do pool em estado de espera e prontas para a pr�xima opera��o ass�ncrona. Com isso, � ocupada apenas uma pequena quantidade de mem�ria para cada thread, otimizando o desempenho.

A classe System.Threading.ThreadPool fornece um n�mero de m�todos est�ticos que permitem que voc� monitore e controle as threads do pool.

Vejamos os mais importantes:

GetMaxThreads - Retorna o n�mero m�ximo das threads ativas no pool.
GetAvailableThreads- Retorna a diferen�a entre o n�mero m�ximo de threads do pool e o n�mero atual de threads ativas.
GetMinThreads - Retorna o n�mero de threads ociosas que o pool mant�m e espera de novas requisi��es.
SetMinThreads - Altera o valor m�nimo de threads dispon�veis no pool. Se voc� diminuir muito o n�mero de threads ociosas pode afetar o desempenho do sistema;
SetMaxThreads - Altera o valor m�ximo de threads dispon�veis no pool;
QueueUserWorkItem - Enfileira um m�todo para execu��o. O m�todo ser� executado quando uma thread do pool estiver dispon�vel. Geralmente voc� usa este m�todo para executar um processo em outra thread. Pode ser usado da seguinte forma:

QueueUserWorkItem(WaitCallBack)	Enfileira um m�todo para execu��o onde o m�todo executa quando a thread estiver ativa.
QueueUserWorkItem(WaitCallBack, Object)	Enfileira um m�todo para execu��o e especifica um objeto contendo os dados para ser usado pelo m�todo. O m�todo executa quando a thread estiver dispon�vel.

Para exemplificar a utiliza��o destes m�todos, vamos usar o Visual Basic 2008 Express Edition para criar uma aplica��o do tipo Console com o nome de threadPool_1 digitando o c�digo abaixo:

Imports System.Threading
Module Module1

    Sub Main()
        ' exibe o estado padr�o das threads do pool
        exibeEstadoThreads() '

        ' Altera os par�metros do Pool de threads
        Console.WriteLine("Alterando o numero de Threads...")
        If Not ThreadPool.SetMaxThreads(100, 500) Then
            Console.WriteLine("Chamada a SetMaxThreads falhou....")
        End If
        If Not ThreadPool.SetMinThreads(25, 25) Then
            Console.WriteLine("Chamada a SetMinThreads falhou....")
        End If

        ' Inicia uma thread do pool
    ThreadPool.QueueUserWorkItem(AddressOf NaofazNada)
        Thread.Sleep(10)

        ' Mostra o novo estado da thread
        exibeEstadoThreads()

        ' Aguarda para encerrar o programa
        Console.WriteLine()
        Console.WriteLine("Pressione Enter para encerrar...")
        Console.ReadLine()

    End Sub

    Sub exibeEstadoThreads()
        ' Retorna o n�mero m�ximo de threads do pool
        Dim threadsAtivas As Integer
        Dim threadsTerminadas As Integer
        ThreadPool.GetMaxThreads(threadsAtivas, threadsTerminadas)

Console.WriteLine("M�ximo de threads ativas={0}" & vbCrLf &
"M�ximo de I/O threads={1}", threadsAtivas, threadsTerminadas)

        ' Retorna o no m�nimo de threads ociosas
        ThreadPool.GetMinThreads(threadsAtivas, threadsTerminadas)

Console.WriteLine("Minino de threads ativas={0}" & vbCrLf &
"Minimo de I/O threads={1}", threadsAtivas, threadsTerminadas)

        ' Mostra threads dispon�veis
        ThreadPool.GetAvailableThreads(threadsAtivas, threadsTerminadas)

Console.WriteLine("Threads ativas dispon�veis={0}" & vbCrLf &
"Threads I/O dispon�veis={1}", threadsAtivas, threadsTerminadas)

    End Sub

    Sub NaofazNada(ByVal state As Object)
        Thread.Sleep(1000)
        Console.WriteLine("Sem fazer nada...")
    End Sub
End Module

Executando este projeto, iremos obter o seguinte resultado:

Usando ThreadPool em uma aplica��o Windows Forms

Como j� foi mencionado, a classe ThreadPool do namespace System.Threading cont�m um pool virtual de threads dispon�veis que voc� pode usar. Voc� pode usar a classe ThreadPool para realizar opera��es ass�ncronas com recurso de Multithread sem ter que escrever c�digo para gerenciar o pool de threads.

A classe ThreadPool gerencia um grupo din�mico de threads que est�o dispon�veis para realizar o processamento multithread. O n�mero de threads no pool � din�mico e voc� n�o � obrigado realizar nenhum trabalho extra para gerenciar as threads no pool. Se voc� requisitar uma thread e n�o existir nenhuma dispon�vel, o pool pode criar uma nova thread ou esperar at� que uma thread esteja dispon�vel.

O gerenciamento das threads � feita pelo pool de forma transparente e voc� n�o tem que se preocupar com esse detalhe apenas com o seu c�digo.

Para demonstrar como usar o recurso ThreadPool e obter o mesmo resultado obtido pela constru��o de threads vamos propor um problema que simula uma aplica��o Windows com um grande processamento inicial. Para for�ar uma simula��o, a aplica��o Windows ir� carregar 100 milh�es de n�meros em um controle ListBox.

Se a aplica��o simplesmente tentar carregar os n�meros inteiros no controle ListBox no evento Load do formul�rio, ele ir� demorar v�rios minutos para ser exibido. Mas se executarmos esta opera��o em uma thread separada, ent�o o nosso formul�rio ir� exibir o controle ListBox de imediato.

Nota: Observe que podemos usar este recurso pois n�o precisamos que o processamento de carregar os n�meros na LIstBox esteja conclu�do para poder exibir a ListBox e aguardar a intera��o do usu�rio.

Usando o recurso ThreadPool, o formul�rio ser� carregado de imediato enquanto a LIstBox continua a ser carregada em segundo plano ficando dispon�vel para a intera��o com o usu�rio.

Abra o Visual Basix 2008 Express Edition e crie um novo projeto do tipo Windows Forms Application com o nome threadPool_2 ;

Inclua no formul�rio padr�o form1.vb� um controle ListBox e um bot�o de comando Button conforme o leiaute abaixo:

Defina o namespace Imports System.Threading para termos acesso a classe ThreadPool.

No evento Load do formul�rio vamos incluir o c�digo:

Private  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  MyBase.Load

ListBox1.Items.Clear()
ThreadPool.QueueUserWorkItem(AddressOf carregaLista)

End Sub

Estamos usando o m�todo QueueUserWorkItem da classe ThreadPool para enfileirar a execu��o da rotina carregaLista quando uma thread do pool estiver dispon�vel (este m�todo � est�tico - Shared - e por isso n�o precisamos criar uma inst�ncia da classe ThreadPool).

Vejamos agora o c�digo da rotina carregaLista():

Private Sub carregaLista(ByVal state As Object)



Dim i As Double

SyncLock ListBox1.GetType

    For i = 10000000000000000 To 1 Step -1

            item = i

            ListBox1.Invoke(CType(AddressOf incluir, MethodInvoker))

      Next

End SyncLock

End Sub

Esta rotina ir� efetivamente carregar o controle ListBox com milh�es de n�meros. Observe que o c�digo est� sendo executado no interior de um SyncLock.

A instru��o SyncLock� garante que m�ltiplas threads n�o executem as instru��es do bloco ao mesmo tempo e previne que cada thread inicie a execu��o do c�digo no bloco at� que a outra thread terminou de executar o mesmo o c�digo.

Resta agora exibir o c�digo da rotina incluir :

	Private Sub incluir()

ListBox1.Items.Add(item)
Application.DoEvents()

End Sub

Neste c�digo estamos incluindo os valores no controle ListBox.

O m�todo Application.DoEvents permite que seu aplicativo manipule outros eventos que podem ser disparados enquanto seu c�digo � executado. O m�todo My.Application.DoEvents possui o mesmo comportamento que o m�todo DoEvents.

Executando o projeto teremos a exibi��o do formul�rio com o controle ListBox j� preenchido e a rotina para preenchimento continua sendo executada em outra thread.

Observe que usamos a thread a partir do pool atrav�s da classe ThreadPool de forma mais simples e sem preocupa��o em gerenciar threads.

Uma palavra final sobre Threads em aplica��es ASP .NET. Com certeza podemos tamb�m usar o recurso das� threads nas aplica��es ASP .NET para por exemplo executar processos que envolvem grandes processamentos no servidor. Como o assunto merece um tratamento � parte irei publicar um artigo a respeito em breve.

Eu sei, � apenas VB .NET, mas eu gosto...

Introdu��o a XAML (Extensible Application Markup Language)

macoratti@yahoo.com (Jos� Carlos Macoratti) — Thu, 02 Apr 2009 10:45:00 +0100

A XAML ou Extensible Application Markup Language � uma linguagem baseada em XML criada pela Microsoft sendo fundamental para o desenvolvimento de aplica��es WPF - Windows Application Foundation.

A XAML (pron�ncia zammel) � a linguagem usada para criar interfaces com usu�rio e representar dados em aplica��es WPF, sendo tamb�m usada para criar workflows em aplica��es WF - Windows WorkFlow Foundation. (A XAML tamb�m � usada no Silverlight).

A XAML pode ser compilada ou interpretada; dependendo de como for usada, alguns recursos como embutir c�digo C# ou VB no XAML s� funcionam quando a XAML � compilada. Quando voc� cria uma aplica��o WPF no VS 2008, a XAML usada na aplica��o � compilada em um execut�vel. Por�m voc� pode criar arquivos .xaml que podem ser interpretados em tempo de execu��o sem envolver compila��o. Estes arquivos XAML s�o geralmente hospedados em um servidor web.

Vamos criar uma aplica��o XAML bem simples, o famoso "Al� mundo", aquela aplica��o que n�o serve para nada, apenas para ter o primeiro contato com o WPF. O �nico pr�-requisito neste caso � possuir instalada a .NET Framework 3.5 (Se voc� tem o VS 2008 instalado com certeza ter� a .NET Framework 3.5).

Abra o um editor de Texto como o Bloco de Notas, por exemplo;
Crie um documento de texto e inclua ao seguinte c�digo no arquivo:

<Page xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
                       <TextBlock Text="Ola, pessoal, aqui eh o macoratti.!" />
</Page>

Salve o arquivo texto com o nome alo.xaml (No Bloco de Notas, para salvar com a extens�o .xaml digite o nome do arquivo entre aspas "alo.xaml")
Para testar clique duas vezes sobre o arquivo criado e voc� ver� o navegador padr�o ser aberto (IE 7 ou FireFox 3) exibindo o resultado conforme abaixo:

Nota: Se outro aplicativo estiver mapeado para abrir os arquivos com extens�o .xaml , ent�o abra o seu navegador e arraste e solte o arquivo alo.xaml no navegador aberto.

Parab�ns, voc� acabou de criar sua primeira aplica��o WPF usando XAML.

A aplica��o alo.xaml � um exemplo de um XAML interpretado pois n�o houve compila��o da aplica��o em um execut�vel. Na verdade aplica��es usando somente XAML s�o limitadas; em aplica��es mais elaboradas geralmente se usa o XAML com c�digo VB ou C#.

Observe que na aplica��o temos a utiliza��o de tags visto que o XAML � derivado do XML; note tamb�m que o elemento raiz � uma tag <Page>, mas existem outras possibilidades como a tag <Window>.

Em uma aplica��o XAML o elemento raiz sempre define dois namespace:

O padr�o, que � mapeado para WPF e usado para representa��o de dados no WPF; (http://schemas.microsoft.com/winfx/2006/xaml/presentation)
O prefixo x: � usado para especificidades XAML e usado para uma representa��o mais abrangente;( xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">)

Os namespaces em XML fornecem um escopo para nomes �nicos.

O atributo xmlns � usado para mapear um nome local como um x, para o namespace atual, o qual � especificado como como uma URI.

Elementos individuais ou tags que residem no namespace usam o nome local como prefixo em suas tags.

O namespace diz ao parse XML como o elemento no documento dever� ser interpretado.

A sintaxe XAML

Como regra geral, um elemento em XAML � uma inst�ncia de um objeto e atributos s�o propriedades do objeto. Veja abaixo um exemplo de um simples objeto Button em uma p�gina e a sua exibi��o no FireFox:

<Page xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">                    
    <Button x:Name="btnAmarelo"                               
    Width="100"                               
    Height="40"                               
    Background="Yellow"                               
    Content="Clique me" />
    </Page>

O elemento raiz corresponde a uma inst�ncia de System.Windows.Controls.Page, e tudo no namespace System.Windows.Controls � um controle WPF.

O elemento Button corresponde a uma inst�ncia da classe System.Windows.Controls.Button. Os atributos do elemento Button representam propriedades da inst�ncia do objeto.

Dessa forma estamos definindo valores para propriedades de largura(Width), altura(Height), cor de fundo(Background) e texto(Content).

Existem tamb�m um atributo x:Name que n�o � uma propriedade na classe Button, sendo um atributo especial que fornece um identificador �nico para o objeto ser acessado via c�digo (seria o mesmo que criar uma vari�vel do tipo Button com o nome btnAmarelo).

Voc� pode usar c�digo na linguagem VB.NET ou C# para fazer a mesma coisa. Veja abaixo um exemplo para o c�digo acima na linguagem C# e VB .NET:

Exemplo C#

Button btnAmarelo = new Button();
btnAmarelo .Width = 100;
btnAmarelo .Height = 40;
btnAmarelo .Content = "Clique-me";
btnAmarelo .Background = new SolidColorBrush(Colors.Yeloow);

Exemplo em VB.Net

Dim btnAmarelo As Button = New Button()
btnAmarelo .Width = 100
btnAmarelo .Height = 40
btnAmarelo .Content = "Clique-me"
btnAmarelo .Background = New SolidColorBrush(Colors.Yellow)

Na classe Button, Width e Height s�o tipos simples e a WPF converte o valor string 100 para um double de forma impl�cita.

Existem por�m muitas propriedades nos controles que n�o s�o tipos simples, algumas propriedades s�o objetos que possuem eles mesmos muitas propriedades que tamb�m podem ser tipos complexos. No exemplo acima a propriedade Background do button � do tipo SolidColorBrush (note que no c�digo XAML podemos simplesmente atribuir a cor diretamente a propriedade).

Uma alternativa usada para fornecer valores para tipos complexos � ao inv�s de definir a propriedade Background usando um atributo usar um elemento filho.

Veja abaixo um exemplo de como usar esta sintaxe para o exemplo acima:

<Button>
    <Button.Background>
           <SolidColorBrush 
Color="Yellow" />
     </Button.Background>
</Button>

O elemento filho � referenciado como uma propriedade do elemento que tem a forma: <ClassName.PropertyName />

A primeira parte � o nome da classe mais o ponto seguida pelo nome da propriedade. O conte�do do elemento filho � o valor que desejamos definir.

A linguagem XAML permite construir a interface com o usu�rio e para torn�-la mais funcional voc� precisa ter uma forma de efetuar o tratamento de eventos da sua aplica��o. A XAML torna isso uma tarefa simples atrav�s da utiliza��o do atributo Class :

Quando voc� cria uma aplica��o do tipo WPF no Visual Studio a interface inicial apresentada � a mostrada abaixo:

Note no c�digo XAML a classe: <Window x:Class="Window1"

O namespace x coloca o atributo Class no namespace XAML, o que significa que este � uma parte geral da linguagem XAML. O atributo Class diz ao parse XAML para gerar uma nova classe com o nome definido. A classe deriva da classe nomeada pelo elemento XML, ou seja, ser� criada uma classe chamada Window1 que deriva da classe WIndow. A classe ser� gerada automaticamente em tempo de compila��o.

A propriedade Content

Muitos dos controles que voc� vai usar em aplica��es WPF possuem a propriedade Content. A propriedade Content � uma propriedade especial e pode ser definida atribuindo diretamente o valor a propriedade (a proprieade Context � equivalente a propriedade Text de um controle Windows Forms):

        <Button x:Name="btnAmarelo"
    Width="100"                               
    Height="40"                              
    Background="Yellow"                               
    Content="Clique me" />

ou definindo a propriedade implicitamente usando um elemento filho, dessa forma as duas declara��es abaixo s�o equivalentes:

<Button Content="Clique me" /> ou <Button>Cique me</Button>

Como a propriedade Content � do tipo Object, podemos usar recursos avan�ados como desenhar uma elipse em um button. Veja o exemplo usando XAML:

<Button>
    
<Ellipse Width="24" 
Height="24"  
Fill="Yellow" />

</Button>

Apresentando o XAMLPAD

Eu n�o poderia deixar de falar do XAMLPAD (fonte: http://msdn.microsoft.com/pt-br/library/ms742398.aspx).

O XAMLPAD (xamlpad.exe) � um editor visual para XAML que � instalado com o SDK e pode ser encontrado na pasta: C:\Arquivos de programas\Microsoft SDKs\Windows\v6.0A\bin

O que � o Windows SDK?

O Windows SDK � uma cole��o de exemplos, ferramentas, documenta��o do sistema, refer�ncias e conceitos. � muito �til para ajudar o desenvolvedor a dar o pontap� inicial no desenvolvimento para a plataforma Windows. O Windows SDK ajuda o desenvolvedor a entender do que ele precisa para come�ar a desenvolver aplicativos mais simples e at� aplicativos mais sofisticados. Com o SDK v�rias ferramentas est�o presentes como compiladores e o XAMLPAD.

Um dos motivos para a inclus�o de ferramentas neste SDK � que n�o � necess�rio ter o Visual Studio.NET para desenvolver.

O XamlPad � um ferramenta que fornece os seguintes recursos:

Edi��o e exibi��o em tempo real;
As tags XAML s�o salvas automaticamente para o arquivo XamlPad_Salvar.XAML.
Os Modos Auto Parse e Refresh fornecem valida��o de sintaxe e re-exibi��o de conte�do;
Fornece suporte de localiza��o para seq��ncias de caracteres simples. Os Inv�lidos s�o exibidos em vermelho;
Erros s�o relatados na barra de status na parte inferior esquerda do janela principal;
A expans�o do conte�do em uma �rvore visual permite a voc� exibir valores de propriedade do conte�do;
Voc� pode carregar um arquivo existente no XamlPad, passando o nome de arquivo como um argumento de linha de comando;

Veja a seguir a cara do XAMLPAD:

Nota: Observe o modo de visualiza��o do c�digo XAML e do resultado.

O modo autom�tico de an�lise permite que voc� consulte erros de sintaxe logo que voc� vai digitando. Caso contr�rio, a an�lise autom�tica estiver ativada, voc� n�o ver� erros at� que voc� clique no Bot�o Atualizar. Voc� pode ativar e desativar o modo de an�lise Autom�tica clicando no bot�o An�lise autom�tica na parte superior de XAMLPAD.

Quando um erro for encontrado, todo o conte�do � exibido em uma cor vermelha, e as informa��es de status na parte inferior do XAMLPAD os erros de sintaxe espec�fico. Um hiperlink � direita do erro exibido permite que voc� v� rapidamente para a �rea de conte�do que cont�m o erro.

Dependendo do seu interesse, a XAML pode vir a ser uma grande aliada nos seus projetos, e, esta breve introdu��o tem como objetivo agu�ar a sua curiosidade para os recursos da linguagem.

At� o pr�ximo artigo XAML!