RichTextBox字体的初始值怎么设置

Question

  如题 就是每次打开自己做的记事本都要设置下字体的颜色 
 CommonDialog1.ShowColor
 RichTextBox1.SelColor = CommonDialog1.Color

Answer 1

忘记问了   RichTextBox 怎么进行删除 就是选中的文字进行删除

Answer 2

Private Sub Form_Load()
RichTextBox1.Text = "每次打开自己做的记事本都要设置下字体的颜色 "
RichTextBox1.Font.Size = 24
RichTextBox1.Font.Name = "华文新魏"
RichTextBox1.Font.Italic = True
RichTextBox1.Font.Bold = True
RichTextBox1.Font.Underline = True
RichTextBox1.Font.Charset = gb2312
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbRed
End Sub

Answer 3

删除
Private Sub Command1_Click()
RichTextBox1.SelText = ""
End Sub