[VB6] Intercettare annullamento della selezione di un file immagine

[tito]

Tramite un command button e il Common dialog io riesco facilmente a caricare un file grafico.
Come si vede dal codice, per poter ottenere l'autosize automatico io carico prima il file nella picturebox 11 che poi viene ricopiata in picture1, con alcuni parametri, io ottengo automaticamente il ridimensionamento dell'immagine.
Quindi se io carico, tutto ok, nessun problema.

Ma se io prima dico che voglio caricare una immmagine, vado in una cartella ed invece di caricarla ci ripenso e clicco, su Cancel, allora mi viene l'error:

Errore RunTime 481
Immagine non valida

Cosa posso fare, aggiungere al codice, per far si che pur premendo su Cancel, il programma non mi dia errore?
Spero che il mio quesito sia chiaro.
Grazie.Tito



Private Sub Command2_Click()
CommonDialog1.ShowOpen
Picture11.Picture = LoadPicture(CommonDialog1.filename)
Picture11.AutoSize = True
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture11.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture11.ScaleWidth, Picture11.ScaleHeight

End Sub

[Luciano79]

Private Sub Command2_Click()
  CommonDialog1.CancelError=True
  OnError GoTo ANNULLA
  CommonDialog1.ShowOpen
  Picture11.Picture = LoadPicture(CommonDialog1.filename)
  Picture11.AutoSize = True
  Picture1.AutoRedraw = True
  Picture1.PaintPicture Picture11.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture11.ScaleWidth, Picture11.ScaleHeight
ANNULLA:
  OnError GoTo 0
End Sub

Con CommonDialog1.CancelError=True intercetti l'errore che si verifica cliccando su cancel

[tito]

Inserendo cio' che hai detto ricevo:
ERRORE DI SINTASSI (?!)


---------------------------------------------

Private Sub Command2_Click()
CommonDialog1.CancelError = True
OnError GoTo ANNULLA

CommonDialog1.ShowOpen
Picture11.Picture = LoadPicture(CommonDialog1.filename)
Picture11.AutoSize = True
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture11.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture11.ScaleWidth, Picture11.ScaleHeight

ANNULLA:
OnError GoTo 0
End Sub
------------------------------

[Boolean]

Originariamente inviato da tito
Inserendo cio' che hai detto ricevo:
ERRORE DI SINTASSI (?!)


---------------------------------------------

Private Sub Command2_Click()
CommonDialog1.CancelError = True
OnError GoTo ANNULLA

[...]

ANNULLA:
OnError GoTo 0
End Sub
------------------------------

metti uno spazio tra On e Error:

On Error GoTo ...

Boolean

[tito]

Scusa, distratto...

Grazie comunque. Ho provato. Riuscito Risolto.
Era da tempo che mi scervelllavo.
Grazie
Tito

[alka]

Originariamente inviato da tito
Grazie comunque. Ho provato. Riuscito Risolto.
Era da tempo che mi scervelllavo.

Dato che sei nuovo, ti segnalo da subito la lettura del nostro Regolamento che contiene tutte le norme da seguire per partecipare correttamente a quest'area del forum.

In modo particolare, devi sempre indicare il linguaggio utilizzato nel titolo della discussione, indicando la versione nel caso in cui ne esistesse più di una, assieme ad una sintesi breve ma significativa ed esplicativa del problema.

Detto questo, ciao e...buon forum!