VB.Net by API/System.Windows.Forms/OpenFileDialog

Материал из VB Эксперт
Перейти к: навигация, поиск

OpenFileDialog.AddExtension

  
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


OpenFileDialog.CheckFileExists

  
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


OpenFileDialog.CheckPathExists

  
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


OpenFileDialog.Filter

  
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


OpenFileDialog.FilterIndex

  
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


OpenFileDialog.InitialDirectory

  
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


OpenFileDialog.ShowDialog()

  
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


OpenFileDialog.Title

  
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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/OpenFileDialog&oldid=2781»