CARICARE IMMAGINE

di Anonimizzato15375 il
7 risposte
/
Anonimizzato15375
Utente anonimizzato
Ciao a tutti,
quando vado per caricare un'immagine (IN UN FORM IN vb6) e metto il nome sbagliato nella textbox txt_immagine mi genera un errore che non riesco a corregere.
Sto provando con il seguente codice...

Private Sub txt_immagine_Change()
On Error GoTo errore_file
picture_1.Picture = LoadPicture(App.Path & txt_immagine & ".jpg")
errore_file:
MsgBox "Il nome dell'immagine non è corretto!"
On Error Resume Next
Exit Sub
End Sub

7 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    A parte la Exit Sub che sta nel posto sbagliato, la linea

    picture_1.Picture = LoadPicture(App.Path & txt_immagine & ".jpg")

    funziona ?

    Ovvero, l'immagine corretta la carica? Ho i miei dubbi ...

    E poi spiegati meglio ... come vorresti "correggere" l'errore se l'immagine non è corretta?

    Inoltre, l'evento Change non è quello più comodo per fare quello che vuoi ...
  • /
    Anonimizzato15375
    Utente anonimizzato
    Si, se metto il nome esatto l'immagine viene caricata, se invece il nome dell'immagine non è corretto mi da errore 53....
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    No ... non è così ... Se l'immagine è corretta cosa inserisci? E se non lo è, quando ti dà l'errore, cosa inserisci?
  • /
    Anonimizzato11767
    Utente anonimizzato
    Scusa, ma se tu metti

    On Error Resume Next

    nel gestore degli errori non uscirai mai dal circolo vizioso...
  • /
    Anonimizzato15375
    Utente anonimizzato
    Mi spiego meglio: il mio problema è digitare un nome di una immagine che deve essere caricata in una picturebox. Se il nome è digitato giusto mi deve caricare l'immagine, altrimenti, se il nome è sbagliato mi deve uscire un messaggio che mi dice che il nome è sbagliato e mi deve riconsentire di corregere il nome.
    Il codice è quello che ho postato, ma non riesco ad eliminare l'errore.....
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    1) NON devi usare l'evento Change

    2) La Exit Sub va dopo la Load

    3) Non scrivere On Error Resume Next ma solamente Resume Next


    E CORREGGI la Load perché manca il separatore tra App.Path e nome del file

    Proponi il codice modificato
  • /
    Anonimizzato15375
    Utente anonimizzato
    Perfetto.... grazie
Devi accedere o registrarti per scrivere nel forum
7 risposte