Question

vb richtextbox 字体问题

窗体中有richtextbox和4个command。
当点击command1时，richtextbox内的内容是在原基础上 用隶书加上“123123”一句话，然后点击command2时，richtextbox内容在原基础上用宋体斜体加上 “234234”一句话。该怎样实现？

Answer 1

Private Sub Command1_Click()
RichTextBox1.SelFontName = "隶书"
RichTextBox1.SelText = "123123"
End Sub

Private Sub Command2_Click()
RichTextBox1.SelFontName = "宋体"
RichTextBox1.SelItalic = True
RichTextBox1.SelText = "234234"
End Sub