Exercício 2

Data de publicação: Mar 30, 2014 9:18:20 PM

Tratamento de erros 02

Implemente um programa em Vbasic que permita:

- Iniciar uma nova imagem (limpar a PictureBox)

- Abrir um ficheiro de imagem já existente (esta imagem terá de estar dentro da pasta \bin\debug)

- Guardar um novo ficheiro de imagem

Tudo isto deverá estar preparado para avisar dos erros sem que o programa seja interrompido.

Esta implementação deverá ser feita através das funções On Error Goto ou Try.

Caso o nome da imagem inserido na TextBox não exista, deverá surgir a seguinte mensagem:

Quando a nova imagem for gravada deverá surgir a seguinte mensagem:

Limpar imagem

PictureBox1.Image = Nothing

Abrir imagem

nomefich = TextBox1.Text

PictureBox1.Image = Image.FromFile(nomefich)

Guardar imagem

nomefich = TextBox1.Text

PictureBox1.Image.Save(nomefich)