Salve a tutti,
ho ritagliato da un esempio trovato in rete il seguente codice per simulare il classico tastino di windows "Sfoglia".
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
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.