geometrak ha scritto:
Private Sub cmdSfoglia_Click()
Dim Finestra As FileDialog
Dim Valore, vrtSelectedItem
Set Finestra = Application.FileDialog(msoFileDialogOpen) 'Equivale a 1
'Titolo
Finestra.Title = "Testo Apri"
'Filtri di Ricerca
Finestra.Filters.Clear
Finestra.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
Finestra.Filters.Add "Txt", "*.txt", 1
'Selezione Multipla
Finestra.AllowMultiSelect = False
'Apri Finestra
Valore = Finestra.Show
Valore = ""
'Estrazione Valori
For Each vrtSelectedItem In Finestra.SelectedItems
Valore = Valore & vrtSelectedItem
Next vrtSelectedItem
txtFotografia.Value = Valore
Me.ImgFoto.Picture = Me.txtFotografia
End Sub
Ma lo hai capito questo codice oppure copiato...?
Contiene una serie di errori estremamente gravi.
Intanto immagino NON SIA ABILITATO il MultiSelect, motivo per cui non capisco a cosa serve il Ciclo su SelectedItems... a nulla, se va bene che non hai premuto ANNULLA, che nemmeno gestisci ma prova ad annullare e vedi che succede..., contiene solo 1 Elemento, quindi
Valore=Finestra.SelectedItems(1)
Poi nei Filtri metti l'estensione TXT...? Siamo sicuri...?
Lasciamo poi a parte la considerazione delle Immagini, se non userai mai il RUNTIME può anche andare bene così...
Tutti quei passaggi di Variabili NON DICHIARATE...?
Ti invito a valutare bene prima le cose.