Sub s()
'ç¨é¢è²å¸¸æ°:
CommandButton1.ForeColor = vbRed '红
CommandButton1.ForeColor = vbBlue 'è
CommandButton1.ForeColor = vbWhite 'ç½
'ç¨QBColorå½æ°:
CommandButton1.ForeColor = QBColor(n) 'nçå¼æ¯0å°15
'ç¨RGBå½æ°:
CommandButton1.ForeColor = RGB(r, g, b) 'rãgãbçå¼åå«æ¯0å°255
'ç´æ¥ç¨é¢è²å¼:
CommandButton1.ForeColor = &HFF& '红
CommandButton1.ForeColor = &HFF00& '绿
CommandButton1.ForeColor = &HFF0000 'è
End Sub
温馨提示:答案为网友推荐,仅供参考