openfileDialog

最新推荐文章于 2019-09-22 16:45:50 发布

原创最新推荐文章于 2019-09-22 16:45:50 发布 · 838 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#exception

.net技术专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一个使用C#编写的简单应用程序，该程序能够打开并读取文本文件的内容到界面上的一个文本框中，同时也提供了保存文本框内容到文本文件的功能。文章详细展示了如何配置文件对话框的属性，如过滤器、默认扩展名等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub btnOpenTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenTextFile.Click
Dim ts As StreamReader

        Try
            With odlgTextFile
                ' ﾇ・ﾎﾔﾄ btnRetriveFileNames_Click ﾖﾐﾋｵﾃｴﾁﾋｽ籃簟ｩﾊﾔｵﾄﾄｬﾈﾏﾖｵ｡｣

' ｼ・鰌ﾃｻｧﾋ｡ﾈ｡ｵﾄﾎﾄｼﾊﾇｷ贇ﾚ｣ｬﾈ郢軏ｻｴ贇ﾚ｣ｬｶﾔｻｰｿｫﾏﾔﾊｾｾｯｸ贄ｶﾏ｢｡｣
.CheckFileExists = True

' ｼ・鰌ﾃｻｧﾋ｡ﾈ｡ｵﾄﾂｷｾｶﾊﾇｷ贇ﾚ｣ｬﾈ郢軏ｻｴ贇ﾚ｣ｬｶﾔｻｰｿｫﾏﾔﾊｾｾｯｸ贄ｶﾏ｢｡｣
.CheckPathExists = True

' ﾈ｡ｵﾃｻ雜ｨﾄｬﾈﾏﾀｩﾕｹﾃ蠇｣ｲｻｰ・ｬﾇｰｵｼｵﾄ "."｡｣
.DefaultExt = "txt"

                ' ﾊﾇｷｵｻﾘｽﾝｾｶﾋﾎﾕﾕｵﾄﾎﾄｼﾎｻﾖﾃ｡｣
                ' ﾈ郢鉸ｪｷ・ﾔｻｷｵｻﾘﾋ｡ﾈ｡ﾖｮｽﾝｾｶ (.lnk) ｵﾄﾎｻﾖﾃ｡｣
                ' ﾈ郢鉸ｪ True, ﾔｵｻﾘｽﾝｾｶﾋﾎﾕﾕｵﾄﾎﾄｼﾎｻﾖﾃ｡｣
                .DereferenceLinks = True

                ' ﾓ・VB6 ﾒｻﾑｬﾊｹﾓﾃﾒｻｶﾔﾉｸﾑ｡ﾗﾖｴｮ｣ｬﾒﾔ "|" ｷﾖｸ｣
                ' ﾃｿﾒｻｶﾔｻ瞠ﾉﾒｻｸ・"ﾃ靆ﾎﾄｼｹ貂・ﾋ魑ﾉ｡｣
                ' ﾔﾚﾃｿﾒｻｶﾔﾖｮｼ萍ｹﾓﾃﾒｻｸ・"|"｡｣
                ' ｲｻﾐ靨ｪｼﾓﾉﾏﾒｻｸ睾ｲｵﾄ "|"｡｣
                ' ﾄ昮ｲｿﾉﾒﾔﾉ雜ｨ FilterIndex ﾊﾔ｣ｬﾒﾔｱ耜｡ﾈ｡ﾒｻｸｬﾈﾏﾉｸﾑ｡｡｣
                ' ﾖｵｵﾃﾗ｢ﾒ箏ﾄﾊﾇ｣ｬｵﾚﾒｻｸｸﾑ｡ﾏ鍗ｿｵﾄﾋﾖｵﾊﾇ 1｣ｬｶｻﾊﾇ 0｡｣
                .Filter = _
                "Text files (*.txt)|*.txt|" & _
                "All files|*.*"

.Multiselect = False

                ' ｵｱﾍ・ﾉﾑ｡ﾈ｡ﾄｳﾒｻｸﾄｼﾊｱ｣ｬﾖｸﾊｾｶﾔｻｰｿﾇｷﾚｹﾘｱﾕﾇｰｻｹﾔｭﾄｿﾇｰｵﾄﾄｿﾂｼ｡｣
                ' ﾈ郢釭ｫｴﾋﾊﾔﾉ雜ｨｳﾉ False｣ｬﾄｿﾇｰﾄｿﾂｼｻ盧・ﾄｳﾉﾓﾃｻｧﾓﾚｶﾔｻｰｿﾐﾋ｡ﾈ｡ﾖｮﾎﾄｼｵﾄﾄｿﾂｼ｡｣
                ' ﾈ郢釭ｫｴﾋﾊﾔﾉ雜ｨｳﾉ True｣ｬｻ眇ｫﾄｿﾇｰﾄｿﾂｼｻｹﾔｭｳﾉｽｫﾋ・ｻｿｪﾊｼﾊｱｵﾄﾄｿﾂｼ｡｣
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ False｡｣
                .RestoreDirectory = True

                ' ﾉ雜ｨﾊﾇｷｪﾓﾚｶﾔｻｰｿﾐﾏﾔﾊｾｳｸﾋｵﾃｹｰｴﾅ･ﾓ・ｸﾎｨｶﾁ｡ｹｺﾋﾈ｡ｷｽｿ鬘｣
                .ShowHelp = True
                .ShowReadOnly = False

                ' ｡ｸﾎｨｶﾁ｡ｹｺﾋﾈ｡ｷｽｿ鯡ﾇｷｻｿｪﾊｼｾﾍﾒｪｱｻｹｴﾑ｡｡｣
                ' ｴﾋﾉ雜ｨﾖｻﾓﾐﾔﾚ ShowReadOnly ﾊﾔｱｻﾉ雜ｨｳﾉ True ﾊｱｲﾅﾓﾐﾒ簫蝪｣
                ' .ReadOnlyChecked = False

.Title = "ﾇ・｡ﾈ｡ﾒｻｸﾄｼﾀｴｼﾓﾒﾔｴｪ"

' ﾉ雜ｨｶﾔｻｰｿﾇｷｻｽﾓﾊﾜﾓﾐﾐｧｵﾄ Win32 ﾎﾄｼﾃ﨤ﾆ｡｣
.ValidateNames = True

                If .ShowDialog() = DialogResult.OK Then
                    FileName = .FileName
                    ts = New StreamReader(.OpenFile)
                    txtFileContents.Text = ts.ReadToEnd()
                End If
            End With
        Catch exp As Exception
            MessageBox.Show(exp.Message, Me.Text)
        Finally
            If Not (ts Is Nothing) Then
                ts.Close()
            End If
        End Try
    End Sub

Private Sub btnSaveTextFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveTextFile.Click
Dim sw As StreamWriter

        Try
            With sdlgTextFile
                ' ﾇ・鯀ｴﾕｹﾊｾ OpenFileDialog ｿﾘﾖﾆﾏ鋙ﾄｷｶﾀｳﾌﾐ・ｬ
                ' ｸﾃｷｶﾀﾊｹﾓﾃﾁﾋﾐ昮犒ﾄﾊﾔ｣ｬｶ簔ｽｸﾘﾖﾆﾏ鋗ｿｷﾖ
                ' ｵﾄﾊﾔﾊﾇﾏ猩ｬｵﾄ｡｣

                ' ﾉ雜ｨｶﾔｻｰｿﾇｷﾚﾓﾃｻｧﾒﾅﾂｩﾀｩﾕｹﾃ鈹ｱ｣ｬﾗﾔｶｯｼﾓﾈ・ﾄｼｵﾄﾀｩﾕｹﾃ蠇｣
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ True｡｣
                .AddExtension = True

                ' ﾔﾚｽｨﾁ｢ﾒｻｸﾂﾎﾄｼﾖｮﾇｰ｣ｬﾏﾈｼ・鯡莎ｷｾｶﾊﾇｷ豬ﾄｴ贇ﾚ｣ｬ
                ' ﾈ郢軏ｻｴ贇ﾚｾｶ｣ｬｾﾍﾏﾔﾊｾｳｯｸ贄ｶﾏ｢｡｣ﾁ楨筌ｬﾔﾚｸｲﾐｴﾇｰﾊﾇｷﾓﾒﾔﾌ睫ｾ｡｣
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ True｡｣
                .CheckPathExists = True
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ False｡｣
                .CreatePrompt = False
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ True｡｣
                .OverwritePrompt = True
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ True｡｣
                .ValidateNames = True
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ False｡｣
                .ShowHelp = True

                ' ﾈ郢﨧ﾃｻｧｲ｢ﾎｴﾌ盪ｩﾒｻｸｩﾕｹﾃ訒ｬ
                ' ｶﾒﾈ郢・AddExtension ﾊﾔﾊﾇ True｣ｬ
                ' ｱ飜ｹﾓﾃｴﾋﾀｩﾕｹﾃ蠇｣
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ ""｡｣
                .DefaultExt = "txt"

                ' ﾔﾚｴﾓ SaveFileDialog ﾀ牾ﾐﾊｹﾓﾃﾊｱ｣ｬｴﾋﾊﾔｴ﨑暿ﾋｴ｢ｴ豬ﾄﾎﾄｼ｡｣
                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ ""｡｣
                .FileName = FileName

                ' ｴﾋﾊﾔｵﾄﾄｬﾈﾏﾖｵﾊﾇ ""｡｣
                .Filter = _
                "Text files (*.txt)|*.txt|" & _
                "All files|*.*"
                .FilterIndex = 1

                If .ShowDialog() = DialogResult.OK Then
                    FileName = .FileName
                    sw = New StreamWriter(FileName)
                    sw.Write(txtFileContents.Text)
                End If
            End With
        Catch exp As Exception
            MessageBox.Show(exp.Message, Me.Text)
        Finally
            If Not (sw Is Nothing) Then
                sw.Close()
            End If
        End Try
    End Sub