用VB改变按钮的颜色.docVIP

用VB改变按钮的颜色 用VB改变按钮的颜色 設置command1的style=1 然後設置它的backcolor 為你想要的顏色 不能直接通过属性框修改按钮中文本的颜色 根本没有foreColor属性 下边是一个参考方法 首先请把要改的按钮的Style设置为1 在工程中添加以下模块(Module): Module modExtButton.bas Option Explicit ================================================================== modExtButton.bas 本模块可让你改变命令按钮的文本颜色。 使用方法: - 在设计时将文本的Style设为Graphical. - 随意设定背景色和图象属性. - 在Form_Load中调用 SetButton : SetButton Command1.hWnd, vbBlue (你可以任意次的调用该过程甚至不必先调用 RemoveButton.) - 在Form_Unload中调用 RemoveButton : 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, _ ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Declare Sub CopyMemory Lib kernel32 Alias RtlMoveMemory _ (Destination As Any, Source As Any, ByVal Length As Long) Owner draw constants Private Const ODT_BUTTON = 4 Private Const ODS_SELECTED = H1 Window messages were using Private Const WM_DESTROY = H2 Private Const WM_DRAWITEM = H2B Private Type DR