![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,8 kB)
|
Downloads bisher: [ 1936 ]
|
|
|