RichTextBox中怎么设置选中字体！

RichTextBox中怎么设置选中字体！
如设置加粗、斜体、下划线~先谢谢 ~
在线等待！！！

解决方案 »

  1.   


      RichTextBox1.SelStart = 0
      RichTextBox1.SelLength = Len(RichTextBox1.Text)
      RichTextBox1.SelFontName = "宋体"  '设置字体为宋体
      RichTextBox1.SelFontSize = "8"    '设置字体大小为8
       RichTextBox1.SelColor = vbBlue  '设置字体为蓝色
       RichTextBox1.SelBold = True    '设置字体加粗
       RichTextBox1.SelItalic = True  '设置字体斜体字
    RichTextBox1.SelUnderline = True  '设置字体下划线
    RichTextBox1.SelAlignment = rtfCenter '设置字体对齐方式
    RichTextBox1.SelBullet = True   '设置字体前面加个标头
    RichTextBox1.SelStrikeThru = True  '设置字体删除线