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