Programação On-Line

Controle de instância de Form Child

noreply@blogger.com (Flávio Tecla) — Sat, 06 Aug 2011 21:18:00 +0000

Saudações, pessoal!

Grande parte dos desenvolvedores de projetos do tipo Windows Forms Application, utilizam a propriedade IsMdiContainer para criar um formulário principal. A partir deste form, é que todos os forms filhos (Child) são acionados e abertos dentro do contêiner. Um problema comum neste contexto, é que a cada clique na objeto que abre o form filho, uma nova janela é aberta na janela principal. Veja um exemplo no trecho de código abaixo em linguagem VB.NET.

Private Sub JanelaFilhaToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles JanelaFilhaToolStripMenuItem.Click

Dim filho As New Form2()

filho.MdiParent = Me

filho.Show()

End Sub

Perceba na imagem acima que a cada vez que o usuário clica no menu “Janela Filha”, um novo Form é aberto no contexto da janela principal. Para evitar que este incidente ocorra, é necessário uma pequena alteração no trecho anterior.

Dim filha As Form2

Private Sub JanelaFilhaToolStripMenuItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles JanelaFilhaToolStripMenuItem.Click

If filha Is Nothing Then

filha = New Form2()

filha.MdiParent = Me

filha.Show()

Else

filha.WindowState = FormWindowState.Normal

End If

End Sub

Testando a aplicação, perceba que somente uma instância do formulário filho será aberta, ainda que o mesmo esteja minimizado na barra de tarefas do contêiner.
Esta é mais uma dica rápida e espero que seja útil.

Usando um formulário como caixa de diálogo

noreply@blogger.com (Flávio Tecla) — Wed, 13 Jul 2011 23:14:00 +0000

E aí, pessoal!

Esse texto é mais uma dica simples e objetiva, que tem por finalidade transformar um formulário (Windows Forms) em uma caixa de diálogo, semelhante a um MessageBox. Para escrever o projeto utilizou-se o Visual Studio 2010 em linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Com o projeto devidamente criado, acrescente um novo formulário ao projeto (Project > Add Windows Forms) e mantenha o nome sugerido pelo Visual Studio.

No Form2, acrescente dois botões e configure-os de acordo com as imagens abaixo (Perceba que alteramos a propriedade Text dos botões para “Sim” e “Não”).

Volte para o Form1, acesse o editor de código fonte do formulário (F7 ou dê um duplo-clique sobre o centro do Form1) e escreva as linhas de código abaixo.

Private Sub Form1_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles MyBase.Load

Dim f As New Form2

f.Text = "Mensagem personalizada"

If f.ShowDialog = Windows.Forms.DialogResult.Yes Then

MessageBox.Show("O usuário clicou em ""Sim"".")

Else

MessageBox.Show("O usuário clicou em ""Não"" ou fechou o Form.")

End If

End Sub

Pronto. Compile a aplicação pressionando a tecla de atalho F5 e confira o resultado.

Fico por aqui e até a próxima!

Usar a paleta de cores no .NET

noreply@blogger.com (Flávio Tecla) — Fri, 10 Jun 2011 23:51:00 +0000

E aí, programadores!

Este texto é mais uma dica rápida, simples e objetiva, que demonstra como utilizar uma paleta de cores do Windows no contexto de uma aplicação .NET. No exemplo, a cor de fundo do formulário (propriedade BackColor) será alterada pela cor selecionada na paleta. Para exemplificar, iremos usar o Visual Studio 2010 Ultimate e linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Acesse a Toolbox (caso não esteja aparecendo na IDE, clique no menu View > Toolbox), na guia Common Controls e arraste o controle Button para o formulário Form1.

Para escrevermos a rotina que irá abrir a paleta de cores, dê um duplo-clique sobre o botão Button1 e escreva o trecho de código abaixo.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' Instanciar um objeto da classe ColorDialog

Dim paleta As New ColorDialog()

' Abrir a paleta de cores e verificar se o usuário clicou no botão OK

If paleta.ShowDialog() = Windows.Forms.DialogResult.OK Then

' Alterar a cor de fundo do formulário atual

Me.BackColor = paleta.Color

End If

End Sub

O código é simples e está comentado para facilitar no entendimento. Para testar, salve e execute a aplicação pressionando a tecla de atalho F5. O resto é exibido na imagem abaixo.

Por hora é só.

Até a próxima!

Usando o assistente de criação de CSS

noreply@blogger.com (Flávio Tecla) — Wed, 08 Jun 2011 00:38:00 +0000

Olá, pessoal!

Dentre as inúmeras funcionalidades e recursos que compõem o Visual Studio, tem uma ferramenta que é muito utilizada pelos designers (e programadores que também atuam com layout de páginas) que é o assistente de criação de style CSS (Cascading Style Sheet).

Para obter mais informações sobre CSS, acesse o endereço http://maujor.com/

Para demonstrar, vamos utilizar o Visual Studio 2010 Ultimate e um projeto do tipo Web Site. Abra o Visual Studio e crie um novo projeto (File > New > Web Site) do tipo ASP.NET Empty Web Site.

Adicione uma página Default.aspx, clicando com o botão direito do mouse sobre o projeto, e em seguida Add New Item. Selecione o item Web Form, mantenha o nome original do arquivo e clique em Add.

Com a página criada, digite um texto qualquer para utilizarmos como exemplo.

Para acessar o assistente, clique no menu Format > New style. A janela do assistente é iniciada conforme a imagem abaixo.

Configure um novo style conforme a figura a seguir, em seguida clique no botão Apply (clique em Yes na caixa de diálogo) e depois em OK.

Para aplicarmos o novo estilo no texto “Programação On-Line”, clique no menu View > Apply Styles. A janela é automaticamente aberta e ocupa uma parte da IDE do Visual Studio.

Selecione o texto em que se deseja aplicar o style, e clique na classe .TituloPagina do arquivo CSS conforme a figura e veja o resultado, após o clique.

O exemplo é bem simples, mas serve para ilustrar o uso do utilitário de criação e formatação de estilos. Com ele, além de alterar uma fonte de um texto, também é possível ajustar o BackGround da página, alinhar a posição dos elementos HTML e ASP.NET e formatar o layout de uma Table.

Fico por aqui e espero ter ajudado.

Carregar um TreeView via código

noreply@blogger.com (Flávio Tecla) — Mon, 06 Jun 2011 23:57:00 +0000

E aí, pessoal!

O TreeView é um controle de extrema utilidade, e que serve para exibir informações no formato de árvore hierárquica. Neste artigo, veremos como criar os nós (pai e filho) de forma programática usando a linguagem C#.

Abra o Visual Studio (utilizou-se a versão 2010 Ultimate na edição do artigo) e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#.

Com o projeto criado e um formulário adicionado automaticamente (Form1), acesse a Toolbox e arraste o controle TreeView para o centro da janela.

Ajuste o controle para que se adeque às bordas do formulário. Em seguida, dê um duplo-clique sobre o Form1 para que o Visual Studio escreva a assinatura do evento Load do form. Copie o código abaixo e cole no evento deste evento.

private void Form1_Load(object sender, EventArgs e)

{

treeView1.Nodes.Add("Informática");

treeView1.Nodes[0].Nodes.Add("Netbook");

treeView1.Nodes[0].Nodes.Add("Computador");

treeView1.Nodes[0].Nodes[0].Nodes.Add("Netbook LG X140l-1140 Rosa Intel® Atom™");

treeView1.Nodes[0].Nodes[1].Nodes.Add("Computador Compaq All-in-one Cq1-1210br");

treeView1.ExpandAll();

}

O código acima cria um nó principal chamado “Informática”, e em seguida cria dois nós-filhos do nó principal ("Netbook" e "Computador"). Por fim, acrescentamos mais dois nós-filhos dos nós anteriores, para caracterizar uma árvore genealógica. Compile a aplicação e veja o resultado que deve ser semelhante ao da imagem abaixo.

Espero que seja útil e até a próxima!

Select em objeto DataTable

noreply@blogger.com (Flávio Tecla) — Sat, 04 Jun 2011 05:05:00 +0000

Saudações, jovens!

Neste texto, veremos como efetuar uma seleção de registros em um objeto DataTable previamente alimentado de forma programática. Para demonstrar, iremos criar o DataTable dinamicamente e sem a presença de uma base de dados. O projeto será criado no Visual Studio 2010 em linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto do tipo Web Site (File > New > Web Site) em linguagem VB.NET.

Vamos aproveitar a página Default.aspx para demonstrar o exemplo. Acesse a Toolbox, na guia Data e arraste o controle GridView para dentro da página. Segue abaixo o fonte HTML da página com a grade devidamente formatada.

</head>

<body>

<div>

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"

Width="432px">

<asp:BoundField DataField="Nome" HeaderText="Nome" />

<asp:BoundField DataField="Email" HeaderText="E-mail" />

</Columns>

</asp:GridView>

</div>

</form>

</body>

</html>

Percebam que acrescentamos duas colunas no GridView (Nome e E-mail), justamente para servir de base para a seleção que iremos fazer no DataTable. Abaixo do GridView, acrescente um controle TextBox e um Button que será usado na pesquisa. O código abaixo já contempla a grade e os dois controles.

</head>

<body>

<div>

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"

Width="432px">

<asp:BoundField DataField="Nome" HeaderText="Nome" />

<asp:BoundField DataField="Email" HeaderText="E-mail" />

</Columns>

</asp:GridView>

<br />

<asp:TextBox ID="TextBox1" runat="server">

</asp:TextBox> <asp:Button ID="Button1" runat="server" Text="Pesquisar" />

</div>

</form>

</body>

</html>

Neste momento, o layout da página Default.aspx deve ser semelhante a imagem abaixo.

Clique no menu View > Code para termos acesso ao editor de código fonte da página (code-behind). Transcreva o trecho abaixo para a página.

Imports System.Data

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not Page.IsPostBack Then

PreencherDataTable()

GridView1.DataSource = Session("contato")

GridView1.DataBind()

End If

End Sub

Private Sub PreencherDataTable()

Dim _dt As New DataTable

_dt.Columns.Add("Nome", GetType(String))

_dt.Columns.Add("Email", GetType(String))

_dt.Rows.Add("Tecla", "contato.programacao@gmail.com")

_dt.Rows.Add("Lula", "lula.pt@gmail.com")

_dt.Rows.Add("Kassab", "kassab.dem@gmail.com")

Session("contato") = _dt

End Sub

End Class

O código descreve a criação do objeto DataTable, a carga de alguns registros hipotéticos e a atribuição de toda a estrutura do objeto a variável de sessão Session(“contato”). Por fim, criamos o vinculo do GridView com a Session. Resta escrever a parte que dá nome ao artigo, que é o filtro com o método Select do DataTable. Ainda na aba Design, dê um duplo-clique sobre o botão pesquisar e escreva o código abaixo no escopo do evento Click.

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim _dt As New DataTable

If TextBox1.Text.Trim() = "" Then

GridView1.DataSource = Session("contato")

GridView1.DataBind()

Else

Dim _drFiltro() As DataRow = _

DirectCast(Session("contato"), DataTable).Select("Nome LIKE '%" + TextBox1.Text + "%'")

_dt.Columns.Add("Nome", GetType(String))

_dt.Columns.Add("Email", GetType(String))

For Each _dr As DataRow In _drFiltro

_dt.Rows.Add(_dr(0).ToString(), _dr(1).ToString())

GridView1.DataSource = _dt

GridView1.DataBind()

End If

End Sub

O exemplo é simples, e serve para entender o funcionamento do método Select do objeto. A nível de estudo, fizemos um filtro através do campo Nome do DataTable e recarregamos o GridView com o resultado da pesquisa. Para testar, execute a aplicação e veja o resultado.

Fico por aqui e até a próxima!

Query em SQL Server retornar um documento XML

noreply@blogger.com (Flávio Tecla) — Sun, 29 May 2011 14:58:00 +0000

O Microsoft SQL Server dispõe de um vários recursos interessantes que facilitam a vida do desenvolvedor, um deles é permitir que o resultado de uma query seja formatada como um documento XML. O documento pode resultar em um elemento por registro (com as colunas exibidas como atributos) ou exibir as colunas como elementos. Iremos demonstrar as duas formas acima.

Abra o Microsoft SQL Server Management Studio (2005 ou 2008) e faça a autenticação no servidor SQL usando as credencias de acesso.

Selecione uma base de dados na guia Object Explorer e crie uma nova janela de consulta.

Como exemplo, vamos selecionar os registros da tabela Employees de forma tradicional.

Aproveitando a consulta acima, acrescente as palavras-chave FOR XML AUTO para que o resultado seja apresentado na forma de um documento XML.

Perceba na primeira imagem, que a consulta anterior retornava 9 linhas, enquanto que a segunda resultou somente uma. Isso ocorre porque o documento XML foi escrito na forma horizontal, ou seja, todas as linhas em somente uma. Clique sobre a linha resultante e veja o resultado em um editor XML interno do próprio Management.

As colunas da consulta foram retornadas em forma de atributos XML. Vamos acrescentar a palavra-chave ELEMENTS para que a estrutura do documento acrescente elementos, ao invés de atributos.

Esta dica é útil quando se utiliza o SGBD Microsoft SQL Server e documentos XML no escopo da aplicação.

Espero que tenham gostado, e até a próxima!

Exportar MSFlexGrid para um arquivo CSV

noreply@blogger.com (Flávio Tecla) — Sat, 28 May 2011 14:44:00 +0000

Saudações, pessoal!

O arquivo com o formato CSV (campo separado por vírgula) é uma excelente alternativa para utilização de um arquivo de texto com conteúdo organizado. Com a separação das colunas usando a vírgula (ou outro caractere separador), é possível importar/exportar um arquivo CSV no Microsoft Excel ou qualquer outro editor de planilhas eletrônicas (Open Office, BR Office, Google Docs etc).

Este projeto permite que o conteúdo de uma grade MSFlexGrid possa ser exportado para um arquivo CSV, e em seguida aberto no Microsoft Excel para visualizar os dados organizados por colunas. O projeto foi escrito em linguagem Visual Basic 6.0 e necessita da base de dados Northwind (versão Microsoft Access) que pode ser baixado no link abaixo.http://sites.google.com/site/programacaoonline/download na seção Arquivos Diversos.

Grade carregada com os registros da tabela Products

Arquivo CSV aberto no NotePad do Windows

Arquivo CSV aberto no Excel da Microsoft

Baixe o projeto no link abaixo:
GridParaCSV_Tecla.rar

Até mais!

Visualizar planilha do Excel dentro do Form em VB6

noreply@blogger.com (Flávio Tecla) — Fri, 27 May 2011 01:47:00 +0000

Que tal, permitir que o usuário da sua aplicação em VB6, possa visualizar um arquivo do Excel dentro do formulário? A idéia é interessante e muito simples de se executar, nada que o controle WebBrowser do Visual Basic não consiga fazer. Para demonstrar, irei utilizar uma planilha criada e pré-formatada no próprio Excel.

Abra o Visual Basic e crie um novo projeto do tipo Standard EXE.

O VB cria um formulário (Form1) de forma automática, o qual iremos utilizar para demonstrar o exemplo proposto. Adicione a referência “Microsoft Internet Controls” ao projeto, para que o controle WebBrowser esteja disponível para utilização. Clique no menu Project > Components e marque a opção conforme abaixo.

Com o controle no projeto, aumente as dimensões do Form1 e arraste o controle WebBrowser da Toolbox para a janela.

Já temos o formulário com o controle redimensionado, só nos resta escrever “uma única linha” de código para que a planilha seja exibida no WebBrowser. Dê um duplo-clique sobre uma área do Form1 e escreva o trecho de código abaixo no evento Load.

Private Sub Form_Load()

WebBrowser1.Navigate "C:\Products.xls"

End Sub

Compile a aplicação e clique no botão “Abrir” da caixa de diálogo que aparecerá ao executar o projeto. Se tudo correr bem, o resultado obtido será conforme o da imagem abaixo.

É tudo muito simples, mas dá pra "atender a necessidade do usuário".

Até a próxima!

Exportando um DataGridView para Excel com VB.NET

noreply@blogger.com (Flávio Tecla) — Fri, 27 May 2011 00:43:00 +0000

O projeto à seguir exemplifica como extrair o conteúdo de um controle DataGridView para um arquivo Excel 2007 (*.xlsx). Para baixar o código fonte, acesse o link abaixo:
Download DGViewParaExcel.rar

Após a geração da planilha, o leiaute com a formatação simples é representada na imagem abaixo.

Por enquanto é só, até mais!

Exportar banco de dados para XML

noreply@blogger.com (Flávio Tecla) — Thu, 26 May 2011 00:10:00 +0000

Em vários momentos, percebemos necessidade do usuário da aplicação, exportar as informações de um banco de dados para um arquivo externo. Um dos formatos que vem sendo muito utilizado em .NET, é o arquivo XML (Extensible Markup Language).

XML (Extensible Markup Language) é uma recomendação da W3C para gerar linguagens de marcação para necessidades especiais.
É um subtipo de SGML (acrônimo de Standard Generalized Markup Language, ou Linguagem Padronizada de Marcação Genérica) capaz de descrever diversos tipos de dados. Seu propósito principal é a facilidade de compartilhamento de informações através da Internet.
Entre linguagens baseadas em XML incluem-se XHTML (formato para páginas Web), RDF,SDMX ,SMIL, MathML (formato para expressões matemáticas), NCL, XBRL, XSIL e SVG (formato gráfico vetorial). A principal característica do XML, de criar uma infra-estrutura única para diversas linguagens, é que linguagens desconhecidas e de pouco uso também podem ser definidas sem maior trabalho e sem necessidade de ser submetidas aos comitês de padronização.
Fonte: http://pt.wikipedia.org/wiki/XML

Para demonstrar a exportação para XML, iremos utilizar uma base Access (MDB) e o Visual Studio 2010 Ultimate em linguagem C#. Para fazer download da base de dados, acesse o endereço abaixo:

http://sites.google.com/site/programacaoonline/download

Abra o VS e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#.

Acesse a Toolbox, na guia Common Controls e adicione um controle Button no formulário Form1. Altere a propriedade Text para “Exportar MDB para XML”.

Dê um duplo-clique sobre o botão e escreva o trecho de código abaixo no evento Click.

using System.Data.OleDb;

private void button1_Click(object sender, EventArgs e)

{

string conStr = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\\Publico\\Northwind.mdb";

string query = "Select FirstName, LastName, Address, City From Employees";

using (OleDbDataAdapter da = new OleDbDataAdapter(query, conStr))

{

DataSet ds = new DataSet();

da.Fill(ds, "Employees");

ds.WriteXml("C:\\Publico\\Employees.xml");

}

MessageBox.Show("Exportação para XML concluída com êxito!");

}

A rotina acima, basicamente, se conecta na base Northwind.mdb que está alocada no caminho “C:\Publico” e faz uma consulta na tabela “Employees” (Funcionários). Em seguida, executou-se o comando no banco de dados e armazenou-se o resultado da consulta em um objeto DataSet. Através do método WriteXml, é que conseguimos converter o resultado para XML. Compile o projeto e teste a aplicação.

Segue a imagem do arquivo XML gerado após a execução do programa.

Fico por aqui e até a próxima!

Obter os nomes dos dias da semana

noreply@blogger.com (Flávio Tecla) — Mon, 23 May 2011 23:50:00 +0000

E aí, pessoal!

Esta é uma dica rápida e simples, que tem por objetivo listar os nomes dos dias da semana no idioma PT-BR (Português-Brasil). Para demonstrar este exemplo, utilizaremos o Visual Studio 2010 Ultimate em linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Adicione um controle TextBox no formulário Form1 e altere a propriedade MultiLine para True. Redimensione o controle para que ocupe a área central da janela.

Dê um duplo-clique sobre a área do Form para que o VS crie o evento Load da janela. Codifique o evento conforme a listagem abaixo.

Imports System.Globalization

Public Class Form1

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

Dim domingo As New DateTime(2011, 5, 21)

Dim idioma As New CultureInfo("pt-BR")

For d As Integer = 1 To 7

domingo = domingo.AddDays(1)

TextBox1.Text += domingo.ToString("D", idioma).Split(",")(0).ToUpper() + Environment.NewLine

End Sub

End Class

Compile a aplicação e veja o resultado que obtemos.

Até a próxima!

Criando um banco Access em tempo de execução

noreply@blogger.com (Flávio Tecla) — Sun, 22 May 2011 04:19:00 +0000

Grande parte das aplicações em geral, no ato da instalação, a base de dados do sistema é extraída com os demais arquivos dependentes (DLL, INI, OCX, XML etc). Por vezes, tive que criar uma rotina que criasse a base de dados em tempo de execução, na primeira utilização do programa. Pensando nisso, que tal criarmos uma base de dados Microsoft Access (com uma tabela e com alguns registros inseridos) em tempo de execução?

Para demonstrar, iremos utilizar o Visual Studio 2010 Ultimate e linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Adicione 3 controles do tipo Button no formulário Form1, com as legendas alteradas de acordo com a tabela abaixo.

Controle	Propriedade Text
Button1	Criar banco MDB
Button2	Criar tabela ‘Contato’
Button3	Inserir registros

A interface do Form1 deve ser semelhante ao da imagem .

Vamos adicionar a referência Microsoft ADO Ext. for DLL and Security ao projeto, que é o recurso que vai agregar a funcionalidade de criação da base MDB. Clique no menu Project > Add Reference e clique no botão OK.

Primeiramente, vamos escrever a rotina que irá criar a base de dados MDB em um diretório do computador. Dê um duplo-clique no botão “Criar banco MDB” e escreva a listagem abaixo no evento Click.

Public Class Form1

Private Const CONNECTION_STRING = "Provider=Microsoft.Jet.Oledb.4.0;" & _

"Data Source=C:\POnLine.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim catalogo As New ADOX.Catalog

catalogo.Create(CONNECTION_STRING)

MessageBox.Show("Banco ""POnLine.mdb"" criado com sucesso!")

End Sub

End Class

Perceba que criamos uma constante fora do contexto do evento Click, para que fique visível para todo o formulário. Seguindo, dê um duplo-clique no botão “Criar tabela ‘Contato’” e escreva a rotina abaixo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim conn As New OleDb.OleDbConnection(CONNECTION_STRING)

Dim cmd As New OleDb.OleDbCommand("CREATE TABLE Contato (ID int not null, Nome varchar(50))", conn)

conn.Open()

cmd.ExecuteNonQuery()

MessageBox.Show("Tabela 'Contato' criada com sucesso!")

End Sub

A rotina acima cria a tabela Contato no banco de dados criado. Por fim, proceda da mesma forma para o terceiro botão, a fim de inserirmos alguns registros de exemplo.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim conn As New OleDb.OleDbConnection(CONNECTION_STRING)

Dim cmd As New OleDb.OleDbCommand()

cmd.Connection = conn

cmd.CommandType = CommandType.Text

conn.Open()

cmd.CommandText = "INSERT INTO Contato VALUES (1, 'Contato 1')"

cmd.ExecuteNonQuery()

cmd.CommandText = "INSERT INTO Contato VALUES (2, 'Contato 2')"

cmd.ExecuteNonQuery()

cmd.CommandText = "INSERT INTO Contato VALUES (3, 'Contato 3')"

cmd.ExecuteNonQuery()

MessageBox.Show("Registros inseridos com sucesso!")

End Sub

Nosso exemplo está pronto, execute a aplicação e teste seguindo a sequência dos botões, ou seja, crie o banco, em seguida a tabela e por fim insira os registros. Após a execução do programa, o resultado que obtive foi este:

Fico por aqui, e até a próxima!

Usando o objeto AccessDataSource em ASP.NET

noreply@blogger.com (Flávio Tecla) — Fri, 20 May 2011 00:17:00 +0000

A maioria dos controles do Visual Studio .NET tem por característica principal facilitar, a produtividade. Ou seja, com pouca ou nenhuma linha de código, se consegue obter um resultado profissional e que as vezes vai além da necessidade atual. Um exemplo disso, são os controles de acesso à dados de forma vinculada.

Nosso objetivo aqui, é permitir que se utilize o controle AccessDataSource para acessar uma base .MDB e exibir os dados em uma grade. O pequeno detalhe é que não iremos escrever nenhuma linha de código para obter o resultado proposto.

Abra o Visual Studio e crie um novo projeto do tipo ASP.NET Web Site (File > New > Web Site) em linguagem VB.NET. Iremos utilizar o VS 2010 para demonstrar no artigo.

Com o projeto criado, iremos utilizar a página Default.aspx para alocar os objetos da Toolbox. Adicione o controle AccessDataSource e um GridView na página.

Para darmos continuidade, precisamos adicionar uma base Access no projeto. Vou utilizar a base Northwind.mdb. Clique com o botão direito do mouse sobre a pasta App_Data (na guia Solution Explorer do VS) e clique na opção Add Existing Item. Localize o arquivo .MDB e clique no botão Add.

Continuando, dê um clique somente sobre o controle AccessDataSource e perceba que irá aparecer uma pequena seta (conhecida como smart tag). Clique na seta e em seguida na opção Configure Data Source.

O assistente de configuração é aberto. Na janela Configure Data Source, selecione uma base de dados .MDB e clique no botão Next.

Na próxima janela, selecione uma das tabelas da base de dados, marque as colunas que deseja exibir e clique em Next.

Na janela seguinte, clique no botão Test Query para visualizar o resultado que irá obter, e clique em Finish. Já temos o acesso aos dados, só nos resta vincular o controle GridView ao AccessDataSource. Selecione o GridView, clique na smart tag, e na opção Choose Data Source selecione o controle AccessDataSource.

Perceba que ao selecionar a fonte de dados, as colunas escolhidas durante o processo de configuração, é exibida no GridView mesmo estando em ambiente de projeto. Só nos resta testar a aplicação. Pressione a tecla F5 para executarmos a aplicação, e confira o resultado conforme a imagem a seguir.

É isso aí, o nosso objetivo de estabelecer uma conexão e exibir os dados em uma grade foi alcançado.

Até a próxima!

Gravando o log de erro em arquivo TXT

noreply@blogger.com (Flávio Tecla) — Sat, 14 May 2011 23:10:00 +0000

Por mais completa e robusta seja a uma aplicação, ela não está totalmente livre de gerar alguns erros/exceções inesperados em tempo de execução. O erro pode ser gerado de “n” situações: Servidor de dados indisponível, cálculo com um dos operandos portando um valor nulo, falha durante um envio de e-mail e muitas outras situações. Como uma boa prática, é imprescindível armazenar as informações do escopo do erro, já que em um outro momento (dependendo do grau do problema), o desenvolvedor terá que avaliar o acontecido.

É pensando neste cenário, que vamos demonstrar como criar um arquivo de texto .TXT para gravar os erros de uma aplicação. Para criar o projeto, utilizou-se o Visual Studio 2010 Ultimate em linguagem VB.NET.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Para lançar um erro em tempo de execução, vamos criar uma rotina básica para forçar um erro, que nada mais é do que dividir um número por zero “0”. Dê um duplo-clique no centro do Form1, para que o VS crie o escopo do evento Load do formulário. Escreva a listagem abaixo.

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

Dim valor1 As Integer = 5

Dim valor2 As Integer = 0

Try

Dim ret As Integer = valor1 / valor2

Catch ex As Exception

Me.GerarLogErro(ex)

MessageBox.Show("Ocorreu um erro inesperado. Avise ao suporte.", _

"Programação On-Line")

End Try

End Sub

No código acima, utilizamos um bloco de tratamento de erro (Try… Catch) e quando o erro acontecer, os dados da exceção serão enviados para um método chamado GerarLogErro. A implementação do método segue abaixo.

Private Sub GerarLogErro(ByRef e As Exception)

Try

Dim sw As New StreamWriter("C:\LogErro.txt", True)

With sw

.WriteLine("Data: " & DateTime.Now.ToShortDateString())

.WriteLine("Hora: " & DateTime.Now.ToShortTimeString())

.WriteLine("Descrição do erro: " & e.Message)

.WriteLine("Formulário: " & form)

.WriteLine("Computador: " & My.Computer.Name)

.WriteLine("Usuário: " & My.User.Name)

.WriteLine("---")

.Flush()

.Dispose()

End With

Catch

End Try

End Sub

Para exemplificar, o arquivo TXT será criado no caminho na unidade “C:\” (mas poderia ser criado em qualquer outra unidade). Testa a aplicação (tecla de atalho F5) e veja o resultado.

Para que o usuário saiba que ocorreu uma exceção, mostramos uma caixa de mensagem com uma informações genérica. Neste momento, o arquivo foi criado e o conteúdo do mesmo segue na imagem abaixo.

Este é um modo simples de como documentar as mensagens inesperadas que ocorrem no sistema. Espero que o material seja útil e até a próxima!

Alternando as cores das linhas do DataGridView

noreply@blogger.com (Flávio Tecla) — Sat, 14 May 2011 18:12:00 +0000

Em Visual Basic 6.0, quando se tinha a necessidade de alternar as cores das linhas de uma grade (ListView, MSFlexGrid, MSHFlexGrid, DataGrid...), o programador precisa recorrer a algum recurso externo (API ou linhas de código) para obter um bom resultado. Em VB.NET, não há esta necessidade, já que o próprio controle dispõe de uma janela de configuração que possibilita o ajuste manual. Este exemplo será demonstrado no Visual Studio 2010 em linguagem VB.NET.

Abra o Visual Studio (VS) e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Adicione um controle DataGridView (que está alocado na guia Data da Toolbox) no Form1, dando um duplo-clique sobre o controle.

Com a janela devidamente pronta, precisamos alimentar a grade para demonstrar as linhas com cores alternadas. Para isso, dê um duplo-clique sobre a área livre do Form1, e escreva o código abaixo no evento Load.

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

'Lista contendo os times semi-finalistas da Copa do Brasil

Dim copaDoBrasil() As String = {"CEARÁ", "CORITIBA", "VASCO", "AVAÍ"}

'Criar uma coluna no Grid

DataGridView1.Columns.Add("Time", "Semi-Finalistas da Copa do Brasil")

DataGridView1.Columns(0).Width = 340

'Popular a grade usando os itens da lista

For Each time As String In copaDoBrasil

DataGridView1.Rows.Add(time)

End Sub

Por fim, volte para a guia Design e acesse a janela de Propriedades para ajustar as configurações do Grid. Selecione a opção AlternatingRowsDefaultCellStyle e clique no botão [...]. Na janela CellStyle Builder, altere a propriedade BackColor para a cor desejada e clique no botão OK.

Execute a aplicação e teste o projeto. A imagem abaixo representa o resultado que obtive no término do exemplo.

Fico por aqui e até a próxima.

Usando o atributo OnClientClick do Button

noreply@blogger.com (Flávio Tecla) — Thu, 12 May 2011 00:40:00 +0000

Alguns controles em ASP.NET possuem uma propriedade OnClientClick, que é utilizada para executar um script do lado do cliente (navegador). Em se tratando do controle Button, ao receber um clique, o botão antecipa a execução do evento Click passando antes pela rotina escrita na propriedade OnClientClick.

Veremos um exemplo bem simples.

Abra o Visual Studio e crie um novo Web Site (File > New > Web Site > ASP.NET Web Site) em linguagem C#.

Aproveitando a página Default.aspx, que foi criada automaticamente, clique na guia Source e altere o código fonte HTML da página conforme a listagem abaixo.

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

</head>

<body>

<div>

<asp:Button ID="Button1" runat="server" Text="Enviar" onclick="Button1_Click"

onclientclick="return confirm('Deseja enviar?');" />

<br />

<asp:Label ID="Label1" runat="server" Text=""></asp:Label>

</div>

</form>

</body>

</html>

O atributo OnClientClick do Button1 foi preenchido com uma rotina em linguagem Javascript, para exibir uma caixa de diálogo com dois botões (OK e Cancel). Volte para a guia Design da página, dê um duplo-clique sobre o botão “Enviar” e escreva o código abaixo no evento Click.

protected void Button1_Click(object sender, EventArgs e)

{

Label1.Text = "Os dados foram enviados com sucesso!";

}

O exemplo está pronto, rode a aplicação e clique no botão “Enviar”. Uma mensagem é exibida sobre a janela, e ao clicar no botão Cancel a rotina é cancelada. Caso o usuário clique no botão OK, a rotina escrita no evento Click é executada do lado do servidor.

A idéia do exemplo, é permitir que o usuário confirme a postagem de dados, antes da rotina de persistência ser executada. Por enquanto é só.

Fico por aqui e até a próxima!

Criando uma listagem de RadioButton

noreply@blogger.com (Flávio Tecla) — Mon, 09 May 2011 23:49:00 +0000

Na Toolbox do Visual Studio, mais precisamente na guia Common Controls, possui um controle chamado CheckedListBox, que nada mais é do que uma listagem de controles CheckBox. Analisando os demais controles, percebemos que não há um que renderize vários controles RadioButton. Pensando nisso, vamos escrever uma rotina simples que preencha um GroupBox com vários controles RadioButton em linguagem C#.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#.

Acesse a Toolbox (caso não esteja aparecendo na IDE, clique no menu View > Toolbox) e adicione os controles GroupBox e Button no formulário Form1. Ajuste os controles para que fiquem conforme a

imagem.

Dê um duplo-clique no meio do Form1, para termos acesso ao editor de código fonte, a fim de escrevermos a rotina que irá carregar o contêiner com os controles.

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void Form1_Load(object sender, EventArgs e)

{

int altura = 25;

foreach (string linguagem in this.ListaDeLinguagens())

{

RadioButton rb = new RadioButton()

{

Text = linguagem,

Location = new Point(10, altura),

Width = groupBox1.Width - 30

};

altura += 25;

groupBox1.Controls.Add(rb);

}

altura += 10;

groupBox1.Height = altura;

groupBox1.Text = "Escolha a sua linguagem preferida";

}

private string[] ListaDeLinguagens()

{

return new string[] { "C#", "C++", "Visual Basic .NET", "Visual Basic 6.0", "Delphi", "Java" };

}

Volte ao Design do Form1, dê um duplo-clique no botão “Enviar” e escreva a listagem abaixo no escopo do evento Click.

private void button1_Click(object sender, EventArgs e)

{

foreach (Control rb in groupBox1.Controls)

{

RadioButton r = (RadioButton)rb;

if (r.Checked)

{

MessageBox.Show(r.Text);

return;

}

O exemplo é bem simples, e o resultado é demonstrado nas imagens abaixo:

Perceba que o contêiner GroupBox se ajusta para exibir a quantidade de controles RadioButton.

Espero que gostem.

Até a próxima!

Transferir valores entre formulários com C#

noreply@blogger.com (Flávio Tecla) — Sun, 08 May 2011 01:55:00 +0000

Em aplicações Windows Forms, “vira-e-mexe” surge a necessidade de se transferir algumas informações entre as janelas do sistema. Pensando nisso, vamos apresentar algumas formas de como se proceder nesta ocasião.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#.

De forma padrão e automática, o VS cria um formulário denominado Form1. Além dele, precisamos de mais uma janela para utilizar como exemplo. Clique no menu Project > Add Windows Form e em seguida clique no botão Add para criar o outro Form.

Começando pelo Form1, acrescente dois controles da guia Common Controls (da Toolbox), um Button e um TextBox. Eles serão utilizados para informar um texto, e em seguida transferir para o Form2.

Seguindo o mesmo raciocínio, inclua um controle TextBox no Form2 para receber o valor do Form1.

Dê um duplo-clique sobre o Form2 para acessarmos o editor de código fonte e escreva a listagem a seguir:

public partial class Form2 : Form

{

public Form2()

{

InitializeComponent();

}

public Form2(string valor)

{

InitializeComponent();

textBox1.Text = valor;

}

O código acima possui dois métodos contrutores, um foi gerado automaticamente, e o outro foi escrito para complementar o primeiro exemplo do artigo. O objetivo é transferir um valor usando um método construtor no formulário de destino. Volte para o Form1, dê um duplo-clique no botão e escreva o trecho de código abaixo:

private void button1_Click(object sender, EventArgs e)

{

Form2 formDestino = new Form2(textBox1.Text);

formDestino.Show();

}

Rode a aplicação, digite um texto qualquer na caixa de texto e clique no botão “Abrir Form2”.

Perceba que o valor foi transferido corretamente usando o método construtor. Seguindo o artigo, vamos escrever uma outra forma de se transferir um valor entre formulários, só que desta vez, usando uma propriedade. Pare o projeto, selecione o Form2 na IDE do Visual Studio e dê um duplo-clique no meio da janela para acessar o editor do formulário. Altere o código fonte conforme a listagem abaixo.

public partial class Form2 : Form

{

public Form2()

{

InitializeComponent();

}

public Form2(string valor)

{

InitializeComponent();

textBox1.Text = valor;

}

public string Propriedade { get; set; }

private void Form2_Load(object sender, EventArgs e)

{

if (!this.Propriedade.Equals(""))

textBox1.Text = this.Propriedade;

}

Volte para o Form1, dê um duplo-clique no botão e altere o código de acordo com o trecho a seguir.

private void button1_Click(object sender, EventArgs e)

{

Form2 formDestino = new Form2();

formDestino.Propriedade = textBox1.Text;

formDestino.Show();

}

Execute o programa e teste novamente.

O resultado que obtive está demonstrado na imagem abaixo.

Fico por aqui, e até a próxima!

Criar um menu de contexto em run-time

noreply@blogger.com (Flávio Tecla) — Sun, 08 May 2011 00:44:00 +0000

Que tal criar um menu de contexto (aquele menu suspenso que aparece ao clicar com o botão direito do mouse sobre algum controle) em tempo de execução em uma aplicação Windows Forms? Pois é, a idéia é simplesmente criar o menu e detectar a opção que foi “clicada” pelo usuário em linguagem C#.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#.

Vamos utilizar o formulário Form1 que foi criado automaticamente pelo VS. Dê um duplo-clique sobre o Form1 para termos acesso ao View Code, e escreva o trecho de código abaixo.

private void Form1_Load(object sender, EventArgs e)

{

ContextMenuStrip menu = new ContextMenuStrip();

menu.Items.Add("Calculadora");

menu.Items.Add("Bloco de Notas");

this.ContextMenuStrip = menu;

menu.ItemClicked += new ToolStripItemClickedEventHandler(menu_ItemClicked);

}

Até o momento, criamos um objeto da classe ContextMenuStrip, que nada mais é do que o nosso menu de contexto. Em seguida, acrescentamos alguns sub-menus, que são as opções que aparecerão para o usuário escolher. Assim que o menu recebe um clique, um Delegate (que é uma referência para um método) será responsável por executar um método chamado menu_ItemClicked, cuja implementação segue abaixo:

void menu_ItemClicked(object sender, ToolStripItemClickedEventArgs e)

{

string comando = string.Empty;

switch (e.ClickedItem.Text)

{

case "Calculadora":

comando = "calc.exe";

break;

case "Bloco de Notas":

comando = "notepad.exe";

break;

}

if (!comando.Equals(""))

System.Diagnostics.Process.Start(comando);

}

Com base na opção selecionada, um programa (calculadora ou bloco de notas) será iniciado sobre o Form da aplicação. Pressione a tecla de atalho F5 para compilar e testar a aplicação.

Espero que tenham gostado.

Até a próxima!

Criando e usando um arquivo de configuração

noreply@blogger.com (Flávio Tecla) — Sat, 30 Apr 2011 17:55:00 +0000

O Visual Studio dispõe de vários recursos que auxiliam o programador no processo de desenvolvimento de software. Um deles é o arquivo de configuração (app.config para aplicações desktop, e web.config para aplicações web), que é basicamente um documento XML (Extensible Markup Language). Nosso objetivo aqui, é criar o par “identificador - valor” para simular o armazenamento de parâmetros de configuração de um sistema.

Como exemplo, vamos usar as informações de uma connection string (servidor, usuário e senha) e armazenar no arquivo .config.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem VB.NET.

Com o projeto criado, clique no menu Project > UsandoConfigVBNet Properties para termos acesso às propriedades do projeto.

Na janela de configuração, clique na guia Settings e preencha a grade conforme a imagem abaixo.

Fecha a guia de configuração (clicando no “X”) e adicione alguns controles (Label, TextBox e Button) no Form1 conforme a figura. Para incluir os controles, acesse a Toolbox na guia Common Controls e arraste os controles para o formulário.

Com a aparência e o arquivo .config pronto, vamos codificar o sistema, começanco pelo botão “Ler Config”. Dê um duplo-clique no botão e escreva a listagem abaixo no escopo do evento Click.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

TextBox1.Text = My.Settings.Servidor

TextBox2.Text = My.Settings.Usuario

TextBox3.Text = My.Settings.Senha

End Sub

Volte para o Design do Form1, e faça o mesmo procedimento com o botão “Gravar Config”. O código deste outro botão segue abaixo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button2.Click

My.Settings.Servidor = TextBox1.Text

My.Settings.Usuario = TextBox2.Text

My.Settings.Senha = TextBox3.Text

My.Settings.Save()

MessageBox.Show("As configurações foram salvas com sucesso!")

End Sub

O código que escrevemos, tem por finalidade acessar a guia de configurações que utilizamos no início do artigo, e em seguida executar as operações de leitura e escrita no arquivo. Para testar, pressione a tecla de atalho F5 para compilar e executar o projeto. Inicialmente, clique no botão “Ler Config” e veja o resultado.

Altere a senha para “123456” e clique no botão “Gravar Config” e veja o resultado.

Para finalizar, se em um dado momento, surgir a necessidade de voltar à configuração padrão (pré-definida na configuração) é só usar o método Reset.

My.Settings.Reset()

A implementação é muito simples, mas ajuda bastante o programador! Um outro detalhe, é que não há mais a necessidade de se criar arquivos ".INI", já que o ".CONFIG" não requer muitas linhas de código.

É isso aí e até a próxima!

Acessando um base Access em ASP 3.0

noreply@blogger.com (Flávio Tecla) — Sun, 24 Apr 2011 17:53:00 +0000

Saudações, pessoal!

Mesmo com as novas aplicações web, sendo construídas com as linguagens PHP e ASP.NET, o ASP clássico continua sendo utilizado no ambiente das empresas de pequeno e médio porte. Para os sistemas que não necessitam armazenar uma grande quantidade de informação, normalmente utiliza-se o Microsoft Access como base de dados, por ser de fácil criação e manutenção. Pensando nisso, vamos demonstrar como acessar uma base Access com o ASP 3.0.

Para codificar, vamos utilizar o Adobe Dreamweaver CS3, mas você pode utilizar qualquer editor de texto (inclusive o Notepad do Windows). Além disso, vamos utilizar a base Northwind, já que ela vem com algumas tabelas prontas e pré-alimentadas. Quanto ao visual da página, vamos usar um arquivo CSS com as definições das propriedades dos elementos da página.

Crie um novo arquivo com o nome "access.asp" e codifique-o de acordo com a listagem seguinte:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
<link href="styles.css" rel="stylesheet" type="text/css" />
<title>Acessando uma base Access com ASP 3.0</title>
</head>
<body>

<%
Dim con, rs, linha
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
linha = 0
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Northwind.mdb")
rs.Open "SELECT ProductID, ProductName, UnitPrice, UnitsInStock FROM Products ORDER BY ProductName", con, 3, 1
%>

<h2>Acessando uma base Access com ASP 3.0</h2>
<table id="mytable" cellspacing="0">
  <tr>
   <th scope="col" abbr="Dual 1.8">ProductID</th>
   <th scope="col" abbr="Dual 2">ProductName</th>
<th scope="col" abbr="Dual 2.5">UnitPrice</th>
<th scope="col" abbr="Dual 2.5">UnitsInStock</th>
  </tr>

  <%
  Do While Not rs.Eof
   If linha = 0 Then
Response.Write("<tr>")
Response.Write("<td>" & rs.Fields("ProductID") & "</td>")
Response.Write("<td>" & rs.Fields("ProductName") & "</td>")
Response.Write("<td>" & FormatNumber(rs.Fields("UnitPrice"), 2) & "</td>")
Response.Write("<td>" & rs.Fields("UnitsInStock") & "</td>")
Response.Write("</tr>")
linha = 1
Else
Response.Write("<tr>")
Response.Write("<td class='alt'>" & rs.Fields("ProductID") & "</td>")
Response.Write("<td class='alt'>" & rs.Fields("ProductName") & "</td>")
Response.Write("<td class='alt'>" & FormatNumber(rs.Fields("UnitPrice"), 2) & "</td>")
Response.Write("<td class='alt'>" & rs.Fields("UnitsInStock") & "</td>")
Response.Write("</tr>")
linha = 0
End If
   rs.MoveNext
  Loop
  %>

</table>
</body>
</html>

No escopo da tag "Head" da página, fizemos uma referência ao arquivo de estilos "styles.css". Até o momento, o ficheiro não existe. Vamos criá-lo agora. Utilizando o mesmo editor de texto, crie um arquivo com este nome e codifique o mesmo com o trecho a seguir. O detalhe é que o arquivo CSS deve ser criado no mesmo diretório da página ASP.

body {

font: normal 11px auto "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;

color: #4f6b72;

}

a {

color: #c75f3e;

}

#mytable {

width: 700px;

padding: 0;

margin: 0;

}

caption {

padding: 0 0 5px 0;

width: 700px;

font: italic 11px "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;

text-align: right;

}

th {

font: bold 11px "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;

color: #4f6b72;

border-right: 1px solid #C1DAD7;

border-bottom: 1px solid #C1DAD7;

border-top: 1px solid #C1DAD7;

letter-spacing: 2px;

text-transform: uppercase;

text-align: left;

padding: 6px 6px 6px 12px;

background: #CAE8EA url(images/bg_header.jpg) no-repeat;

}

th.nobg {

border-top: 0;

border-left: 0;

border-right: 1px solid #C1DAD7;

background: none;

}

td {

border-left: 1px solid #C1DAD7;

border-right: 1px solid #C1DAD7;

border-bottom: 1px solid #C1DAD7;

background: #fff;

padding: 6px 6px 6px 12px;

color: #4f6b72;

}

td.alt {

background: #F5FAFA;

color: #797268;

}

th.spec {

border-left: 1px solid #C1DAD7;

border-top: 0;

background: #fff url(images/bullet1.gif) no-repeat;

font: bold 10px "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;

}

th.specalt {

border-left: 1px solid #C1DAD7;

border-top: 0;

background: #f5fafa url(images/bullet2.gif) no-repeat;

font: bold 10px "Trebuchet MS", Verdana, Arial, Helvetica, sans-serif;

color: #797268;

}

Já temos todas as definições da página, e seus devidos estilos ajustados no arquivo CSS. Para testar, hospede os arquivos em um servidor web local (ou remoto) e digite a URL no browser para visualizar o resultado.

A aparência final da página, ganhou um aspecto profissional que lembra os templates pré-definidos do controle GridView em ASP.NET. Fico por aqui, e até a próxima!

Alimentar dois controles ComboBox com LINQ To SQL em C#

noreply@blogger.com (Flávio Tecla) — Sun, 24 Apr 2011 01:55:00 +0000

Pré-requisitos:

Base Northwind para o Microsoft SQL Server (disponível para download na seção Downloads do site)
Artigo de referência - http://sites.google.com/site/programacaoonline/family-blog/c/preenchendo-um-listbox-com-linq-to-sql

E aí, pessoal!

Em outro momento, escrevemos um artigo ilustrando como “Preencher um ListBox com LINQ To SQL” (link acima).

Seguindo o mesmo raciocínio, vamos alimentar dois controles do tipo ComboBox com LINQ To SQL. A idéia é carregar o primeiro controle com algumas Categorias, e o segundo com os Produtos da categoria selecionada no controle anterior.

Abra o Visual Studio e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#. O VS cria automaticamente um formulário (Form1) que será a janela que utilizaremos no projeto. Acesse a Toolbox, e arraste dois controles do tipo ComboBox para o Form1, e dois Labels para rotular as caixas de combinação.

Vamos adicionar ao projeto, o arquivo DBML (Project > Add New Item > LINQ To SQL Classes) que será responsável por fazer o mapeamento objeto-relacional das nossas tabelas (Categories e Products) da base Northwind. Não demonstraremos como fazer este procedimento, já que os detalhes foram postados no artigo de referência acima.Após o mapeamento das entidades, o arquivo DBML estará com a aparência da imagem abaixo.

Perceba que há um relacionamento entre as classes (tabelas) através do campo CategoryID, que é comum nas duas entidades. Usaremos este campo para obter os produtos da categoria selecionada. Selecione o Form1 na IDE do VS, e dê um duplo-clique no meio do formulário para que o Visual Studio crie o evento Load. Escreva a listagem abaixo no escopo do evento Load.

private void Form1_Load(object sender, EventArgs e)

{

using (NorthwindDataContext context = new NorthwindDataContext())

{

var query = from c in context.Categories

select c;

comboBox1.DataSource = query;

comboBox1.DisplayMember = "CategoryName";

comboBox1.ValueMember = "CategoryID";

}

Se for executada a aplicação neste momento, perceba que o primeiro ComboBox (com as categorias) já está sendo devidamente preenchido.

Prosseguindo, resta escrever uma rotina para alimentar o segundo controle, quando o primeiro Combo for selecionado. O evento que usaremos é o SelectedIndexChanged do ComboBox. Acesse a guia Properties, selecione o controle comboBox1, clique no ícone Events e dê um duplo-clique sobre o evento SelectedIndexChanged.

Com este procedimento, o Visual Studio escreve o escopo do evento no editor, que será acionado ao selecionar um registro no Combo. Escreva o trecho de código abaixo no escopo do evento.

private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)

{

int categoryID = 0;

if (int.TryParse(comboBox1.SelectedValue.ToString(), out categoryID))

{

using (NorthwindDataContext context = new NorthwindDataContext())

{

var query = from p in context.Products

where p.CategoryID == categoryID

select p;

comboBox2.DataSource = query;

comboBox2.DisplayMember = "ProductName";

comboBox2.ValueMember = "ProductID";

}

Basicamente, ao selecionar uma categoria no primeiro ComboBox, será executado o evento SelectedIndexChanged que possui a rotina para preencher o segundo controle. Um detalhe importante, é que não escrevemos nenhum bloco de tratamento, já que o objetivo é demonstrar a usabilidade dos dois controles do tipo ComboBox.

Execute a aplicação e veja o resultado.

Espero que o artigo sirva de exemplo para uma implementação com LINQ e ComboBox.

Qualquer dúvida, é só enviar um e-mail para contato.programacao@gmail.com.

Até a próxima!

Ouvindo rádios pela internet com C#

noreply@blogger.com (Flávio Tecla) — Sat, 23 Apr 2011 16:42:00 +0000

Pra quem já acompanha os artigos que escrevo no site / blog, já deve ter lido (ou não) um projeto com esta mesma finalidade, só que em linguagem Visual Basic 6.0.

Link: http://sites.google.com/site/programacaoonline/family-blog/vb6/ouvindo-radio-on-line

O nosso objetivo aqui é o mesmo, só que desta vez o faremos em linguagem C#. Abra o Visual Studio (utilizou-se a versão 2010 Ultimate) e crie um novo projeto (File > New > Project) do tipo Windows Forms Application em linguagem C#. O controle que será usado para reproduzir a transmissão das rádios on-line, é o Windows Media Player. Na Toolbox, clique com o botão direito do mouse e escolha a opção Choose Items.

Na janela Choose Toolbox Items, clique na guia COM Components, marque a opção Windows Media Player e clique no botão OK.

Feito isso, o controle do Windows Media Player já se encontra disponível no VS para ser usado no projeto. Dê um duplo-clique sobre ele, para adicioná-lo ao formulário Form1.

Adicione mais dois controles no formulário – um ListBox e um Button (com a propridade Text igual a Ouvir Rádio). Redimensione os controles para que se alinhem e ocupem seu devido espaço no formulário. Neste exato momento, o leiaute do Form1 deve ser semelhante a imagem abaixo.

Vamos seguir para a parte de codificação do projeto, para ter acesso ao editor de código fonte, dê um duplo clique sobre uma área do Form1, para que o VS já escreva o evento Load do Form. Escreva o trecho abaixo no escopo deste evento.

private void Form1_Load(object sender, EventArgs e)

{

listBox1.Items.Add("Antena 1 FM (Adulta)");

listBox1.Items.Add("Jovem Pan AM (Notícias)");

listBox1.Items.Add("Nova Brasil FM (MPB)");

listBox1.Items.Add("Shekinah FM (Gospel)");

}

Seguindo o raciocínio, volte para o Design do Form, e dê um duplo-clique sobre o botão “Ouvir rádio”. Escreva a listagem abaixo no evento Click.

private void button1_Click(object sender, EventArgs e)

{

string URL = string.Empty;

switch (listBox1.SelectedIndex)

{

case 0:

URL = "mms://wmedia.telium.com.br/antenaum";

break;

case 1:

URL = "mms://p.mm.uol.com.br/ampan";

break;

case 2:

URL = "http://00086.cdn.upx.net.br/listen.wmx";

break;

case 3:

URL = "http://www.shekinahfm.com.br/radio.asx";

break;

default:

MessageBox.Show("Selecione um rádio da lista e clique no botão \"Ouvir rádio\".");

break;

}

if (!URL.Equals("")) axWindowsMediaPlayer1.URL = URL;

}

Para obter o link de algumas rádios on-line, acesse o site www.radios.com.br, escolha uma rádio que você gostaria de ouvir pela internet, e acesse as propriedades do controle do Windows Media Player na web. No campo Local, é apresentada a URL da rádio escolhida.

Teste o projeto, pressionando a tecla de atalho F5, e veja o resultado.

Fico por aqui, ouvindo uma rádio on-line, e esperando que tenham gostado do artigo.

Até a próxima!

Usando o Fancybox com ASP clássico

noreply@blogger.com (Flávio Tecla) — Fri, 22 Apr 2011 01:52:00 +0000

O Fancybox é uma ferramenta gratuita desenvolvida com a parceria da bibliteca jQuery, e que permite a exibição de imagens, textos e conteúdos multimídias em "janelas flutuantes" sobre uma página da web. A página oficial do Fancybox é http://fancybox.net/.

Este exemplo foi desenvolvido em ASP 3.0 com uma base Microsoft Access para alocar os dados utilizados no projeto. A idéia é listar os dados de um produto, semelhante a uma loja virtual, e ao clicar no link + Detalhes do produto, é exibida as informações detalhadas no Fancybox do produto em questão.

Screenshots

Baixe o código fonte completo no link abaixo:

fancybox.rar

Até a próxima!