Gráficos em VBasic

Data de publicação: Jan 21, 2014 6:51:48 PM

Instruções:

CreateGraphics

DrawLine

DrawRectangle

DrawEllipse

Clear

Para desenhar figuras em VB declara-se uma variável que controla o local onde o desenho será feito.

Exemplo 1:

Dim g As Graphics

g = Me.CreateGraphics()

A seguir utiliza-se a instrução própria para desenhar a figura pretendida. Exemplo:

g.DrawLine (Pens.Blue, 10, 10, 200, 150)

A instrução desenha uma linha, de cor azul, desde o ponto de coordenadas 10, 10 até ao ponto de coordenadas 200, 150.

Exemplo 2:

Desenhar um retângulo azul com 150 de largura e 100 de altura no ponto 20, 20

g.DrawRectangle (Pens.Blue, 20, 20, 150, 100)

Exemplo 3:

Apagar as linhas desenhadas:

g.Clear(Color.White)

A cor indicada refere-se à nova cor de fundo que a figura (form) terá.

Marcadores

Um marcador define uma cor e uma espessura de linha. Para utilizar um marcador declara-se uma variável do tipo Pen.

Exemplo 1: Desenhar um retângulo com linha de cor azul e espessura=3.

Dim marcador As Pen

marcador = New Pen(Color.Blue, 3)

g.DrawRectangle(marcador, 10, 10, 200, 100)

Exemplo 2: Desenhar uma linha vermelha de espessura=5.

Dim cor As Color

Dim espess As Integer

Dim marcador As Pen

cor = Color.Red

espess = 5

marcador = New Pen(cor, espess)

g.DrawLine(marcador, 10, 10, 200, 10)

Cores

Color.xxxx

Color.FromArgb

Exemplo 1: escolher a cor verde claro

Dim cor As Color

cor = Color.LightGreen

Exemplo 2: escolher a cor azul com intensidade de brilho 200.

Dim cor As Color

cor = Color.FromArgb(255, 0, 0, 200)

O primeiro valor (0) indica o grau de transparência (0: totalmente transparente até 255: totalmente opaco). Os 3 valores seguintes indicam a intensidade das 3 cores primárias vermelho (red), verde (green) e azul (blue), sendo 0: nenhum brilho até 255: máximo brilho.

Pinceis

Instruções:

SolidBrush

TextureBrush

FillRectangle

FillEllipse

Um pincel é um objeto do VB que serve para preencher formas (ou desenhar texto). As formas criadas são preenchidas com a textura definida numa variável de tipo Brush.

Exemplo:

1º) Declarar uma variável de pincel:

Dim pincel As Brush

2º) Definir um pincel com a cor azul

pincel = New SolidBrush(Color.Blue)

3º) Definir um pincel com uma imagem existente numa Picturebox

pincel = New TextureBrush(PictureBox3.Image)

4º) Utilizar uma instrução para desenhar uma forma – elipse – preenchidas com o pincel

FillEllipse(pincel, 200, 200, 80, 120)

5º) Desenhar elipse com linha de contorno

FillEllipse(pincel, 200, 200, 80, 120)

marcador = New Pen(Color.Blue, 1)

DrawEllipse(marcador, 200, 200, 80, 120)

Texto

Instrução:

DrawString

Utiliza-se a instrução DrawString para desenhar texto.

DrawString (frase, fonte, pincel, X, Y)

Para indicar a fonte utiliza-se:

New Font(nomedafonte, tamanho, estilodafonte)

Nomedafonte = Arial, calibri, ...

Estilodafonte = FontStyle.Bold, FontStyle.Italic, FontStyle.Regular, FontStyle.StrikeOut, FontStyle.Underline

Exemplo 1: desenhar 'Olá Mundo!' em letra verdana, tamanho 14, azul, a partir do pixel 100, 50.

Dim fonte As Font

fonte = New Font("Verdana", 14)

g.DrawString("Olá Mundo!", fonte, Brushes.Blue, 100, 50)

Exemplo 2: desenhar 'Outra frase...' em letra arial, estilo sublinhado, tamanho 11, verde, a partir do pixel 50, 0.

Dim fonte As Font

Dim pincel as Brush

fonte = New Font("Arial", 11, FontStyle.Understrike)

pincel = New SolidBrush(Color.Green)

g.DrawString("Outra frase...", fonte, pincel, 50, 0)