Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    Esplora risorse

    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.
    "Estremamente originale e fantasioso" By darkiko;
    "allora sfiga crepuscolare mi sa che e' meglio di atmosfera serale" By NyXo;
    "per favore, già è difficile con lui" By fcaldera;
    "se lo apri te e invece di "amore" ci metti "lavoro", l'effetto è lo stesso" By fred84

  2. #2
    Utente di HTML.it L'avatar di Mychy
    Registrato dal
    Oct 2000
    Messaggi
    794
    Prova:
    Me.odlgTextFile .FileName

  3. #3
    Originariamente inviato da Mychy
    Prova:
    Me.odlgTextFile .FileName
    Uso questa linea di codice ma non fa apparire nulla:

    TextBox4.Text = Me.odlgTextFile.FileName
    "Estremamente originale e fantasioso" By darkiko;
    "allora sfiga crepuscolare mi sa che e' meglio di atmosfera serale" By NyXo;
    "per favore, già è difficile con lui" By fcaldera;
    "se lo apri te e invece di "amore" ci metti "lavoro", l'effetto è lo stesso" By fred84

  4. #4
    Non so perchè ma se non ci clicco dentro non si autoaggiorna il contenuto della text box
    "Estremamente originale e fantasioso" By darkiko;
    "allora sfiga crepuscolare mi sa che e' meglio di atmosfera serale" By NyXo;
    "per favore, già è difficile con lui" By fcaldera;
    "se lo apri te e invece di "amore" ci metti "lavoro", l'effetto è lo stesso" By fred84

  5. #5
    Utente di HTML.it L'avatar di Mychy
    Registrato dal
    Oct 2000
    Messaggi
    794
    Dove la usi?

  6. #6
    Originariamente inviato da Mychy
    Dove la usi?
    Ho risolto, praticamente per farle autoaggiornare le textbox le devo piazzare sotto il codice che aggiorna, giusto?
    "Estremamente originale e fantasioso" By darkiko;
    "allora sfiga crepuscolare mi sa che e' meglio di atmosfera serale" By NyXo;
    "per favore, già è difficile con lui" By fcaldera;
    "se lo apri te e invece di "amore" ci metti "lavoro", l'effetto è lo stesso" By fred84

  7. #7
    Utente di HTML.it L'avatar di Mychy
    Registrato dal
    Oct 2000
    Messaggi
    794
    Non so cosa intendi per sotto, ma sì devi fare tu il codice che le aggiorna

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.