OpenFileDialog属性的实例

分类：VB.Net

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码如下：

' 导入命名空间
Imports System.IO
Public Class LOB

    Private Sub btnSelectFirstFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectFirstFile.Click
        ' 建立 OpenFileDialog 对象。
        Dim myOpenFileDialog As New OpenFileDialog

        ' 设定 OpenFileDialog 对象的各个属性。
        With myOpenFileDialog
            .CheckFileExists = True
            .Title = "请选取第一个文件"
            .InitialDirectory = "D:\乐博网"
            .RestoreDirectory = True
            .Multiselect = False
        End With

        ' 将用户所选取的文本文件的完整路径显示于 TextBox1 文字方块中。
        If myOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = myOpenFileDialog.FileName
        End If
    End Sub

    Private Sub btnSelectSecondFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectSecondFile.Click
        ' 建立 OpenFileDialog 对象。
        Dim myOpenFileDialog As New OpenFileDialog

        ' 设定 OpenFileDialog 对象的各个属性。
        With myOpenFileDialog
            .CheckFileExists = True
            .Title = "请选取第二个文件"
            .InitialDirectory = "D:\乐博网"
            .RestoreDirectory = True
            .Multiselect = False
        End With

        ' 将使用者所选取之文字文件的完整路径显示于 TextBox2 文字方块中。
        If myOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox2.Text = myOpenFileDialog.FileName
        End If
    End Sub

    Private Sub btnGoToCompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGoToCompare.Click
        If (FileCompare(Me.TextBox1.Text, Me.TextBox2.Text)) Then
            MessageBox.Show("两个文件是相同的。")
        Else
            MessageBox.Show("两个文件并不相同。")
        End If
    End Sub

    ' 此方法所接收的两个字符串代表您所要比较的两个档案。
    ' 如果两个档案的内容完全相同，将传回 True；任何其它
    ' 的传回值都表示这两个档案的内容有所差异。
    Private Function FileCompare(ByVal file1 As String, ByVal file2 As String) As Boolean

        ' 判断相同的档案是否被参考两次。
        If (file1 = file2) Then
            Return True
        End If

        Dim file1byte As Integer
        Dim file2byte As Integer

        Using fs1 As New FileStream(file1, FileMode.Open), fs2 As New FileStream(file2, FileMode.Open)

            ' 检查档案大小。如果两个档案的大小并不相同，则视为不相同。
            If (fs1.Length <> fs2.Length) Then
                ' 关闭档案。
                fs1.Close()
                fs2.Close()

                Return False
            End If

            ' 逐一比较两个档案的每一个字节，直到发现不相符或已到达档案尾端为止。
            Do
                ' 从每一个档案读取一个字节。
                file1byte = fs1.ReadByte()
                file2byte = fs2.ReadByte()
            Loop While ((file1byte = file2byte) And (file1byte <> -1))

            ' 关闭档案。
            fs1.Close()
            fs2.Close()

        End Using

        ' 返回比较的结果。在这个时候，只有当两个档案
        ' 的内容完全相同时，"file1byte" 才会等于 "file2byte"。
        Return ((file1byte - file2byte) = 0)
    End Function

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class