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

if(label1.Text==richTextBox1.Text)richTextBox1.ForeColor=Color.Black;else richTextBox1.ForeColor=Color.Red;}---继续答复：首先，还是建议你使用TextChange方法。KeyPress方法只有在松开键后才触发，如果一直按着键比如写a，那这串a颜色不会变的，直到你松手。然后上代码，测试可用的，你直接...

●Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。●FontBold 是否选定“粗体”。●FontItalic 是否选定“斜体”。●FontStrikethru 是否选定删除线。●FontUnderline 是否选定下划线。●FontName 选定的字体名称。●FontSize 选定的字体大小。使用的语法是直接引用，...

If Option2(Index).Caption = "红色" Then '背景色 Text1.BackColor = vbRed ElseIf Option2(Index).Caption = "绿色" Then Text1.BackColor = vbGreen '色值，VB里有定义的 Else Text1.BackColor = &HFF0000 '蓝色16进制值。这样写也行 End If End Sub Private Sub Option3_Click(Index...

代码示例：Option Explicit Sub 宏1()Range("a1").Characters(4, 6).Font.Color = vbRed End Sub 关键内容是Characters，类似MID的使用，测试代码运行前的工作表：执行后的工作表：程序代码：如果需要4、6可以变，使用变量、或者从工作表中读取即可。

更改vb中label标签文字的字体、大小、以及颜色可以参考下面的代码：PrivateSubForm_Load()Label1.Font="楷体"'字体改为楷体 Label1.FontSize=50'字体大小 Label1.ForeColor=vbRed'字体颜色改为红色 Label1.AutoSize=True'label随文字内容自动改变大小 EndSub ...

Dim save As Integer, com As Integer, m As Integer Static i As Integer Dim a As String, b As String i = i + 1 save = Len(RichTextBox2.Text)If save >= i Then m = i - 1 Else m = RichTextBox2.SelStart End If For j = m To save RichTextBox2...

可以参考下面的代码：Private Sub Form_Load()Label1.Font = "楷体" '字体改为楷体 Label1.FontSize = 50 '字体大小 Label1.ForeColor = vbRed '字体颜色改为红色 Label1.AutoSize = True 'label随文字内容自动改变大小 End Sub

Vb中Label或者Text只能设置一种文字颜色，无法使部分文字变色 但可以换一种思路，例如 在label中，如果想将部分文字设为其他颜色，可以在label控件上再加一个与这些文字宽度相等的新的label，平时隐藏，改变文字时，显示，并使它上面的文字显示为制定颜色，且调整位置至与原来的文字重叠，就可以达到使部分...

Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。FontBold 是否选定“粗体”。FontItalic 是否选定“斜体”。FontStrikethru 是否选定删除线。FontUnderline 是否选定下划线。FontName 选定的字体名称。FontSize 选定的字体大小。直接采用语句：Text.Font=CommonDialog.FontnNameTop ...

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