控制VB某个字体颜色

来源：百度知道 编辑：UC知道 时间：2024/04/30 16:21:29
如果是在text里面输入某个特定的字,或某些特定数字在label1它里面显示并带有颜色,如:在text里面输入81 45 69 27,在text和label里面显示并且"81"都显示为红色.

Textbox做不到
用richTextbox
这个要与commonDialog控件一起使用。

比如你设置了一个菜单栏。有一项就是“颜色”。关键字为color。

Private Sub color_Click()
commonDialog1.DialogTitle = "颜色设置"
commonDialog1.Flags = 1
commonDialog1.ShowColor
richtextbox1.SelColor = cd1.Color
End Sub

这段代码就是调用了commondialog控件，就是通用对话框的颜色设置。
你说的对单个字进行设置，就是对鼠标所选文字进行设置。

这样就ok了。。
Private Sub Command1_Click()
RichTextBox1.SelStart = 4 '记得是从0开始的.所以5就是4了..
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbRed
End Sub