• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 2641|回复: 3

【VB源码】RGB、HSB、HSL互相转换 [复制链接]

兄弟工程师01
头像

  • 版主
  • 211464
  • 21164
  • 13
  • 258 朵
  • 47817 个
  • 60 个
  • 263800
  • 2008-12-23
按键精灵开发者4级兔年勋章论坛MM小红帽学有所成按键元老管理人员
1#
t T
发表于 2010-02-02 10:50 | |只看楼主
最近在做一个取色工具，要实现 RGB、HSB、HSL互相转换，可能你正在寻找这方面的东东，希望有所帮助。
源码用VB写的，参考：http://www.easyrgb.com/math.html，如果你想要更多其他转换算法，请参考该网站。源码如下所示：

  2. Public Type HSB
  3. Hue As Integer
  4. Saturation As Integer
  5. Brightness As Integer
  6. End Type
  7. Public Type HSL
  8. Hue As Integer
  9. Saturation As Integer
  10. Luminance As Integer
  11. End Type
  12. Public Type RGB
  13. Red As Integer
  14. Green As Integer
  15. Bue As Integer
  16. End Type
  17. ' 转换RGB到HSB
  18. Public Function RGB2HSB(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As HSB
  19. Dim nH As Single, nS As Single, nV As Single
  20. Dim nR As Single, nG As Single, nB As Single
  21. Dim ndelR As Single, ndelG As Single, ndelB As Single
  22. Dim nmax As Single, nmin As Single, ndelMax As Single

  24. nR = R / 255
  25. nG = G / 255
  26. nB = B / 255
  27. nmax = Max(Max(nR, nG), nB)
  28. nmin = Min(Min(nR, nG), nB)
  29. ndelMax = nmax - nmin
  30. nV = nmax
  31. If (ndelMax = 0) Then
  32. nH = 0
  33. nS = 0

  35. Else
  36. nS = ndelMax / nmax
  37. ndelR = (((nmax - nR) / 6) + (ndelMax / 2)) / ndelMax
  38. ndelG = (((nmax - nG) / 6) + (ndelMax / 2)) / ndelMax
  39. ndelB = (((nmax - nB) / 6) + (ndelMax / 2)) / ndelMax
  40. If (nR = nmax) Then
  41. nH = ndelB - ndelG
  42. ElseIf (nG = nmax) Then
  43. nH = (1 / 3) + ndelR - ndelB
  44. ElseIf (nB = nmax) Then
  45. nH = (2 / 3) + ndelG - ndelR
  46. End If
  47. If (nH < 0) Then nH = nH + 1
  48. If (nH > 1) Then nH = nH - 1

  50. End If
  51. RGB2HSB.Hue = nH * 360
  52. RGB2HSB.Saturation = nS * 100
  53. RGB2HSB.Brightness = nV * 100

  55. End Function
  56. ' 转换HSB到RGB
  57. Public Function HSB2RGB(ByVal H As Integer, ByVal S As Integer, ByVal B As Integer) As RGB
  58. Dim nH As Single, nS As Single, nV As Single
  59. Dim nR As Single, nG As Single, nB As Single
  60. Dim hi As Single, f As Single, p As Single, q As Single, t As Single

  62. nH = H / 360
  63. nS = S / 100
  64. nV = B / 100
  65. If (S = 0) Then
  66. nR = nV * 255
  67. nG = nV * 255
  68. nB = nV * 255
  69. Else
  70. hi = nH * 6
  71. If (hi = 6) Then hi = 0
  72. f = Int(hi)
  73. p = nV * (1 - nS)
  74. q = nV * (1 - nS * (hi - f))
  75. t = nV * (1 - nS * (1 - (hi - f)))
  76. If (f = 0) Then
  77. nR = nV
  78. nG = t
  79. nB = p
  80. ElseIf (f = 1) Then
  81. nR = q
  82. nG = nV
  83. nB = p
  84. ElseIf (f = 2) Then
  85. nR = p
  86. nG = nV
  87. nB = t
  88. ElseIf (f = 3) Then
  89. nR = p
  90. nG = q
  91. nB = nV
  92. ElseIf (f = 4) Then
  93. nR = t
  94. nG = p
  95. nB = nV
  96. Else
  97. nR = nV
  98. nG = p
  99. nB = q
  100. End If
  101. End If
  102. HSB2RGB.Red = nR * 255
  103. HSB2RGB.Green = nG * 255
  104. HSB2RGB.Bue = nB * 255

  106. End Function
复制代码
' 转换RGB到HSL

  2. Public Function RGB2HSL(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As HSL
  3. Dim nH As Single, nS As Single, nL As Single
  4. Dim nR As Single, nG As Single, nB As Single
  5. Dim ndelR As Single, ndelG As Single, ndelB As Single
  6. Dim nmax As Single, nmin As Single, ndelMax As Single

  8. nR = (R / 255)
  9. nG = (G / 255)
  10. nB = (B / 255)
  11. nmax = Max(Max(nR, nG), nB)
  12. nmin = Min(Min(nR, nG), nB)
  13. ndelMax = nmax - nmin
  14. nL = (nmax + nmin) / 2

  16. If (ndelMax = 0) Then
  17. nH = 0
  18. nS = 0
  19. RGB2HSL.Hue = 160'这句是我添加修改的
  20. Else
  21. If (nL < 0.5) Then
  22. nS = ndelMax / (nmax + nmin)
  23. Else
  24. nS = ndelMax / (2 - nmax - nmin)
  25. End If
  26. ndelR = (((nmax - nR) / 6) + (ndelMax / 2)) / ndelMax
  27. ndelG = (((nmax - nG) / 6) + (ndelMax / 2)) / ndelMax
  28. ndelB = (((nmax - nB) / 6) + (ndelMax / 2)) / ndelMax
  29. If (nR = nmax) Then
  30. nH = ndelB - ndelG
  31. ElseIf (nG = nmax) Then
  32. nH = (1 / 3) + ndelR - ndelB
  33. ElseIf (nB = nmax) Then
  34. nH = (2 / 3) + ndelG - ndelR
  35. End If
  36. If (nH < 0) Then nH = nH + 1
  37. If (nH > 1) Then nH = nH - 1
  38. RGB2HSL.Hue = nH * 240 '是我添加修改的
  39. End If

  41. 'RGB2HSL.Hue = nH * 240 '这句可以废除，不符合微软算法
  42. RGB2HSL.Saturation = nS * 240
  43. RGB2HSL.Luminance = nL * 240

  45. End Function
  46. ' 转换HSL到RGB
  47. Public Function HSL2RGB(ByVal H As Integer, ByVal S As Integer, ByVal L As Integer) As RGB
  48. Dim nH As Single, nS As Single, nL As Single
  49. Dim nR As Single, nG As Single, nB As Single
  50. Dim p1 As Single, p2 As Single

  52. nH = H / 240
  53. nS = S / 240
  54. nL = L / 240
  55. If (nS = 0) Then
  56. nR = nL * 255
  57. nG = nL * 255
  58. nB = nL * 255
  59. Else
  60. If (nL < 0.5) Then
  61. p2 = Round(nL * (1 + nS), 2)
  62. Else
  63. p2 = Round((nL + nS) - (nS * nL), 2)
  64. End If
  65. p1 = Round(2 * nL - p2, 2)
  66. nR = 255 * Hue2RGB(p1, p2, nH + (1 / 3))
  67. nG = 255 * Hue2RGB(p1, p2, nH)
  68. nB = 255 * Hue2RGB(p1, p2, nH - (1 / 3))
  69. End If
  70. HSL2RGB.Red = nR
  71. HSL2RGB.Green = nG
  72. HSL2RGB.Bue = nB

  74. End Function
复制代码

  2. Private Function Hue2RGB(ByVal p1 As Single, ByVal p2 As Single, ByVal Hue As Single) As Single

  4. If (Hue < 0) Then Hue = Hue + 1
  5. If (Hue > 1) Then Hue = Hue - 1
  6. If ((6 * Hue) < 1) Then
  7. Hue2RGB = (p1 + (p2 - p1) * 6 * Hue)
  8. ElseIf ((2 * Hue) < 1) Then
  9. Hue2RGB = p2
  10. ElseIf ((3 * Hue) < 2) Then
  11. Hue2RGB = p1 + (p2 - p1) * ((2 / 3) - Hue) * 6
  12. Else
  13. Hue2RGB = p1
  14. End If

  16. End Function
复制代码
点赞
【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！

【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？

.
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器