关于vb中使用颜色的问题

xumiao001982 2003-05-15 10:05:53

请问有那位兄弟知道在vb中的颜色值不用RGB来表示，直接用十六进制表示时
颜色的变化规律？

...全文

88 12 打赏收藏转发到动态举报

写回复

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

liu584 2003-05-16

打赏
举报

回复

to: ： zqfleaf(动力港湾)
红色好象是&H0000FF

刘洪峰AIoT 2003-05-16

打赏
举报

回复

Private Sub Command1_Click()
Dim lngc As Long
lngc = RGB(201, 202, 203)
Text1 = "B= " + Format((lngc And &HFF0000) / 2 ^ 16, "0") + " G=" + Format(((lngc - (lngc And &HFF0000)) And &HFF00) / 2 ^ 8, "0") + " R=" + Format((lngc And &HFF), "0")
End Sub

xayzmb 2003-05-16

打赏
举报

回复

十六进制嘛
转一下就行了

xayzmb 2003-05-16

打赏
举报

回复

有个一很简单的办法
windows中有一个画图程序
在那里面可以找到一个自定义颜色的对话框
选出你想要的颜色
rgb的值就出来了
所见即所得
^_^

TimLee✿ 2003-05-16

打赏
举报

回复

http://soft.winzheng.com/SoftView_9615.htm

搜狐的那个不能下，试试这个~~~~网址

TimLee✿ 2003-05-16

打赏
举报

回复

找专门的工具或者用计算器算出RGB对应的16进制数

推荐工具：我的取色器
本软件是一个专门用于从屏幕任意处取色的多功能绿色软件，软件本身同时还具备调色功能，并且分别用RGB格式和十六进制两种形式表示，非常适合广大颜色爱好者、网页制作者使用。

http://act1.it.sohu.com/newdownload/ssoftdetail.php?softnum=11702

dongyoushen 2003-05-15

打赏
举报

回复

我的个人理解(前面的每两个FF代表三原色之中的一个，前两个是FF是蓝色，中间两个FF是绿色，最后两个是红色跟据三个色的大小组合成其它色)

slothboy 2003-05-15

打赏
举报

回复

同意chanet

chanet 2003-05-15

打赏
举报

回复

十六进制就是前面用 &

除了RGB之外，还有VBCOLOR的常量呀（不过比较少选择）

xumiao001982 2003-05-15

打赏
举报

回复

我明白了，就是相应的把RGB的值转化成十六进制的就可以了吧
也就是RGB(255,255,255)=&hFFFFFF
多谢了

zhushizu 2003-05-15

打赏
举报

回复

规律？想知道！

zqfleaf 2003-05-15

打赏
举报

回复

红色
label1.forecolor=rgb(255,0,0)
十六进制
label1.forecolor=&HFF0000

读者问题：章老师：您好！看了您的「Visual Basic 2005程序开发与界面设计秘诀」收获很大，感谢先！但是有关 DrawString 绘制字符串的方法好像没有提到，在此特向章老师请教。在这个方法中的第三个参数是笔刷的颜色，我想在开发的时候根据使用者自己选择的颜色来绘制（颜色是存在数据库中的字符串，例如： “red”）如何根据用户自己选择的颜色来绘制，烦请章老师告知！谢谢...

在赋值语句中怎样强制转换对象类型急急急，在线等 Imports ESRI.ArcGIS.ADF.ArcGISServer Imports System.Drawing Dim point As New ESRI.ArcGIS.ADF.Web.Geometry.Point point.X = x point.Y = y Dim symbol As New ESRI.ArcGIS.ADF.Web.

经验：本人曾经做VB程序是遇到这样一个问题,就是要把表格MSHFlexGrid的底色和某网页上的颜色一样(因为觉得颜色好看),于是看了网页的源代码把他的颜色原样复制过来,运行结果并不如原来看到的一样,于是在群里问了好多人都没有一个好的方法,最后经过自己的查资料,对比,得出结论: 比如在网页上看到的颜色为: EF EB FF 那么在VB中颜色就该为: F

做过VB，对添加某一行中的某一列的背景颜色，和文字颜色，来表明某种意义的时候，会有添加不上去的情况 abc = Nothing abc = New ListViewItem.ListViewSubItem abc.Text = "欠勤" abc.BackCo...

7,787

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章