cfnr.net
当前位置:首页 >> VBA中 ColorInDEx 与 BACkColor 如何相互转换? >>

VBA中 ColorInDEx 与 BACkColor 如何相互转换?

先用colorindex设置,然后用color属性获取,再转换成RGB,好简单.下面是个vbs示例,请放到excel里面运行:Sub ListColor() Dim r As Double, g As Double, b As Double Dim k As Long Range("A1") = "ColorIndex 值" Range("B1") =

&H00000000&是16进制,等于10进制的0,也就是黑色 颜色有常量定义,例如VBRed是红色,VBBlue是蓝色等等 也可以使用RGB函数,RGB(R,G,B)分别代表红绿蓝三原色的分量 不建议直接使用&H00000000&这样的16进制数,容易出错

vb中的颜色VB中 &H80000000&(16进制8位,8开头) 这种 方式表示的颜色代表系统默认的各项设置的颜色比如按钮,窗体其他的就是 RGB颜色值RGB 颜色值的范围就是 &H0-&HFFFFFF&HBBGGRR BB 是蓝色,GG是绿色,RR是红色 范围都是 0-255从颜色中分离 红绿蓝r = (color And &HFF&)g = (color And &HFF00&) \ 256&b = (color And &HFF0000) \ 65536将红绿蓝合为一种颜色 color = b * &H10000& + g * &H100 + r

楼上的方法很好,但有些不足,没说清楚前提下要在设计时将Style属性设置为VbButtonGraphical,并且与楼主的要求不一样,不能恢复原来Command的颜色,根据楼上的方法修改下就可以了:必须在设计时设置Command1.Style=

1、表单按钮-- 右键--设置控件格式中改变文字颜色(不能改变背景颜色)2、activex控件 右键--属性--forecolor(设置文字颜色)---backcolor(设置背景颜色)

可以手动设置控件的backcolor属性,也可以程序设定.颜色的表示也有多种方式.

backcolor:组建的背景颜色 forecolor:此组建的前景色,用于显示文本 不记得VB.Net中哪个控件有这个属性,backstyle.有些语言中 BackStyle = 0 是透明的当编辑框不处于焦点.

Private Sub Command1_Click()RandomizeCommand1.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)End Sub

Private Sub Command1_Click()Print "HELLO,VB"Form1.ForeColor = "&H0000FF" ' 窗体字体颜色通过ForeColor属性设置,这里设置为红色Form1.BackColor = "&H00FF00" ' 窗体背景颜色通过BackColor属性设置,这里设置为绿色End Sub

引用microsoft common dialog control 6.0,添加commondialog控件,用showcolor方法就可以了.CommonDialog1.ShowColormeColor=CommonDialog1.Color 'mecolor就是所选取的颜色值

网站首页 | 网站地图
All rights reserved Powered by www.cfnr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com