更改。保存文件以保存文件格式

Question

如何将此语句转换为“另存为”对话框？

 Me.TextBox4.SaveFile(System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer) + "\MyDocs\Test.xml", RichTextBoxStreamType.UnicodePlainText)

我需要保留这种格式，因为它是保存文件时唯一正常工作的格式。

感谢。

Answer 1

你可以尝试这样的事情。创建一个SaveFileDialog并将其传递给默认位置和文件名的所有参数。根据您的文件创建新文件流（创建或覆盖）并将该流传递给RichTextBox的SaveFile方法

      Using sfd As New SaveFileDialog()
                sfd.AddExtension = True
                sfd.Filter = "*.xml|*.xml"
                sfd.OverwritePrompt = True
                sfd.DefaultExt = ".xml"
                sfd.CreatePrompt = False
                sfd.InitialDirectory = Path.Combine(Environment.SpecialFolder.MyComputer, "\MyDocs\")
                sfd.FileName = "Test.xml"

                If sfd.ShowDialog = Windows.Forms.DialogResult.OK AndAlso sfd.FileName <> String.Empty Then
                    Using sf As New FileStream(sfd.FileName, FileMode.Create)
                        TextBox4.SaveFile(sf, RichTextBoxStreamType.UnicodePlainText)
                    End Using
                End If

            End Using