Galera Oque Tem De Errado?

[PedroBarreto]

Eu quero que quando a wight e a heigt foi maior que uns valores la ele exibiria a mensagem na msgbox e depois ele fazaria a picture voltar ao normal quinem no começo ou seja sem nenhuma imagem, por favor olhem oque a de errado:

Private Sub Image3_Click()

Common.Filter = "Arquivo jpg|*jpg"

Common.InitDir = "Meus documentos"

Common.ShowOpen

If Picture1.Height > "5175" Then

MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos")

Picture1.Picture = "(None)"

Else

Picture1.Picture = LoadPicture(Common.FileName)

Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)

End If

If Picture1.Width > "10575" Then

MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos")

Picture1.Picture = "(None)"

Else

Picture1.Picture = LoadPicture(Common.FileName)

Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)

End If

End Sub

[PedroBarreto]

Este é a pergunta certa

Eu quero que quando a wight e a heigt foi maior que uns valores la ele exibiria a mensagem na msgbox e depois ele fazaria a picture voltar ao normal quinem no começo ou seja sem nenhuma imagem, por favor olhem oque a de errado:

Private Sub Image3_Click()

Common.Filter = "Arquivo jpg|*jpg"

Common.InitDir = "Meus documentos"

Common.ShowOpen

If Picture1.Height > "5175" Then

MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos")

Picture1.Picture = "(None)"

Else

Picture1.Picture = LoadPicture(Common.FileName)

Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)

End If

If Picture1.Width > "10575" Then

MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos")

Picture1.Picture = "(None)"

Else

Picture1.Picture = LoadPicture(Common.FileName)

Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)

End If

End Sub

eu tenho certeza que o erro é naquele "(none)" alguém pode passa o codigo certo

[fercosmig]

o que acontece, da algum erro? em que linha?

abraços

[kuroi]

porque os numeros estao entre aspas?

no caso do none acho q o certo seria:

Set Picture1.Picture = Nothing

presta atencao, sem aspas.

[Snoopy]

Sei que o Pedro num gosta de pensar muito

hehehehe

segue abaixo um pouco mais simplificado o que ele queria

Private Sub Image3_Click()
Common.Filter = "Arquivo jpg|*jpg"
Common.InitDir = "Meus documentos"
Common.ShowOpen
Picture1.Picture = LoadPicture(Common.FileName)                'Carrega a imagem para determinar as dimensões da picture1
If Picture1.Height > "5175" Or Picture1.Width > "10575" Then 'Se forem maiores que o especificado, limpa  a picture1, redimenssiona para o tamanho máximo e posiciona no meio.
    Picture1.Picture = Nothing
    Picture1.Height = "5175"
    Picture1.Width = "10575"
    Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)
    MsgBox ("Desculpe sua imagem é maior que o tamanho que nós dispomibilizamos")
Else
    Picture1.Picture = LoadPicture(Common.FileName)
    Picture1.Left = (Form1.Width / 2) - (Picture1.Width / 2)
End If
End Sub

no seu código Pedro, ele poderia sempre acabar carregando a imagem, caso uma das dimensões estivessem abaixo do que você especificou.

debugando manualmente, você veria isso acontecer.

[PedroBarreto]

Valeu