Salve a tutti,
ho ritagliato da un esempio trovato in rete il seguente codice per simulare il classico tastino di windows "Sfoglia".
Vorrei sapere da questo codice poi il percorso del file selezionato dove viene memorizzato? perchè questo percorso corrisponderà ad un immagine da aprire in una picturebox.codice:Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.odlgTextFile = New System.Windows.Forms.OpenFileDialog Me.txtFileContents = New System.Windows.Forms.TextBox Try With odlgTextFile ' Per informazioni sui valori predefiniti delle proprietà, vedere ' btnRetriveFileNames_Click. ' Verificare che il file selezionato esista. In caso contrario, nella finestra di dialogo viene visualizzato ' un avviso. .CheckFileExists = True ' Verificare che il percorso selezionato esista. In caso contrario, nella finestra di dialogo viene visualizzato ' un avviso. .CheckPathExists = True ' Ottenere o impostare l'estensione predefinita. Non includere il punto "." iniziale. .DefaultExt = "txt" ' Restituire il file a cui fa riferimento un collegamento? Se False, restituisce semplicemente il file del collegamento 'selezionato. Se True, restituisce il file collegato al file LNK. .DereferenceLinks = True ' Come in VB6, utilizzare un insieme di coppie di filtri separate da "|". Ogni ' coppia è costituita da una specifica descrizione|file. Utilizzare un simbolo "|" tra le coppie. Non è necessario inserire un simbolo ' "|" finale. È possibile impostare anche la proprietà FilterIndex, per selezionare il filtro 'predefinito. Al primo filtro è associato il numero 1 e non 0. Il valore predefinito è 1. .Filter = _ "Text files (*.txt)|*.txt|All files|*.*" .Multiselect = False ' Ripristinare la directory originale dopo avere selezionato ' un file? Se False, la directory corrente diventa ' la directory in cui è stato selezionato il file. ' Impostare il valore su True per reimpostare la directory corrente in base alla ' situazione iniziale. ' Il valore predefinito è False. .RestoreDirectory = True ' Mostrare il pulsante ? e la casella di controllo Sola lettura? .ShowHelp = True .ShowReadOnly = False ' Iniziare con la casella di controllo Sola lettura selezionata? ' Questo è rilevante solo quando ShowReadOnly è True. .ReadOnlyChecked = False .Title = "Select a file to open" ' Accettare solo nomi di file Win32 validi? .ValidateNames = True If .ShowDialog = Windows.Forms.DialogResult.OK Then Try txtFileContents.Text = My.Computer.FileSystem.ReadAllText(.FileName) Catch fileException As Exception Throw fileException End Try End If End With Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text) End Try End Sub


Rispondi quotando
