Le finestre di dialogo sono comunemente utilizzati in programmazione per consentire agli utenti di navigare per i file. In Microsoft Visual Basic.NET (VB.NET), utilizzare un controllo OpenFileDialog per consentire la navigazione per un file sul disco rigido di un computer. Utilizzare la proprietà DialogResult per ottenere il risultato del pulsante che è stato cliccato dall'utente nella finestra di dialogo. Con il risultato di dialogo, è possibile controllare il flusso del programma eseguendo la sezione corretta del codice.

istruzione

1 Avviare Microsoft Visual Basic Express e fare clic su "New Project" nel riquadro di sinistra dello schermo del computer. Fai clic su "Visual Basic" al di sotto "Modelli installati" e fare clic su "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "Button" nel riquadro "Toolbox" per aggiungere un nuovo controllo pulsante al form. Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Digitare il seguente sopra "Public Class Form1" per dichiarare lo spazio dei nomi:

Imports System.IO

3 Digitare quanto segue per dichiarare una nuova variabile che conterrà i dati del file:

Dim myFile Poiché Stream = Nothing

4 Digitare quanto segue per dichiarare la variabile che conterrà il risultato tasto della finestra di dialogo:

Dim dialogResult As DialogResult

5 Digitare la seguente per inizializzare le impostazioni finestra di dialogo file:

OpenFileDialog1.InitialDirectory = "c:\"

OpenFileDialog1.Filter = "file txt (* .txt) | * .txt | Tutti i file (*. *) | *. *"

6 Digitare quanto segue per visualizzare la finestra di file e ottenere il risultato bottone:

dialogResult = OpenFileDialog1.ShowDialog

7 Digitare quanto segue per creare un'istruzione Select Case e verificare se l'utente fa clic sui pulsanti "Annulla" "Apri" o:

Try

Select Case (DialogResult)

Case Is = System.Windows.Forms.DialogResult.OK

myFile = Me.OpenFileDialog1.OpenFile

Se (myFile IsNot Niente) Poi

'Inserire il codice per leggere il file qui

Finisci se

Case Is = System.Windows.Forms.DialogResult.Cancel

MessageBox.Show ( "Si è fatto clic annullare.")

End Select

Fermo ex come eccezione

MessageBox.Show ( "Impossibile leggere il file dal disco errore originale:." & Ex.Message)

Finalmente

Se (myFile IsNot Niente) Poi

myFile.Close ()

Finisci se

End Try

8 Premere il tasto "F5" per eseguire l'applicazione e fare clic su "Button1" per eseguire il codice.