请求协助实现CommandButton控件Y与M文本颜色独立控制

默认的CommandButton控件（Forms/ActiveX）的ForeColor属性会应用到整个Caption文本，没办法直接给单个字符或不同文本设置独立颜色。这里有两种实用的解决方案，根据你的需求选择：

方法1：用Label控件模拟按钮（简单易实现） #

Label控件支持单独设置ForeColor，我们可以把Label样式调整得像CommandButton，然后切换Caption时同时修改颜色：

步骤： #

1. 在窗体上添加一个Label控件（命名为Label1）
2. 设置Label的样式让它看起来像按钮：

   ' 可以在窗体初始化时设置，或者手动在属性面板调整
   Label1.BorderStyle = fmBorderStyleSingle
   Label1.BackStyle = fmBackStyleOpaque
   Label1.BackColor = &H8000000F ' 匹配默认按钮背景色
   Label1.Alignment = fmAlignmentCenter ' 文本居中
   

3. 修改你的切换逻辑代码，同时设置颜色：

   If checker = False Then
       Label1.Caption = "Y"
       Label1.ForeColor = vbGreen ' 给Y设置你想要的颜色，比如绿色
       checker = True
   Else
       Label1.Caption = "m"
       Label1.ForeColor = vbRed ' 给m设置你想要的颜色，比如红色
       checker = False
   End If
   Label1.Enabled = False
   

方法2：用API自绘CommandButton（保留原生按钮样式） #

如果你必须使用CommandButton控件，可以通过Windows API手动绘制文本，实现不同Caption对应不同颜色：

步骤： #

1. 在窗体的代码模块顶部声明API函数（注意区分32位/64位VBA）：

   ' 64位VBA版本（Office 2010及以后）
   Private Declare PtrSafe Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As LongPtr, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
   Private Type RECT
       Left As Long
       Top As Long
       Right As Long
       Bottom As Long
   End Type
   Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
   Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long
   Private Declare PtrSafe Function SetTextColor Lib "gdi32" (ByVal hdc As LongPtr, ByVal crColor As Long) As Long
   
   ' 32位VBA版本（旧版Office）
   ' Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
   ' Private Type RECT
   '     Left As Long
   '     Top As Long
   '     Right As Long
   '     Bottom As Long
   ' End Type
   ' Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
   ' Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
   ' Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
   

2. 添加CommandButton的Paint事件处理代码，根据当前Caption绘制对应颜色的文本：

   Private Sub CommandButton1_Paint()
       Dim textRect As RECT
       Dim hdc As LongPtr
       
       ' 获取控件的设备上下文
       hdc = GetDC(CommandButton1.hwnd)
       
       ' 设置文本绘制的区域（覆盖整个按钮）
       textRect.Left = 0
       textRect.Top = 0
       textRect.Right = CommandButton1.Width
       textRect.Bottom = CommandButton1.Height
       
       ' 根据当前Caption设置文本颜色
       Select Case CommandButton1.Caption
           Case "Y"
               SetTextColor hdc, vbGreen ' Y的颜色
           Case "m"
               SetTextColor hdc, vbRed ' m的颜色
       End Select
       
       ' 居中绘制文本（&H20是垂直居中，&H1是水平居中）
       DrawText hdc, CommandButton1.Caption, Len(CommandButton1.Caption), textRect, &H20 Or &H1
       
       ' 释放设备上下文
       ReleaseDC CommandButton1.hwnd, hdc
   End Sub
   

3. 修改你的切换逻辑，切换Caption后触发刷新：

   If checker = False Then
       CommandButton1.Caption = "Y"
       checker = True
   Else
       CommandButton1.Caption = "m"
       checker = False
   End If
   CommandButton1.Enabled = False
   CommandButton1.Refresh ' 触发Paint事件，更新文本颜色
   

内容的提问来源于stack exchange，提问作者Chandrakanth