Lancering Microsoft Visual Basic Express en klik op " New Project" aan de linkerkant van uw computerscherm . Klik op " Visual Basic " onder " Installed Sjablonen " en klik op " Windows Forms Application . " Klik op "OK . "

Dubbelklik op " Button " 2 op de " Toolbox " deelvenster naar een nieuwe knop controle toe te voegen aan uw formulier . Dubbelklik op " Button1 " om de " Form1.vb " module te openen . Typ de volgende bovenstaande "Public Class Form1 " te verklaren de namespace :

Imports System.IO

Type
3 het volgende tot een nieuwe variabele te verklaren dat het bestand zal houden data :

Dim myFile
Zoals Stroom = Nothing

Type 4 het volgende aan de variabele die de knop resultaat van uw dialoogvenster zal bevatten verklaren :

Dim DialogResult
zoals DialogResult
5

Typ het volgende om bestand dialoogvenster met instellingen te initialiseren :

OpenFileDialog1.InitialDirectory
= " c : \\ "

OpenFileDialog1.Filter
= " txt-bestanden ( * txt ) | * txt | Alle bestanden ( * * ) | * * "

Type 6 het volgende om het dialoogvenster bestand weer te geven en te krijgen knop resultaat : . . . .

DialogResult = OpenFileDialog1.ShowDialog

Type 7 het volgende om een Select Case statement maken en te controleren of de gebruiker de "Open " of " Cancel " knop geklikt :

Try

Select Case ( DialogResult )

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

myFile
= Me.OpenFileDialog1.OpenFile

Als ( myFile IsNot Nothing ) dan

' insert code naar bestand

End hier
lezen Als

Case
Is

MessageBox.Show = System.Windows.Forms.DialogResult.Cancel
( " Je klikte annuleren . " )

End of Selecteer

Catch Ex
als Uitzondering

MessageBox.Show
( " Kan bestand niet lezen van schijf Original error : . " & Ex .

Tenslotte

bericht ) op Twitter Als ( myFile IsNot Nothing ) dan

myFile.Close (
)

End
Als

End of Probeer < br >

Druk op " F5 " 8 om uw toepassing uit te voeren en klik op " Button1 " om uw code uit te voeren .