vb16進制顏色轉rgb代碼

A. VB中HSL怎麼轉換為RGB

網上找去啊。N多現成的演算法，N多現成的代碼啊。這個東西。
網路裡面就有，怎麼不看呢。
HSL→RGB的演算法描述。
步驟1：If S=0,表示灰色，定義R,G和B都為L.
步驟2：否則，測試L:
If L<0.5,temp2=L*(1.0+S)
If L>=0.5,temp2=L+S-L*S
步驟3：temp1=2.0*-temp2
步驟4：把H轉換到0～1。
步驟5：對於R,G,B，計算另外的臨時值temp3。方法如下：
for R, temp3=H+1.0/3.0
for G, temp3=H
for B, temp3=H-1.0/3.0
if temp3<0, temp3=temp3+1.0
if temp3>1, temp3=temp3-1.0
步驟6：對於R,G,B做如下測試：
If 6.0*temp3<1,color=temp1+(temp2-temp1)*6.0*temp3
Else if 2.0*temp3<1,color=temp2
Else if 3.0*temp3<2,
color=temp1+(temp2-temp1)*((2.0/3.0)-temp3)*6.0
Else color=temp1

B. VB 顏色值十六進制與RGB之間怎樣轉換

反回RGB數組的一個函數

Public Function ColorRGB(Color As Long) As Byte()
Const ByN As Integer = 256
Const ByN2 As Long = 65536
Dim A(2) As Byte
A(0) = (Color Mod ByN)
A(1) = ((Color Mod ByN2) \ ByN)
A(2) = (Color \ ByN2)
ColorRGB = A
End Function

例如:

Print ColorRGB(&H1111FF)(0) '紅色RGB
Print ColorRGB(&H11FF11)(1) '綠色RGB
Print ColorRGB(&HFF1111)(2) '藍色RGB

都等於255

變回版十六進制更權簡單
HEX(RGB(1,1,1))

C. VB如何使用十六進制的顏色

text1.forecolor=&HD1EEEE&

D. 求VB中顏色代碼

使用顏色常數：Form1背景色＝虛擬現實。

背景色＝vbBlue＇藍色。

背景色＝vbWhite＇白色。

使用QBColor函數：form1。背景色＝QBColor（n）個值，從0到15。

使用RGB函數：form1。背景色＝RGB（r，g，b）＇r，b，值分別為0到255。

(4)vb16進制顏色轉rgb代碼擴展閱讀：

VbGreen & HFF00 green

VbYellow & HFFFF黃色

VbBlue & HFF0000藍色

vb品紅色& HFF00FF品紅色

VbCyan & HFFFF00青色

VbWhite & HFFFFFF white

VbGrayText &H80000011灰色(無效)文本

VbButtonText &H80000012按下按鈕上文字的顏色

VbInactiveCaptionText &H80000013非活動標題中的文本顏色

Vb3DHighlight &H80000014高亮顯示3d顯示元素的顏色

Vb3DDKShadow &H80000015三維顯示元素的最暗陰影顏色

在3d中，Vb3DLight和h80000016低於vb3Dhighlight

Vb3DFace &H8000000F文本表面顏色

Vb3DShadow &H80000010文本陰影顏色

VbInfoText &H80000017提示窗口文字顏色

VbInfoBackground &H80000018表示窗口中背景的顏色

E. vb裡面,10進制轉顏色代碼

Option Explicit

Private Sub Command1_Click()
Dim ret As String

ret = VBColorToStr(&HB0A)
MsgBox ret
End Sub

Private Function VBColorToStr(ByVal dwColor As Long) As String
Dim lpBlue As String
Dim lpGreen As String
Dim lpRed As String

'通過And &HFF獲得低位8個bit
lpRed = Format$(CStr(Hex(dwColor And &HFF)), "@@")

'乘以^(-8)再取整，表示將整個數右移8個bit，然後通過And &HFF獲得低位8個bit
lpGreen = Format$(CStr(Hex(Int(dwColor * 2 ^ (-8)) And &HFF)), "@@")

'乘以2^(-16)再取整，表示將整個數右移16個bit，然後通過And &HFF獲得低位8個bit
lpBlue = Format$(CStr(Hex(Int(dwColor * 2 ^ (-16)) And &HFF)), "@@")

'函數返回值前將字元串按照RGB格式排列，並將" "符號替換成"0"
VBColorToStr = Replace(lpRed & lpGreen & lpBlue, " ", "0")
End Function

用數字運算速度大大快於字元串運算，所以應盡量採用取數字的二進制演算法得到結果，最後再將結果轉換成字元串輸出。

F. vb中顏色設置的代碼

VB使用RGB 函數和QBColor 函數等指定顏色。

RGB 函數，返回一個 Long整數，用來表示一個 RGB 顏色值專。

使用 RGB 函數，可以用屬 RGB 函數來指定任何顏色。

為了用 RGB 函數指定顏色

1.要對三種主要顏色（紅、綠、藍）中的每種顏色，賦給從 0 到 255 中的數值，0 表示亮度最低，而 255 表示亮度最高。
2.使用紅-綠-藍的排列方式，將三個數值輸入給 RGB 函數。

3.將結果賦給顏色屬性或顏色參數。

G. VB6 如何進行顏色轉換

首先糾正一下，&HFFFFFFFF不是白色，正確的應該是&HFFFFFF，共三個位元組，每個位元組分別是紅綠藍三原色的分量值。如果用&HFFFFFFFF（這是四個位元組），VB6會報錯的。

其次，vbWhite是VB的內部常量，它的值就是&HFFFFFF（也就是十進制的16777215），所以不存在轉換的問題。建議盡量使用類似vbWhite、vbRed、vbBlue這樣的常量來表示顏色，因為它們很直觀，即使不懂編程（但懂點英語）的人也知道它們就是白色、紅色、藍色的意思。

你可以自己在VB6的立即窗口驗證一下我上面所述是否正確：

PrintvbWhite'顯示結果為16777215

PrintHex(vbWhite)'顯示結果為FFFFFF

補充說一下，顏色的多種表示方式，其實它們最終的值都是相等的，並不需要所謂的轉換，比如以下是純藍色的多種表示方式：

vbBlue

RGB(0,0,255)

&HFF0000

16711680

以上這些表示方式，其實它們的值都是一樣的，都是等於16711680，你甚至可以拿它們直接來進行數學運算呢！

vbBlue+RGB(0,0,255)+&HFF0000+16711680=66846720

66846720/4=16711680

如果你是想讓一個顏色值分解為紅綠藍三原色分量，可以這樣：

color1=vbWhite'這是白色
red=color1Mod&H100'這是紅色分量
green=color1&H100Mod&H100'這是綠色分量
blue=color1&H10000'這是藍色分量

H. 想用VB做一個顏色值RGB轉換器，要有一個合成顏色預覽的窗口，求代碼

打開《VB程序設計教程》第214頁，有詳細說明

I. VB_如何將顏色轉換為RGB

是6位的十六進制的數吧？

前2位換算成十進制 是R
中間2位換算成十進制 是G
最後2位換算成十進制 是B

J. 怎樣用VB的RGB調各種顏色

Private Sub Command1_Click()
Dim x As String, y As String, z As String
x = Hex(HScroll1.Value)
y = Hex(HScroll2.Value)
z = Hex(HScroll3.Value)
Text1.Text = x & y & z
Form1.BackColor = CLng("&h" & x & y & z)
End Sub
Private Sub HScroll1_Change()
Command1_Click
End Sub
Private Sub HScroll2_Change()
Command1_Click
End Sub
Private Sub HScroll3_Change()
Command1_Click
End Sub