如何使文本框或标签中的字体部分显示其他色

[badboyst]

比如在一个用来显示信息的文本中第一行显示黑色字，而第二行显示红色字！

[badboyst]

richtextbox怎么用，可以给我举例子说明一下吗！

[Abyss-Xu]

Find方法在RichTextBox控件中搜索指定的字符串。
RichTextBox1.Text="This rich text box supports font Colors like"
RichTextBox1.SelStart=RichTextBox1.Find("Colors")
RichTextBox1.Span("Colors") '根据指定的字符集选择RichTextBox控件中的文本
RichText1.SelColor=Rgb(255,0,0) '设置颜色

RichTEextBox1.SelStart=0 '将光标放到第一位前
RichTextBox1.SelStart=RichTextBox1.Find("box")
RichTextBox1.Span("box")
RichText1.SelColor=Rgb(0,255,0)

[BlueBeer]

//richtextbox怎么用，可以给我举例子说明一下吗！

Private Sub Command1_Click()
RichTextBox1.SelStart = 6
RichTextBox1.SelLength = 5
RichTextBox1.SelColor = vbBlue
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "测试测试测试这里是标注再测试测试测试"
End Sub

[starsoulxp]

使用Richtextbox

[horsefly]

用richbox看看。
要不然就自己生成字体，用api输出到控件中.....

[BlueBeer]

richtextbox可以做到，textbox没这功能

[zdmaster]

textbox不行

[rainstormmaster]

简单点的方法是：使用richtextbox代替textbox
复杂点的方法是：自绘textbox