十六進制顏色轉成RGB

如何將十六進制顏色轉成RGB?這問題來自討論板，站長寫在這裡和大家分享：

Private Sub Hex2RGB(HexColor As String, Red As Integer, Green As Integer, Blue As Integer)
　If Len(HexColor) <> 6 Then Exit Sub
　Red = HexToTen(Left(HexColor, 2))
　Green = HexToTen(Mid(HexColor, 3, 2))
　Blue = HexToTen(Right(HexColor, 2))
End Sub

Private Function HexToTen(HexStr As String) As Double
　HexToTen = Val("&H" & HexStr)
End Function

'以下是用法例子
Private Sub Command1_Click()
Dim r As Integer, g As Integer, b As Integer
　Hex2RGB "ffffff", r, g, b 'ffffff是白色, rgb值是255,255,255
　Print r; g; b
End Sub

上一頁