用vb改变按钮的颜色（Change the color of the button with VB）.doc

用vb改变按钮的颜色（Change the color of the button with VB） Change the color of the button with VB Set the style=1 for command1 Then set its backcolor to the color you want You cannot modify the color of the text in the button directly through the property box There is no foreColor attribute at all Here is a reference method First, set the Style of the button you want to change to 1 Add the following modules (Module) to your project: Module modExtButton.bas Option Explicit ================================================================== modExtButton.bas This module allows you to change the text color of the command button. Usage method: - set the Style of the text to Graphical. at design time - randomly sets the background color and image properties - call SetButton in Form_Load: SetButton, Command1.hWnd, vbBlue (you can call the procedure at any time, not even RemoveButton. first) - call RemoveButton in Form_Unload: RemoveButton Command1.hWnd ================================================================== Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetParent Lib user32 _ (ByVal, hWnd, As, Long) As Long Private Declare Function GetWindowLong Lib user32 Alias _ GetWindowLongA (ByVal hWnd As Long, _ ByVal, nIndex, As, Long) As Long Private Declare Function SetWindowLong Lib user32 Alias _ SetWindowLongA (ByVal hWnd As Long ByVal nIndex As Long, _ ByVal, dwNewLong, As, Long) As Long Private, Const, GWL_WNDPROC = (-4) Private Declare Function GetProp Lib user32 Alias GetPropA _ (ByVal, hWnd, As, Long, ByVal, lpString, As, String) As Long Private Declare Function SetProp Lib user32 Alias SetPropA _ ByVal (hWnd As Long ByVal lpString, As String, _ ByVal, hData, As, Long) As Long Private Declare Function RemoveProp Lib user32 Alias _ RemovePropA (ByVal hWnd As Long, _ ByVal, lpString, As, String) As Long Private Declare Function CallWindowProc Lib user32 Alias _ CallWindowProcA (ByVal lpPrevWndFunc As Long, _