VB .NET - Desenho , algumas novidades...

Se você procurar os componentes Shape e Line no VB .NET não vai achar. Se você precisar fazer algo parecido com que estes controles faziam no VB 6.0 vai ter que usar as classes gráficas do VB .NET contidas no namespace System.Drawing.

Para desenhar figuras geométricas basta sobrepor o evento OnPaint do formulário (veja o artigo  VB.NET - Primeiros passos - Conceitos - VI ) e usar os métodos do objeto Graphics. O objeto Graphics oferece diversos métodos para desenhar uma gama de linhas e formas simples e complexas que podem ser renderizadas em cores sólidas ou transparentes. 

Para desenha linhas , curvas abertas e figuras com contornos usamos o objeto Pen. Para preencher uma área , Ex: um retângulo , o objeto Brush é necessário. No exemplo abaixo eu mostro como desenhar no formulário duas linhas , uma elipse e um arco usando os métodos : DrawLine , DrawEllipse e DrawArc.

Para sobrepor o evento OnPaint do formulário , você deve abrir o código do formulário e no editor de código selecionar Overrides na caixa do canto esquerdo e a seguir selecionar o evento que vamos sobrepor : OnPaint. Veja figura abaixo:

A seguir digite o código a seguir na estrutura da procedure que foi criada :( O resultado você vê na figura ao lado)

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

 

 MyBase.OnPaint(e)

 

 Dim p As New Pen(Color.Blue, 2)

 

 e.Graphics.DrawLine(p, 1, 1, 250, 250)

 e.Graphics.DrawLine(p, 180, 2, 2, 250)

 e.Graphics.DrawEllipse(p, 1, 1, 200, 100)

 e.Graphics.DrawArc(p, 1, 1, 100, 100, 50, 90)

 

End Sub

Lembra dos controles Image e PictureBox ???  No VB .NET temos apenas o controle PictureBox que vale pelos dois. Ele possui muitas propriedades diferentes do antigo PictureBox . Uma das vantagens é que o componente PictureBox suporta GIF´s animados. Basta incluir o componente no formulário e inserir a GIF animada na propriedade Image ; dá para ver a GIF animada em tempo de desenho.

Elementar não é mesmo ???  até a próxima...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti