VB中如何在一句话的字体上加上各种颜色

来源：百度知道 编辑：UC知道 时间：2024/06/27 08:05:57
Label1.Caption = 你在信息栏中输入了1---15

例子如上，想把这一句话中的1和15这2个数字变种颜色来加亮显示。
我需要的是真正的代码来实现，不想用多个lebel来实现。

你的要求可通过如下代码实现:
Option Explicit
Dim x As Integer
Dim y As Integer
Dim fnt As Integer
Dim txt0 As Variant
Dim dd As Variant
Dim colvb As Variant
Dim i As Integer
Dim txt As String
Dim l As Integer
Public Function xp(colvb As Variant, x As Variant, y As Variant, txt0 As Variant)
Picture1.ForeColor = colvb
Picture1.CurrentX = x
Picture1.CurrentY = y
Picture1.Print txt0
End Function

Private Sub Command1_Click()
txt = "1abxxjkilklouyo15"
l = Len(txt)
x = 100: y = 100
colvb = vbRed
txt0 = Left(txt, 1)
dd = xp(colvb, x, y, txt0)
x = 200
colvb = vbBlue
txt0 = Mid(txt, 2, l - 3)
dd = xp(colvb, x, y, txt0)
x = 100 + (l - 3) * 100
colvb = vbRed
txt0 = Right(txt, 2)
dd = xp(colvb, x, y, txt0)
End Sub

把它做成多个Lebel。每个放一个字，每个单独设置颜色