VB.Net by API/System.Windows.Forms/OpenFileDialog
Содержание
OpenFileDialog.AddExtension
<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class ColorDialogWithCustomColorSettings
public Shared Sub Main
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Text files | *.txt"
FileDB.FilterIndex = 2
FileDB.InitialDirectory = "C:\Temp"
FileDB.AddExtension = True
FileDB.DefaultExt = "txt"
FileDB.CheckFileExists = False
FileDB.CheckPathExists = False
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim SourceFile As StreamReader
Try
SourceFile = New StreamReader(FileDB.FileName)
Console.WriteLine(SourceFile.ReadToEnd())
SourceFile.Close()
Catch Except As DirectoryNotFoundException
Console.WriteLine("Error: " & Except.Message)
Catch Except As FileNotFoundException
Console.WriteLine("Error: " & Except.Message)
Catch Except As Exception
Console.WriteLine("Error: " & Except.Message)
End Try
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End class
</source>
OpenFileDialog.CheckFileExists
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
OpenFileDialog.CheckPathExists
<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class ColorDialogWithCustomColorSettings
public Shared Sub Main
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Text files | *.txt"
FileDB.FilterIndex = 2
FileDB.InitialDirectory = "C:\Temp"
FileDB.AddExtension = True
FileDB.DefaultExt = "txt"
FileDB.CheckFileExists = False
FileDB.CheckPathExists = False
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim SourceFile As StreamReader
Try
SourceFile = New StreamReader(FileDB.FileName)
Console.WriteLine(SourceFile.ReadToEnd())
SourceFile.Close()
Catch Except As DirectoryNotFoundException
Console.WriteLine("Error: " & Except.Message)
Catch Except As FileNotFoundException
Console.WriteLine("Error: " & Except.Message)
Catch Except As Exception
Console.WriteLine("Error: " & Except.Message)
End Try
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End class
</source>
OpenFileDialog.Filter
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
OpenFileDialog.FilterIndex
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
OpenFileDialog.InitialDirectory
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
OpenFileDialog.ShowDialog()
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
OpenFileDialog.Title
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main()
Dim myFileDialog As OpenFileDialog = New OpenFileDialog()
With myFileDialog
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open File"
.CheckFileExists = False
End With
If myFileDialog.ShowDialog() = DialogResult.OK Then
Console.WriteLine(myFileDialog.FileName)
End If
myFileDialog = Nothing
End Sub
End Class
</source>
