COMO TRATAR ERRO DE LOADPICTURE

USUARIO.EXCLUIDOS 17/12/2006 17:58:18
#190454
Gostaria de saber como eu posso exibir um msgbox com erro qnd o load picture nao encontrar o arquivo no caminho especificado

Valeu
ESLEYSANCHES 17/12/2006 18:01:45
#190457 Resposta escolhida
use assim:

On Error GoTo ERRO
Image1.Picture = LoadPicture("Olá.jpg")
Exit Sub
ERRO:
    If Err.Number = 53 Then
        MsgBox ("Arquivo não encontrado !!"), vbCritical
        Exit Sub
    Else
        MsgBox ("Ocorreu um erro ao tentar carregar o arquivo. Erro número: " & Err.Number & " Descrição: " & Err.Description), vbCritical
        Exit Sub
    End If
ESLEYSANCHES 17/12/2006 18:03:29
#190458
Amigão, veja se o exemplo em anexo te ajuda !!

Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar