VB改变文本框单个字的颜色

想办法设置Text1（你的文本框名称）.BackColor 属性的值，如果想把他设成红色那么就是Text1.BackColor = vbRed，如果想设成任意颜色，可以使用RGB(r，g，b)函数，甚至可以使用始终或者循环来使文本框的颜色渐变。循环语句会吧，我不多说了。

VB可设置文本框属性ForeColor值来改变文本的前景颜色。ForeColor 属性 ForeColor－返回或设置在对象里显示图片和文本的前景颜色。Private Sub Form_Load() Text1.ForeColor = vbRed '这是设置为红色End Sub

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

在VB6中可以通过设置对象的Font属性设置字体字号，ForeColor属性设置字体颜色。\x0d\x0a例如，下面代码实现设置文本框中的字体为”隶书“字号28磅，字体颜色为红色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隶书"\x0d\x0aText1...

去接成一个字串输出就可以随你要的自行设定输出颜色，又不需要写太多的程式码，接Label的方法可以参考一下面的程式码。Private Sub Form_Load()Label1.AutoSize = True Label2.AutoSize = True Label3.AutoSize = True Label1.ForeColor = vbBlack Label2.ForeColor = vbRed Label3.ForeColor =...

'每隔3秒随机改变5个文本框中文字颜色 Private Sub TextColor(T As TextBox)Randomize (Timer)a = Int(Rnd * 255 + 1)b = Int(Rnd * 255 + 1)c = Int(Rnd * 255 + 1)T.ForeColor = RGB(a, b, c)End Sub Private Sub Form_Load()Timer1.Interval = 3000 End Sub Private Sub ...

Private Sub Text1_GotFocus()Text1.BackColor = &HC0C0FF '光标在文本框时变色 End Sub Private Sub Text1_LostFocus()Text1.BackColor = &HFFFFFF '光标不在文本框时还原白色 End Sub

例如，设置字体大小为12，可以使用以下代码：Text1.Font.Size = 12 设置字体颜色为蓝色，可以使用以下代码：Text1.Font.Color = vbBlue 若要设置字体风格为斜体，可以使用以下代码：Text1.Font.Bold = True 通过这些简单的属性设置，你可以灵活地调整文本框中的字体样式，以满足不同的设计需求。

' 可以加上窗体点击事件和失去焦点设置成同一种颜色就达到想要的效果了 Private Sub Form_Click()Text1.BackColor = vbGreen End Sub ' 获得焦点文本框变红色 Private Sub Text1_GotFocus()Text1.BackColor = vbRed End Sub ' 失去焦点文本框变绿色 Private Sub Text1_LostFocus()Text1.Back...

= RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)End Sub Private Sub HsbGreen_Change()Text2.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)End Sub Private Sub HsbRed_Scroll()Text1.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)End Sub ...