求救：RichtextBox控件的全角、半角问题？

Question

RichtextBox控件输入全角的双引号，保存到文件，再从文件中loadfile后，变成半角的双引号，为什么？如何解决？？

Answer 1

可是我从delphi中从文件载入，全角保持不变呀？那这么说，richtextbox中不能有全角吗？

Answer 2

Private Sub Command1_Click()
RichTextBox1.Text = ""
End SubPrivate Sub Command2_Click()
RichTextBox1.FileName = App.Path & "\xx.rtf"
End SubPrivate Sub Form_Load()
RichTextBox1.Text = "“为人民服务”"
RichTextBox1.SaveFile App.Path & "\xx.rtf", rtfText'不会变成半角
'RichTextBox1.SaveFile App.Path & "\xx.rtf", rtfRTF'将半角
End Sub

Answer 3

MSDN:-----------------------------------------------------------
SaveFile 方法
      把 RichTextBox 控件的内容存入文件。不支持命名的参数。语法object.SaveFile(pathname, filetype)SaveFile 方法的语法包含下面部分：部分 描述 
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。 
pathname 必需的。字符串表达式，它定义保存控件内容文件的路径和文件名。 
filetype 可选的。整数或常数，按照“设置值”中的描述确定加载文件的类型。 
设置值filetype 的设置值是：常数 值 描述 
rtfRTF 0 （缺省）RTF。RichTextBox 控件把它的内容存为一个 .rtf 文件。 
rtfText 1 文本。RichTextBox 控件把它的内容存为一个文本文件。 

Answer 4

为什么在vb中用loadfile加载rtf文件，全角的双引号不能正确显示呢？

Answer 5

我需要保存为 rtfRTF格式的，不能是rtfText的

Answer 6

'自己写打开与保存，不要用控件自带的方法
'更多的技巧可以去我的网站下载源码：http://j2soft.008.net/'打开
Private Sub Command1_Click()
    Open "D:\aa.txt" For Input As #1
    RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
    Close #1
End Sub'保存
Private Sub Command2_Click()
    Open "D:\aa.txt" For Output As #1
    Print #1, RichTextBox1.Text
    Close 1
End Sub

Answer 7

这个是richtextbox的bug，想解决需要自己解析RTF

Answer 8

那高版本的richtextbox可以解决这个问题吗？我用的是3.0

Answer 9

那就不能用loadfile来加载文件了？无药可救了吗？伤心。。

Answer 10

如果你要使用RTF格式的话，我建议你找一些第3方控件来代替RICHTEXTBOX