Mais instruções

Data de publicação: Feb 05, 2014 12:30:0 PM

Imagens em Ficheiro

Opção Abrir: para inserir uma imagem gravada em ficheiro numa Picturebox:

nomefich = TextBox1.Text

PictureBox1.Image = Image.FromFile(nomefich)

Neste caso, o nome do ficheiro e a respetiva localização estão escritos na textbox.

Opção Guardar: para guardar uma imagem de uma Picturebox em ficheiro:

nomefich = TextBox1.Text

PictureBox1.Image.Save(nomefich)

Alterar o tamanho de uma Picturebox conforme a imagem aberta de ficheiro:

Dim larg As Integer

Dim alt As Integer

larg = Image.FromFile(nomefich).Size.Width

alt = Image.FromFile(nomefich).Size.Height

PictureBox1.Size = New Point(larg, alt)

Ações com o rato

Durante a execução de um programa em VB, existem várias ações ativadas pelo rato sobre os objetos de uma form. Um exemplo comum é o famoso clique sobre um botão:

A caixa de ações permite selecionar a ação mais apropriada para um programa em VB controlar determinada tarefa.

Por exemplo, se quisermos controlar o deslocamento do rato sobre uma Picturebox, mostrando as coordenadas do cursor, utilizamos a ação MouseMove:

Implementar a ferramenta “Lápis”

Neste exemplo, apresenta-se a solução para implementar a ferramenta lápis num programa:

1º - Variáveis

As variáveis xInicio e yInicio guardam o ponto inicial da linha que se irá traçar. A variável arrasta indica se o utilizador tem o botão pressionado, que representa a linha a ser desenhada quando se move o rato.

2º - Pressionar o botão do rato

Neste código, vamos guardar o ponto inicial (X e Y) da linha a ser desenhada

3º - Mover o rato

Quando o rato é deslocado na PictureBox, é desenhada uma linha com início no ponto anteriormente guardado até ao ponto atual. De seguida, o ponto inicial da linha seguinte é guardado novamente.

4º - Libertar o botão do rato

A variável arrasta guarda o valor False indicando que não deve continuar a desenhar outras linhas.

Buffers

Um buffer é um local na memória do computador que é utilizado para guardar dados (normalmente, imagem ou som).

As vantagens de um buffer num programa de edição de imagens são várias, por exemplo, arrasto de figuras, cópia, escalamento e rotação de imagens, desfazer e refazer ações nas imagens, etc.

Instruções com buffers

1. Criar um buffer. É necessário uma variável de buffer. Exemplo:

Dim buffer As Bitmap

2. Dimensionar o buffer da imagem. Exemplo:

buffer = New Bitmap(800, 600)

3. Criar uma variável de controlo de desenho no buffer. Exemplo:

g2 = Graphics.FromImage(buffer)

4. Apagar o fundo do buffer. Exemplo:

g2.Clear(Color.White)

5. Desenhar uma linha no buffer. Exemplo:

g2.DrawLine(Pen.Blue, 0, 0, 200, 100)

6. Copiar a imagem do buffer para uma PictureBox. Exemplo:

g.DrawImage(buffer, 0, 0)

A instrução DrawImage indica:

g: o local para onde vai copiar a imagem

buffer: a variável de buffer da imagem a copiar

0, 0: coordenadas X, Y do ponto de origem da imagem a copiar