Tipp 0008 OpenFileDialog-Steuerelement zur Dateiauswahl
Autor/Einsender:
Datum:
  Michael Werner
15.02.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die OpenFileDialog-Klasse stellt ein Standarddialogfeld dar, in dem das Steuerelement angezeigt wird, mit dem Benutzer eine Datei öffnen können. Mit Hilfe dieser Klasse können Sie überprüfen, ob eine Datei vorhanden ist, und diese Datei öffnen.
Dazu legen Sie ein Steuerelement OpenFileDialog aus der Toolbox in die Form. Dieses Steuerelement ist dem CommonDialog-Control aus VB 6 sehr ähnlich. Zunächst werden mehrere Eigenschaften festgelegt, wie zum Beispiel InitialDirectory, Filter, FilterIndex, RestoreDirectory, ShowReadOnly usw. und dann wird das Dialogfeld mit Methode ShowDialog angezeigt.
 
Imports System.IO

Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim myStream As Stream
    Dim OpenFileDialog1 As New OpenFileDialog()

    With OpenFileDialog1
      .InitialDirectory = "c:\"
      .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
      .FilterIndex = 1
      .RestoreDirectory = True

      If .ShowDialog() = DialogResult.OK Then
        myStream = .OpenFile()
        If Not (myStream Is Nothing) Then
          Me.Text = .FileName

          Dim myReader As StreamReader = New StreamReader(myStream)
          Dim i As Integer

          ListBox1.Items.Clear()

          Do Until myReader.Peek() = -1
            ListBox1.Items.Add (myReader.ReadLine)
            i += 1
          Loop

          myStream.Close()
        End If
      End If
    End With
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
Eingabeformular mit ShowDialog aufrufen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,8 kB) Downloads bisher: [ 1940 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012