VB颜色怎么计算

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:09:39
VB里面用的颜色怎么计算成RGB颜色啊
举个例子
VB里面用的颜色： &H009EA273&
如果计算成RGB是多少
怎么计算呢？

根据你的数值我做了一个进制转换的小程序，可以将十六进制转换成RGB颜色值
但是你的格式必须如下“&H009EA273”，即去掉右边那个“&”号。然后在Text1
内输入十六进制的值，就会在窗体上打印出相应的RGB值了，如你题目中的转换后为RGB（115，162，158）
代码如下：
Option Explicit
Private Sub Command1_Click()
Dim ColorValue As Long
ColorValue = CLng(Text1)
ChangeColorvalue ColorValue
End Sub
Private Sub ChangeColorvalue(ByVal Var As Long)
Dim Red As Long
Dim Green As Long
Dim Blue As Long
Red = Var Mod 256
Green = ((Var And &HFF00) / 256) Mod 256
Blue = (Var And &HFF0000) / 65536
Print "RGB("; Red; Green; Blue; ")"
End Sub