Hvordan kontrollknappene på en dialogboks

January 29

Dialogbokser blir ofte brukt i programmering for å tillate brukere å søke etter filer. I Microsoft Visual Basic.NET (VB.NET), bruk en OpenFileDialog kontroll for å tillate surfer etter en fil på harddisken i en datamaskin. Bruk DialogResult eiendommen for å få resultatet av den knappen som ble klikket av brukeren i dialogboksen. Med dialogen resultat, kan du kontrollere flyten av programmet ved å utføre den riktige delen av koden.

Bruksanvisning

1 Start Microsoft Visual Basic Express og klikk "New Project" på ruten til venstre på skjermen. Klikk på "Visual Basic" under "Installerte Maler" og klikk "Windows Forms Application". Klikk på "OK".

2 Dobbeltklikk på "Button" på "Toolbox" panelet for å legge til en ny knapp kontroll i skjemaet. Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul. Skriv inn følgende ovenfor "Public Class Form1" for å erklære navne:

importen System.IO

3 Skriv inn følgende å erklære en ny variabel som vil holde din fil data:

Dim minFil Som Stream = Nothing

4 Skriv inn følgende for å deklarere variabelen som skal inneholde knappen resultatet av dialogboksen:

Dim dialogResult As DialogResult

5 Skriv inn følgende initialdialog fil innstillinger:

OpenFileDialog1.InitialDirectory = "c:\"

OpenFileDialog1.Filter = "txt filer (* .txt) | * .txt | Alle filer (*. *) | *. *"

6 Skriv inn følgende for å vise fildialogen og få knapp resultat:

dialogResult = OpenFileDialog1.ShowDialog

7 Skriv inn følgende for å opprette en Select sak uttalelse, og sjekke om brukeren klikket på "Open" eller "Avbryt" knappene:

Try

Velg sak (dialogResult)

Saken = System.Windows.Forms.DialogResult.OK

minFil = Me.OpenFileDialog1.OpenFile

Hvis (minFil erikke noe) Så

"Sett inn kode for å lese filen her

Slutt om

Saken = System.Windows.Forms.DialogResult.Cancel

MessageBox.Show ( "Du klikket avbryte.")

End Select

Catch Ex As Exception

MessageBox.Show ( "Kan ikke lese filen fra disk Original feil." & Ex.Message)

Endelig

Hvis (minFil erikke noe) Så

myFile.Close ()

Slutt om

End Try

8 Trykk "F5" for å kjøre programmet og klikk "Button1" for å utføre koden din.