[VB] Problema?

[fcorti]

Sub CaricaImmagine(Parametro As String)

Image.Picture = LoadPicture(App.Path + "\images\" + Parametro)

If Image.Width > 3975 Or Image.Height > 3975 Then
With Image
.Width = 3975
.Height = 3975
End With
End If
Stretch = False
txtImmagine.Text = Parametro

End Sub


Sono un NewBie e questo è un codice che ho scritto, molto semplice, per caricare un'immagine in un controllo Image.
Il parametro è il nome di un file (esistente) e l'istruzione di assegnamento alla proprietà Picture da l'errore 438 (Proprietà o metodo non supportati dall'oggetto). Perchè?
Ho provato anche a passargli un file inesistente e da l'errore Impossibile trovare il file.

[iguana13]

Sub CaricaImmagine(Parametro As String)

'Credo che con Set funzioni
Set Image.Picture = LoadPicture(App.Path + "\images\" + Parametro)

If Image.Width > 3975 Or Image.Height > 3975 Then
        With Image
            .Width = 3975
            .Height = 3975
        End With
End If
Stretch = False
txtImmagine.Text = Parametro

End Sub

2 Annotazioni:
- Per domande su VB esiste i forum di VB
- E' meglio se metti il codice tra [*CODE] e [/*CODE] senza asterischi

[Johnny_Depp]

Originariamente inviato da iguana13

- Per domande su VB esiste i forum di VB
- E' meglio se metti il codice tra [*CODE] e [/*CODE] senza asterischi

[ladyBlu]

Originariamente inviato da Johnny_Depp
- Per domande su VB esiste i forum di VB
- E' meglio se metti il codice tra [*CODE] e [/*CODE] senza asterischi

Aggiungerei anche di utilizzare titoli più esplicativi