求救.在线等.谢谢,解决马上结贴(关于richtextbox的问题)

Question

怎么样引用richtextbox.现在我从XML里取出了字符串(由RichTextBox1.TextRTF得来的).现在我要从XML取出这个字符并去掉控制信息.只要TEXT 信息.我想定义一个RichTextBox,但定义不了.不能NEW.要怎么定义??最好能给出事例.谢谢.例如现在有字符串取出来"{\rtf1\ansi\ansicpg936\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang1033\f0\fs18 asdfawerawe\lang2052 
\par }"我要提取其中的信息"asdfawerawe"

Answer 1

'在"程序"--"部件"中选中"Microsoft Rich Textbox Control 6.0 就可以添加了

Answer 2

不行啊.我是要定一个richtextbox.然后通过他得到TEXT值
Dim a As New RichTextLib.RichTextBox
运行时报错说"无效使用NEW"啊.我应该怎么定义呢>

Answer 3

Dim a As New RichTextLib.RichTextBox
  'Set a = New RichTextLib.OLEObject
  a.TextRTF = "{\rtf1\ansi\ansicpg936\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}\viewkind4\uc1\pard\lang1033\f0\fs18 asdfawerawe\lang2052\par }"
  MsgBox a.Text
我是要达到这个目的.

Answer 4

Private Sub Command1_Click()
Dim strTemp As String
Dim strTemp1 As String
Dim i As Long, ii As LongstrTemp = "{\rtf1\ansi\ansicpg936\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}\viewkind4\uc1\pard\lang1033\f0\fs18 asdfawerawe\lang2052\par }"i = InStrRev(strTemp, "\", InStrRev(strTemp, "\") - 1)
ii = InStrRev(strTemp, "\", i - 1)
strTemp1 = Mid(strTemp, ii + 1, i - ii - 1)
strTemp1 = Mid(strTemp1, InStr(strTemp1, " ") + 1)
MsgBox strTemp1
End Sub

Answer 5

大哥，服了，你完全可以用那个控件来当一个变量，把那个RichText控件 设成看不见，就不行了，到时候用一下，还是可以的。