VB按钮如何设置颜色和按钮文字设置颜色
如果把按扭的COMMAND.STYLE=2你可以给按扭添加图片.即.COMMAND.PICTURE 中设置就可以了.但是颜色字体不能改.(至少我不会).不过你可以用LANBEL标签,跟LINE 直线做按扭,可以改变字体颜色，而且更漂亮,我做过的,你可以试一下的。
不能直接通过属性框修改按钮中文本的颜色
根本没有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 we're using
Private Const WM_DESTROY = &H2
Private Const WM_DRAWITEM = &H2B
Private Type DRAWITEMSTRUCT
CtlType As Long
CtlID As Long
itemID As Long
itemAction As Long
itemState As Long
hwndItem As Long
hDC As Long
rcItem As RECT
itemData As Long
End Type
Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
'Various GDI painting-related functions
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 Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, _
ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, _
ByVal nBkMode As Long) As Long
Private Const TRANSPARENT = 1
Private Const DT_CENTER = &H1
Public Enum TextVAligns
DT_VCENTER = &H4
DT_BOTTOM = &H8
End Enum
Private Const DT_SINGLELINE = &H20
Private Sub DrawButton(ByVal hWnd As Long, ByVal hDC As Long, _
rct As RECT, ByVal nState As Long)
Dim s As String
Dim va As TextVAligns
va = GetProp(hWnd, "VBTVAlign")
'Prepare DC for drawing
SetBkMode hDC, TRANSPARENT
SetTextColor hDC, GetProp(hWnd, "VBTForeColor")
'Prepare a text buffer
s = String$(255, 0)
'What should we print on the button?
GetWindowText hWnd, s, 255
'Trim off nulls
s = Left$(s, InStr(s, Chr$(0)) - 1)
If va = DT_BOTTOM Then
'Adjust specially for VB's CommandButton control
rct.Bottom = rct.Bottom - 4
End If
If (nState And ODS_SELECTED) = ODS_SELECTED Then
'Button is in down state - offset
'the text
rct.Left = rct.Left + 1
rct.Right = rct.Right + 1
rct.Bottom = rct.Bottom + 1
rct.Top = rct.Top + 1
End If
DrawText hDC, s, Len(s), rct, DT_CENTER Or DT_SINGLELINE _
Or va
End Sub
Public Function ExtButtonProc(ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim lOldProc As Long
Dim di As DRAWITEMSTRUCT
lOldProc = GetProp(hWnd, "ExtBtnProc")
ExtButtonProc = CallWindowProc(lOldProc, hWnd, wMsg, wParam, lParam)
If wMsg = WM_DRAWITEM Then
CopyMemory di, ByVal lParam, Len(di)
If di.CtlType = ODT_BUTTON Then
If GetProp(di.hwndItem, "VBTCustom") = 1 Then
DrawButton di.hwndItem, di.hDC, di.rcItem, _
di.itemState
End If
End If
ElseIf wMsg = WM_DESTROY Then
ExtButtonUnSubclass hWnd
End If
End Function
Public Sub ExtButtonSubclass(hWndForm As Long)
Dim l As Long
l = GetProp(hWndForm, "ExtBtnProc")
If l 0 Then
'Already subclassed
Exit Sub
End If
SetProp hWndForm, "ExtBtnProc", _
GetWindowLong(hWndForm, GWL_WNDPROC)
SetWindowLong hWndForm, GWL_WNDPROC, AddressOf ExtButtonProc
End Sub
Public Sub ExtButtonUnSubclass(hWndForm As Long)
Dim l As Long
l = GetProp(hWndForm, "ExtBtnProc")
If l = 0 Then
'Isn't subclassed
Exit Sub
End If
SetWindowLong hWndForm, GWL_WNDPROC, l
RemoveProp hWndForm, "ExtBtnProc"
End Sub
Public Sub SetButton(ByVal hWnd As Long, _
ByVal lForeColor As Long, _
Optional ByVal VAlign As TextVAligns = DT_VCENTER)
Dim hWndParent As Long
hWndParent = GetParent(hWnd)
If GetProp(hWndParent, "ExtBtnProc") = 0 Then
ExtButtonSubclass hWndParent
End If
SetProp hWnd, "VBTCustom", 1
SetProp hWnd, "VBTForeColor", lForeColor
SetProp hWnd, "VBTVAlign", VAlign
End Sub
Public Sub RemoveButton(ByVal hWnd As Long)
RemoveProp hWnd, "VBTCustom"
RemoveProp hWnd, "VBTForeColor"
RemoveProp hWnd, "VBTVAlign"
End Sub
然后回到FORM中：
添加CommandButton，不必更改它们的名称，将它们的Style设为Graphical，给第3个按钮设置一幅图片。
CommandButton也可以放置在一个容器如PictureBox或Frame中，模块会判断，如果需要的话将CommandButton的容器也子类化。
在Form中的代码：
Private Sub Form_Load()
'Initialize each button color.
SetButton Command1.hWnd, vbRed
SetButton Command2.hWnd, &H8000& '深绿色
'Assign this one a DT_BOTTOM alignment because
SetButton Command3.hWnd, vbBlue, DT_BOTTOM '含有图片，将文本放置在按钮底部
SetButton Command4.hWnd, &H8080& '暗棕黄色
End Sub
Private Sub Form_Unload(Cancel As Integer)
'手动解除按钮的子类化
'这并不是必须的
RemoveButton Command1.hWnd
RemoveButton Command2.hWnd
RemoveButton Command3.hWnd
RemoveButton Command4.hWnd
End Sub
For m = 0 To 9
SetButton CmdNum(m).hWnd, vbBlue
Next
For n = 1 To 4
SetButton CmdCal(n).hWnd, vbRed
Next
For l = 2 To 4
SetButton CmdOth(l).hWnd, vbRed
Next
首先command的style要设为1，否则无法改变
然后在backcolor设置颜色
按钮的字体颜色不能改
如果想改字体颜色，简单点可以用image做按钮。
如果一定要，请看：
在工程中添加以下模块(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 we're using
Private Const WM_DESTROY = &H2
Private Const WM_DRAWITEM = &H2B
Private Type DRAWITEMSTRUCT
CtlType As Long
CtlID As Long
itemID As Long
itemAction As Long
itemState As Long
hwndItem As Long
hDC As Long
rcItem As RECT
itemData As Long
End Type
Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
'Various GDI painting-related functions
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 Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, _
ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, _
ByVal nBkMode As Long) As Long
Private Const TRANSPARENT = 1
Private Const DT_CENTER = &H1
Public Enum TextVAligns
DT_VCENTER = &H4
DT_BOTTOM = &H8
End Enum
Private Const DT_SINGLELINE = &H20
Private Sub DrawButton(ByVal hWnd As Long, ByVal hDC As Long, _
rct As RECT, ByVal nState As Long)
Dim s As String
Dim va As TextVAligns
va = GetProp(hWnd, "VBTVAlign")
'Prepare DC for drawing
SetBkMode hDC, TRANSPARENT
SetTextColor hDC, GetProp(hWnd, "VBTForeColor")
'Prepare a text buffer
s = String$(255, 0)
'What should we print on the button?
GetWindowText hWnd, s, 255
'Trim off nulls
s = Left$(s, InStr(s, Chr$(0)) - 1)
If va = DT_BOTTOM Then
'Adjust specially for VB's CommandButton control
rct.Bottom = rct.Bottom - 4
End If
If (nState And ODS_SELECTED) = ODS_SELECTED Then
'Button is in down state - offset
'the text
rct.Left = rct.Left + 1
rct.Right = rct.Right + 1
rct.Bottom = rct.Bottom + 1
rct.Top = rct.Top + 1
End If
DrawText hDC, s, Len(s), rct, DT_CENTER Or DT_SINGLELINE _
Or va
End Sub
Public Function ExtButtonProc(ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim lOldProc As Long
Dim di As DRAWITEMSTRUCT
lOldProc = GetProp(hWnd, "ExtBtnProc")
ExtButtonProc = CallWindowProc(lOldProc, hWnd, wMsg, wParam, lParam)
If wMsg = WM_DRAWITEM Then
CopyMemory di, ByVal lParam, Len(di)
If di.CtlType = ODT_BUTTON Then
If GetProp(di.hwndItem, "VBTCustom") = 1 Then
DrawButton di.hwndItem, di.hDC, di.rcItem, _
di.itemState
End If
End If
ElseIf wMsg = WM_DESTROY Then
ExtButtonUnSubclass hWnd
End If
End Function
Public Sub ExtButtonSubclass(hWndForm As Long)
Dim l As Long
l = GetProp(hWndForm, "ExtBtnProc")
If l <> 0 Then
'Already subclassed
Exit Sub
End If
SetProp hWndForm, "ExtBtnProc", _
GetWindowLong(hWndForm, GWL_WNDPROC)
SetWindowLong hWndForm, GWL_WNDPROC, AddressOf ExtButtonProc
End Sub
Public Sub ExtButtonUnSubclass(hWndForm As Long)
Dim l As Long
l = GetProp(hWndForm, "ExtBtnProc")
If l = 0 Then
'Isn't subclassed
Exit Sub
End If
SetWindowLong hWndForm, GWL_WNDPROC, l
RemoveProp hWndForm, "ExtBtnProc"
End Sub
Public Sub SetButton(ByVal hWnd As Long, _
ByVal lForeColor As Long, _
Optional ByVal VAlign As TextVAligns = DT_VCENTER)
Dim hWndParent As Long
hWndParent = GetParent(hWnd)
If GetProp(hWndParent, "ExtBtnProc") = 0 Then
ExtButtonSubclass hWndParent
End If
SetProp hWnd, "VBTCustom", 1
SetProp hWnd, "VBTForeColor", lForeColor
SetProp hWnd, "VBTVAlign", VAlign
End Sub
Public Sub RemoveButton(ByVal hWnd As Long)
RemoveProp hWnd, "VBTCustom"
RemoveProp hWnd, "VBTForeColor"
RemoveProp hWnd, "VBTVAlign"
End Sub
'然后回到FORM中：
'添加CommandButton，不必更改它们的名称，将它们的Style设为Graphical，给第3个按钮设置一幅图片。
'CommandButton也可以放置在一个容器如PictureBox或Frame中，模块会判断，如果需要的话将CommandButton的容器也子类化。
'在Form中的代码：
Private Sub Form_Load()
'Initialize each button color.
SetButton Command1.hWnd, vbRed
SetButton Command2.hWnd, &H8000& '深绿色
'Assign this one a DT_BOTTOM alignment because
SetButton Command3.hWnd, vbBlue, DT_BOTTOM '含有图片，将文本放置在按钮底部
SetButton Command4.hWnd, &H8080& '暗棕黄色
End Sub
Private Sub Form_Unload(Cancel As Integer)
'手动解除按钮的子类化
'这并不是必须的
RemoveButton Command1.hWnd
RemoveButton Command2.hWnd
RemoveButton Command3.hWnd
RemoveButton Command4.hWnd
End Sub
For m = 0 To 9
SetButton CmdNum(m).hWnd, vbBlue
Next
For n = 1 To 4
SetButton CmdCal(n).hWnd, vbRed
Next
For l = 2 To 4
SetButton CmdOth(l).hWnd, vbRed
Next
右边该按钮的属性设置里都有。
C#窗体,有三个按钮(默认颜色:蓝色),如何让这三个按钮点击其中一个颜色变...
private void button1_Click(object sender, EventArgs e) { Button btn = (Button)sender; if (btn.BackColor == Color.Blue) { btn.BackColor = Color.Red; } else { btn.BackColor = Color.Blue; } }按钮的点击事件，把三个按钮的点击事件都用这个事件...
表格中,A1=B3,如何在A列B列第一至第三行填充颜色?
您可以使用以下步骤在Excel中为A列和B列的前三行填充颜色：选中A列和B列的第一至第三行。在"开始"选项卡中，选择"条件格式"。3 在条件格式下拉菜单中，选择"使用公式来确定要设置的格式"。4 在“格式值是”字段中输入公式“=ROW（）<=3”。5 点击"格式"按钮，选择您想要的填充颜色。6 点击"...
excel如何设置A列大于B列时为红色?
4、在规则设置区域，选择“格式只适用于：单元格值”并勾选“格式单元格值如果”选项。），然后输入公式：=$A1>$B1，这个公式表示如果A1的值大于B1的值。完成公式输入后，点击“格式”按钮来选择A列小于B列时的显示样式（5、在下拉的“格式”选项中，选择“填充”或“字体颜色”，选择红色，设置完成...
在word中,开始选项卡字体组中的b按钮用于什么文本
文档。在word中，开始选项卡字体组中的b按钮用于文档中的文本，作用是使选定对象变为粗体。文档中的文本可以设置多种格式:颜色、加粗、字号、倾斜、下划线、字体等格式，我们可以直接用工具栏上的快捷按钮，也可以选中文字，右键选择“字体”对话框进行设置。
excel如何按照表格A的数值设置表格B的颜色
条件格式 比如 B列 =A1="红"，然后格式把填充色设为红色，就可以了 你是A 1里是红这个字，B1的底色就为红色？
相机白平衡偏移
上面这张图片就是白平衡偏移的操作界面,右边(A)代表红色、左边(B)代表蓝色、上边(G)代表绿色、下边(M)代表洋红。红色加绿色是黄色、绿色加蓝色是青色、蓝色加洋红色是紫色、洋红色加红色是深红色。 所以四个颜色相交的四个点分别代表:黄色、青色、紫色、深红色。 二、怎么调整白平衡偏移? 在白平衡偏移这个网格中央...
VB颜色,按钮表面的&H8000000F&颜色代码对应其他颜色代码是多少啊?_百 ...
那后面8位数字是什么意思呢？首先要对数字两两分组，每一组表示一个十六进制数，取值0-255之间。打个比方：&HAABBCCDD 那么AA,BB,CC,DD就是四个十六进制数。其中AA表示颜色透明度，数值越高越透明，00就是完全不透明，即为本色，而FF就是完全透明，也就是看不见，无色！BB表示RGB值中的B，也就...
本田缤智仪表盘指示灯图解,缤智仪表盘颜色怎么换
进行颜色设置。通过选择\/重设按钮还能设置调节外部气温显示，里程A重设条件的切换，里程B重设条件的切换，发动机节能自动启停显，节能模式的背景照明。仪表盘指示灯图解，一般出现红色的指示灯是警告的意思，有故障存在；黄色是提示指示灯；绿色为正常。通过显示仪表，能清楚车辆当前的状态。汽车之家报价 ...
如何在Excel表格里按条件自动着色
工具\/材料：Microsoft Office Word2007版，Excel表格。1、首先打开一个有数据的Excel表格。2、然后选中要设置颜色的单元格。3、之后在菜单栏“条件格式”中选择“新建规则”选项。4、其次选择第二项“只为包含以下内容的单元格设置格式”。5、再者条件设置为大于等于90，点击“格式”按钮。6、其次将单元...
在word中标有b字母按钮的作用是使选择对象
文档。在word中，开始选项卡字体组中的b按钮用于文档中的文本，作用是使选定对象变为粗体。文档中的文本可以设置多种格式：颜色、加粗、字号、倾斜、下划线、字体等格式。在Word中，格式工具栏上标有“B”的字母按钮的作用是使选定对象（）。B.变为粗体IP地址指的是（）。A.接入因特网的计算机地址编号...
东方府洛雅： 如果把按扭的COMMAND.STYLE=2你可以给按扭添加图片.即.COMMAND.PICTURE 中设置就可以了.但是颜色字体不能改.(至少我不会).不过你可以用LANBEL标签,跟LINE 直线做按扭,可以改变字体颜色,而且更漂亮,我做过的,你可以试一下的.
墨脱县18834235510： vb中的commandbutton按钮上的字体颜色怎么改变 - ？
东方府洛雅： VB按钮控件字体不能改颜色.按钮颜色可设置按钮控件属性Style=1.然后可设置按钮的backcolor属性.或者设置按钮控件的Picture属性.
墨脱县18834235510： VB怎么做出颜色字体的按钮文字？
东方府洛雅： 在菜单“工程”->＂部件＂对话框里选上(如图显示的) 然后用里面的commandbutton控件就可以,设置它的forecolor就行了 自带的button不能简单的实际这个功能
墨脱县18834235510： VB中按钮的背景色怎么改 - ？
东方府洛雅： VB的按钮的背景色修改步骤: 1)设置按钮的Style属性为VbButtonGraphical. 2)在按钮的BackColor属性中选择需要的背景色或在程序代码中设置. Private Sub Form_Load()Command1.BackColor = vbGreen End SubStyle 属性 , 返回或设置一个值,该值用来指示控件的显示类型和行为.在运行时是只读的. BackColor 属性,BackColor-返回或设置对象的背景颜色. 效果:
墨脱县18834235510： vb按钮上的文字怎样改颜色?? - ？
东方府洛雅： 系统带个按钮控件不能改颜色,你可以找个第三方的,或者自己做个图片,图片上的图形就是个按钮,多做几张,按钮的不同状态,显示不同的图片.原来QQ软件界面,就是用图片堆起来的.
墨脱县18834235510： vb按钮上的文字怎样改颜色?? - ？
东方府洛雅： 按钮颜色COMMAND1.STYLE=1然后设置backcolor的颜色字体颜色不能改如果想改字体颜色最好用image做按钮上面放上label控件(现在我都是这么做)
墨脱县18834235510： 如何修改vb按钮的颜色 - ？
东方府洛雅： 在设计状态时将按钮Command1.Style = vbButtonGraphical '改为图像模式,这一点很关键.'否则颜色无法显示.Private Sub Command2_Click() Command1.BackColor = vbRed End Sub 希望对你有帮助
墨脱县18834235510： VB里如何改变命令按钮中文字的颜色? - ？
东方府洛雅： 不能直接通过属性框修改按钮中文本的颜色 根本没有foreColor属性 下边是一个参考方法 首先请把要改的按钮的Style设置为1 在工程中添加以下模块(Module):Module modExtButton.bas Option Explicit '=============================...
墨脱县18834235510： 如何设置vb中的控制按钮的颜色? - ？
东方府洛雅： 首先command的style要设为1,否则无法改变 然后在backcolor设置颜色
墨脱县18834235510： VB中怎么改变按钮的颜色? - ？
东方府洛雅： 调整按钮属性即可 Private Sub Command1_Click() Dim r As Byte Dim g As Byte Dim b As Byte r = Rnd * 1000 Mod 256 g = Rnd * 1000 Mod 256 b = Rnd * 1000 Mod 256 Me.BackColor = RGB(r, g, b) End Sub
