Dicas Técnicas BufaloInfo

VB.NET : Criando Extensões para um Formulário

Há algum tempo atrás publiquei uma dica (http://www.bufaloinfo.com.br/dicas.asp?cod=870 ) sobre uma função AcharBinding, que simplifica a localização de bindings em ambientes windows forms para quando precisarmos lidar com eles.

Com os avanços do VB 9 e C# 3.0 uma função como a AcharBinding pode ser criada na forma de extension method, de forma que todo formulário possua a função disponível.

A função AcharBinding, bem como outras para as quais você tenha utilidade semelhante, podem então ser compiladas em um assembly separado e referenciadas quando você necessitar, se tornando parte das classes existentes (form por exemplo), o que é característica dos extension methods.

Veja como fica o código em VB.NET :

Public Module Module1

<Extension()> Public Function AcharBinding(ByVal f As Form, ByVal bs As BindingSource, ByVal nomeCampo As String) As Binding
For Each b As Binding In bs.CurrencyManager.Bindings
If b.BindingMemberInfo.BindingField.ToUpper = nomeCampo.ToUpper Then
Return (b)
End If
Next
Return (Nothing)
End Function

End Module

O primeiro parâmetro da Function indica o tipo de objeto que ela estará extendendo - Form - enquanto os demais são os parâmetros que realmente serão necessários para sua execução.

Veja o mesmo exemplo em C#

static class clExtensoes
{

public static Binding AcharBinding(this Form f, BindingSource bs, string nomeCampo)
{
foreach (Binding b in bs.CurrencyManager.Bindings)
{
if (b.BindingMemberInfo.BindingField.ToUpper() == nomeCampo.ToUpper())
{
return (b);
}
}
return (null);
}
}

Apesar da síntaxe diferente, em ambos os casos estamos utilizando o mesmo recurso - extension methods - chegando ao mesmo resultado, os formulários passarão a ter o método AcharBinding

VB.NET : Organizando uma DataGridView e um toolStrip em um Formulário

Quando inserimos uma DataGridView com dock fill junto com um toolStrip dentro de um formulário windows temos uma surpresa desagradável : O topo da datagridview fica coberto pelo toolstrip.

O que desejariamos - dai o dock fill - é que a datagridview ocupasse o espaço sobrando no formulário, ao invés de ser sobreposta pelo toolstrip, que possui um dock top por default.

A solução para isso é bem simples : Insira um toolstripContainer no formulário, insira a grid na parte central do toolstripContainer com dock fill e o toolstrip na parte superior do toolstripContainer.

O toolstripContainer impedirá que o toolstrip fique sobre o topo da grid, deixando ambos bem alinhados

VB.NET : Corrigindo o erro DataGridViewComboBoxCell Value is not Valid

Se você ainda não esbarrou com este erro, está com sorte.

Quando acontece, é sempre no fechamento do formulário, sendo apresentado inúmeras vezes.

O erro apenas acontece se o autosizemode de uma coluna do tipo datagridviewcombobox estiver definido. Se o autosizemode não for definido, o erro não acontece.

Isso nos leva a duas situações :

O erro pode acontecer quando o autosizemode está definido a nível da DataGridView e existe uma coluna do tipo ComboBox na GridView

O erro pode acontecer quando o autosizemode está definido a nível de coluna e foi definido na coluna do tipo ComboBox

O erro ocorre porque no momento do fechamento do formulário, o formulário realiza primeiramente o dispose do datasource da coluna ComboBox. Quando o datasource é destruido e o autosize está definido, a ComboBox precisa recalcular o seu tamanho, então faz uma requisição por dados que não estão mais lá

Sem dúvida que desligar o autoSizeMode é uma solução, mas não desejamos isso, precisamos do autoSize

No momento em que o formulário for fazer o dispose do datasource da comboboxColumn, a ComboBoxColumn precisa estar com o autosizemode definido como None

Lembre-se que o autosizemode pode ser também definido no nível da grid, dai a diferença entre definir o autoSizeMode como None ou como NotSet

Então no evento form_Closed podemos simplesmente alterar o autosizemode da comboboxcolumn e com isso passaremos a poder utilizar o autoSize enquanto que o erro desaparecerá.

Lembre-se que cada coluna da DataGridView possui um nome e é uma variável acessível por código. Veja como fica :

1: Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

2: NomeDaSuaColuna.AutoSizeMode =DataGridViewAutoSizeColumnMode.None

3: End Sub

VB.NET : Inline XML no VB.NET

O VB.NET passou a suportar uma nova síntaxe muito interessante, que apesar de inicialmente parecer meio confusa, pode trazer novas possibilidades interessante : inline XML

Trata-se da inserção de XML dentro do código VB.NET. Veja :

Dim db As New NorthwindDataContext

Dim x = _
<?xml version="1.0"?>
<clientes>
<%= From c In db.Customers _
Select <cliente>
<empresa><%= c.CompanyName %></empresa>
<contato><%= c.ContactName %></contato></cliente> _
%>
</clientes>

MsgBox(x.ToString)

Observe que neste exemplo estou utilizando esta síntaxe em conjunto com o Linq para já obter como resultado a montagem do XML de clientes.

Muitas outras utilidades podem ser dadas a este recurso.

VB.NET : Truque de Síntaxe na Manipulação de XML

O VB.NET, em sua versão 9.0 (2008) passou a aceitar a escrita de XML in-line e, mais que isso, a inserção de código VB.NET em meio a escrita in-line e com mais de um nível de inserção.

Não entendeu ? Algumas linhas de código explicam :

Dim x = _
<?xml version="1.0"?>
<clientes>
<%= From c In db.Customers _
Select <cliente>
<empresa><%= c.CompanyName %></empresa>
<contato><%= c.ContactName %></contato></cliente> _
%>
</clientes>

MsgBox(x.ToString)

Observem como o XML é escrito diretamente no código VB, sem problemas, sendo inserido na variável X, que vira um documento XML.

No meio das tags, onde desejamos preencher com dados dinâmicos, fazemos uma inserção de código VB, usando o mesmo simbolo que utilizávamos antigamente no ASP!

Neste exemplo utilizamos linq para fazer a recuperação de dados para o XML. Poderiamos chamar uma função que devolvesse o XML, mas qualquer coisa diferente dessas duas opções ficaria bem complicado.

Em meio ao código linq iniciamos mais uma vez a inserção de XML inline - dentro do código que já está inserido dentro de um XML inline - mas em determinado ponto do 2o nível de XML inline precisamos inserir os valores dos campos, então mais uma vez abrimos uma inserção de código VB para codificar a inserção dos valores.

Essa escrita, apesar de eventuais restrições de arquitetura, pode simplificar bastante determinadas montagens de código

VB.NET : Criando uma Aplicação para Rodar em CD

Não é raro termos a necessidade de criar aplicações que possam ser executadas diretamente a partir do CD ao invés de terem a necessidade de serem instaladas.

A facilidade do .NET, não exigindo chaves de registry e identificando os assemblys contidos na mesma pasta facilita bastante isso, mas ainda existe um pequeno problema : E o banco de dados ?

Se você tentar inserir um banco de dados no CD e ler na aplicação, a leitura vai falhar. É claro que a manipulação do banco de dados seria uma manipulação só para leitura, você não vai conseguir gravar, mas o problema é que a aplicação .NET precisa neste caso de um caminho para gravação de arquivos temporários e como a aplicação está sendo executada pelo CD, não consegue isso.

Para resolver o problema e a aplicação funcionar com um banco de dados diretamente do CD basta alterar a string de conexão. Veja como fica um exemplo de string de conexão para um arquivo .SDF no CD :

Dim s as string = "Data Source=|DataDirectory|\bancoTeste.sdf;Temp Directory=" & My.Computer.FileSystem.SpecialDirectories.Temp

Observe que neste exemplo é feito o uso do My para obter o caminho do diretório Temp do sistema onde a aplicação estiver rodando. No C#, como não existe o My, teriamos o seguinte :

string s="Data Source=|DataDirectory|\bancoTeste.sdf;Temp Directory=" + System.IO.Path.GetTempPath();

VB.NET : Controlando a Altura de uma TextBox

Apesar da largura de uma caixa de texto poder ser controlada livremente, isso não acontece com a altura. A altura é normalmente fixa, não conseguimos altera-la nem mesmo alterando a propriedade height do objeto.

A única excessão é quando a caixa de texto é definida como multi-line. Nesse caso podemos alterar a altura livremente mas teremos que lidar com a tecla enter dentro da caixa.

Isso acontece porque a propriedade autosize da caixa de texto é definida como true por default e não aparece em design time. Desta forma não conseguimos manipular esta propriedade na janela de propriedades.

Podemos facilmente criar uma nova textbox alterando esta característica :

Public Class TextBoxEx
Inherits TextBox

<EditorBrowsable(EditorBrowsableState.Always), Browsable(True),
DefaultValue(True)> _
Public Overrides Property AutoSize() As Boolean
Get
Return MyBase.AutoSize
End Get
Set(ByVal value As Boolean)
MyBase.AutoSize = value
End Set
End Property

End Class

Neste exemplo apenas adicionamos atributos na propriedade autosize da nossa nova textbox. Assim sendo, ao criarmos uma textbox no formulário, se criarmos nossa nova textbox ao invés da tradicional iremos encontrar a propriedade autosize, podendo defini-la como false e alterar a altura de uma textbox mesmo sem ter que mudar a propriedade multiline

VB.NET : Utilizando Button Columns na DataGridView

A DataGridview para desenvolvimento Windows se tornou muito mais versátil que antigas grids de outros ambientes. Temos vários tipos de colunas, como por exemplo uma coluna do tipo button.

Mas para que uma coluna do tipo button na grid ?

Simples, para que o usuário possa realizar uma tarefa com a clara percepção na interface de que a tarefa será feita sobre um registro específico.

O primeiro problema que surge é como preencher o texto do botão. Existe uma propriedade Text na Button Column, porém o que é escrito nela não aparece de imediato como texto do botão. O truque é simples : Alterar a propriedade UseColumnTextForButtonValue

Primeiro problema resolvido, agora precisamos programar o click do botão. Mas como ?

Para programar o click deste botão devemos utilizar o evento cellcontentclick da datagridview. Este evento, porém, não é restrito ao botão, mas a qualquer célula. Portanto dentro do evento CellContentClick precisamos testar se o tipo de coluna onde aconteceu o click é uma button column.

Porém caso você se empolgue e resolva utilizar mais de uma button column será necessário ainda testar o nome da button column para poder realizar cada ação.

Veja como fica :

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
If TypeOf DataGridView1.Columns(e.ColumnIndex) Is DataGridViewButtonColumn Then
If DataGridView1.Columns(e.ColumnIndex).Name = "minhacoluna" Then

End If
End If
End Sub

VB.NET : ToolStrip Container com MDI

Se vocês já passaram por esta situação, já devem ter ficado desanimados com o fato de que não funciona. O Toolstrip Container preenche todo o form, sendo que a área de preenchimento dele fica sobre outros objetos do MDI.

Assim sendo, quando abrimos um form MDI child, o form fica por trás do toolstrip container, ou seja, inutilizável.

Para resolver isso é simples : Não usar o toolstripcontainer.

Existe um outro objeto chamado ToolStrip Panel, que podemos utilizar no lugar do toolstripContainer. O ToolStrip Panel é o objeto que existe internamente ao toolstripContainer e forma cada um dos lados do ToolstripContainer.

O ToolStrip Panel não aparece por padrão na toolbox, então você precisa inseri-lo, clicando com o botão direito na toolbox, choose items e localizando o Toolstrip Panel.

Feito isso, inserimos 4 toolStrip Panels. Devemos inserir um por um cuidadosamente, fazendo o dock de cada um em uma diferente lateral do formulário.

Manipular os ToolStrip Panels pode ser algo um pouco chato, eventualmente pode até mesmo ser necessário deixar a ToolStrip fora do Panel e fazer a ligação por código, +/- assim :

ToolStripPanel2.Controls.Add(ToolStrip1)

Porém com isso feito temos o efeito dos toolstrips podendo ser movimentados pela aplicação mesmo em um formulário MDI.

VB.NET : Cuidado com a pasta App_Data em aplicações windows

Um problema recorrente em muitos fóruns é um problema com o diretório App_Data utilizado em aplicações windows.

A pasta App_Data tem uso típico em aplicações web, mas seu uso não é muito recomendável em aplicações windows.

Uma aplicação windows, quando é executada pelo Visual Studio, é compilada e seu executável copiado para a pasta bin (podendo variar em uma sub pasta debug ou release).

Ocorre que o banco de dados utilizado na pasta App_Data também é copiado para dentro da pasta bin.

Consequencia : Todos os dados que você alterar, incluir,deletar enquanto está usando a aplicação serão perdidos na execução seguinte, pois todas as alterações são feitas no banco que está abaixo do Bin, enquanto que na execução seguinte o banco do App_Data será novamente copiado para a pasta abaixo do Bin, apagando os dados.

Isso se tornou uma pergunta muito comum em fóruns, "minha aplicação não está gravando nada !".

Todo esse equívoco tem uma causa e uma solução : As versões express que desenvolvem para windows (VB.NET Express, C# Express, etc.) não fazem acesso direto a um servidor SQL. As versões Express apenas permitem o acesso (usando os wizards, por código tudo pode) a arquivos de dados do SQL Server (arquivos .MDF) sem vínculo (não attachados) com um servidor.

Para contornar este problema, após criar o arquivo de banco de dados na pasta App_Data, copie-o para outro local, fora da pasta do projeto. Faça um vínculo direto ao caminho onde o arquivo estiver.

Fazendo isso o VB irá perguntar se você deseja copiar o arquivo para dentro da sua aplicação (e ainda avisa, em letras miúdas, que isso tem consequencias), basta dizer não para não mais sofrer com este problema com o arquivo de dados.