Question

VB怎样指定位置、类型保存richtextbox里面的文本？

RT，VB怎样把richtextbox里面的文本用savefiledialog指定位置保存为各种类型的文件？，请大家帮帮忙吧~~最好有代码~~
我用的是VB.net，拜托大家啦~~

Answer 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 慎明拍槐枣Button1.Click
        Dim path As String
        SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|C++源文件(*.cpp)|*.cpp|批处理文件(*.bat)|*.bat"

        SaveFileDialog1.ShowDialog()
        path = SaveFileDialog1.FileName
        If path <> "" Then
       宽羡     IO.File.WriteAllText(path, RichTextBox1.Text)
        End If
    End Sub

追问

如果要用richtextbox自带的savefile方法该怎么用呢？

追答

那就把

IO.File.WriteAllText(path, RichTextBox1.Text)

换成

RichTextBox1.SaveFile(path, RichTextBoxStreamType.PlainText)

Answer 2

CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
RichTextBox1.SaveFile CommonDialog1.FileName
CommonDialog1.FileName = ""
End If

代码已在XP SP3+VB6.0 SP6环境兆悔下测试通过。
春风学园 计算机研究唤猜弯社的小柊很高兴为您解答。和闷

追问

是VB2010的，用不了这代码，拜托再答一次，谢谢！

追答

那我没办法，我是VB6.0