急~~~:RichTextBox的CommonDialog属性如何传递?

来源：百度知道 编辑：UC知道 时间：2024/05/30 17:43:36
设置CommonDialog属性后,RichTextBox1中属性正常,但提交到

RichTextBox2中如何用RichTextBox2.text正常显示已设置的属性(例如字号为二号)怎么办呢?(不用TEXTRTF)

如果要存入数据库,让HTML解释这些属性并正常显示,应该如何处理?

(VB6问题,请写出实现源码.非常感谢.)
RichTextBox2设置了LOCKED属性,并且一定要这样设置,所以无法粘贴,如何解决呢?

这样不行吗?

RichTextBox2.Text = RichTextBox2.Text & RichTextBox1.Text

哦,原来你还想要1里面的格式呀..不存为rtf的话,试试这样吧:

Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
RichTextBox1.SetFocus
SendKeys "^(c)", True

RichTextBox2.SelStart = Len(RichTextBox2)
RichTextBox2.SetFocus
SendKeys "^(v)", True
End Sub

注意，我不小心写反了，变成了Richtextbox2->richtextbox1
Private Sub Command1_Click()
On Error Resume Next
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
With RichTextBox1
.SelFontName = RichTextBox2.SelFontName
.SelFontSize = RichTextBox2.SelFontSize
.SelColor = RichTextBox2.SelColor
.SelBold = RichTextBox2.SelBold
.SelItalic = RichTextBox2.SelItalic
.SelUnderline = RichTextBox2.SelUnderline
.SelStrikeThru = RichTextBox2.SelStrikeThru
End With
End Sub