VB如何使标签或Text中的部分字改变颜色.

那很简单啊，只要增加一个label的Change事件即可，代码如下（假如当label出现5时、TEXT 里的文字颜色改变成红色）：Private Sub Label1_Change()If Label1.Caption = 5 Then Text1.ForeColor = vbRed End Sub

RichTextBox1.SelStart = 10 '设置选取位置 RichTextBox1.SelLength = 5 '设置选取长度 RichTextBox1.SelFontSize = 10 '设置选取内容字体大小 RichTextBox1.SelColor = vbRed '设置选取内容字体颜色 RichTextBox1.SelStart = 0 ...

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述:我现在在做记事本的，我把背景设成黑色，请问用什么代码可以让字体的默认颜色为红色。谢谢。解析:在text控件中的fontcolor属性

RichTextBox1.SelColor = vbRed 富文本框要用上面这行代码，不过这行代码只能改变当前选中的文本的颜色和以后输入的文本的颜色。如果想要改变所有文本的颜色，可以手动选中所有文本，再执行这上面的代码，或者用以下的代码代替。Dim i As Long i = RichTextBox1.SelStart RichTextBox1.SelStart = 0 ...

只有richtextbox有这种功能，如果字符串在标签里、在标题中就不能实现了。Private Sub Command1_Click()RichTextBox1.SelColor = vbGreen End Sub 被选中的字符变成绿色，当然选中的字符可以用代码给出。张志晨

不能..普通的textbox只能设置1种文字颜色..你可以使用richtextbox控件来实现.. 方法就是:SelColor=颜色.可以的呀..你每打一个字计一个数, 比如现在是第8个字,打的不正确..代码如下:RichTextBox1.SelStart = 7 '默认是从0开始 RichTextBox1.SelLength = 1 RichTextBox1.SelColor = vbRed...

'你输入的数据格式为 aaa,bbb dim w as integer,h as integer w=split(text1.text ,",")(0)h=split(text1.text ,",")(1)if w<500 or h <200 then '条件，宽<500,高<200.你可以设置其他条件 text1.backcolor=vbred else text1.backcolor=vbwhite end if ...

设置具体的颜色 text1.ForeColor = vbRed ps：后面的red（红色）可以改成其他颜色 或者 Text1.ForeColor = &HFFFFC0 ps：=号后面是颜色的代码，在ForeColor 设置字型 粗体 text1.FontBold =True 斜体 Text1.FontItalic = True 下划线 Text1.FontUnderline = True ...

text1 是一个文本框，如果不它进行扩展，没法把1变成红色，0还保留黑色。如果修改颜色属性，也只能是都是黑色，或都是红色。除非你扩展自定义控件，在渲染的时候自已控制，把字符绘制成什么颜色。希望能帮到你。

Private Sub Form_Load()RichTextBox1.SelStart = 4 RichTextBox1.SelLength = 1 RichTextBox1.SelColor = vbRed RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 0 End Sub 这段代码会使当中的第5个字为红色。