顏色數值

1、網頁當中的顏色代碼***6為，第1、2位表示紅色，第2、3位表示綠色、第4、5位表示藍，采取十六進制，由“00”到“FF”，分別對應十進制的“0”到“255”，數字的大小表示顏色的深淺，例如"#FF0000"表示紅色、"#FFFF00"表示黃色等等。

2、VB中的RGB函數表示方法與網頁中的顏色代碼表示相似，都是使用R、G、B三種基色的組合來表示各種顏色，但RGB函數采用的是10進制，如RGB（255）表示紅色、RGB(255,255,0)表示綠色

3、因此顏色互相轉換其實就是16進制和10進制的互相轉換。

4、以下壹段16進制和10進制的轉換代碼

Dim DecimalInt As Double

Dim HexString As String

HexString = "FF"

Dim i As Integer

For i = 1 To Len(HexString)

TmpHexStr = Mid(HexString, i, 1)

If IsNumeric(TmpHexStr) Then

f1 = True

Else

f1 = False

End If

If (Asc(TmpHexStr) >= Asc("A") And Asc(TmpHexStr) <= Asc("F")) Then

f2 = True

Else

f2 = False

End If

If f1 Or f2 Then

If f1 Then '如果是數字

DecimalInt = DecimalInt + CInt(TmpHexStr) * 16 ^ (Len(HexString) - i)

Else '如果是字符

DecimalInt = DecimalInt + (Asc(TmpHexStr) - 55) * 16 ^ (Len(HexString) - i)

End If

Else

MsgBox "妳輸入的錯誤啦！！！"

Exit Sub

End If

Next

MsgBox DecimalInt

如果不明白還可以在問題補充當中提出~``大家相互學習

上一篇:我專業是電氣工程及其自動化將要去船廠工作，請問哪些專業知識用的比較多

下一篇:PLC高手，能告訴我每個觸點是什麽意思嗎？我分不清他們。