VB和API高手请进，如何改变textbox里的指定部分字体和颜色

Question

要是能的话就不叫TextBox啦,就叫RichTextBox啦.

Answer 1

用richtextbox 如何做到呢

Answer 2

Private Sub Command1_Click ()
   CommonDialog1.Flags = cdlCFBoth
   CommonDialog1.ShowFont
   With RichTextBox1
      .SelFontName = CommonDialog1.FontName
      .SelFontSize = CommonDialog1.FontSize
      .SelBold = CommonDialog1.FontBold
      .SelItalic = CommonDialog1.FontItalic
      .SelStrikethru = CommonDialog1.FontStrikethru
      .SelUnderline = CommonDialog1.FontUnderline
   End With
End Sub

Answer 3

用richtextbox里的
richtextbox.selstart=n /n表示一整数，这里设定的是起点
richtextbox.sellenght=n /长度
richtextbox.selcolor="" /颜色