Question

如何实现VB的命令按钮command1单击后按钮上的文字变成红色，再单击变成默认的颜色？

我一定也不懂，你能给我做一个样子看看么
我这着急需要谢谢

Answer 1

Private Declare Function SetSysColors Lib "user32 " (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32 " (ByVal nIndex As Long) As Long

Dim OriginalColor As Long
Dim NewColor As Long

Private Const COLOR_BTNTEXT = 18

Private Sub Command1_Click()

If NewColor = vbRed Then NewColor = OriginalColor Else NewColor = vbRed
SetSysColors 1, COLOR_BTNTEXT, NewColor

End Sub

Private Sub Form_Load()

OriginalColor = GetSysColor(COLOR_BTNTEXT)

End Sub

Private Sub Form_Unload(Cancel As Integer)

NewColor = OriginalColor
SetSysColors 1, COLOR_BTNTEXT, NewColor

End Sub