RGB和HSL相互转换源码VisualFreeBasic版

GDI标准RGB颜色值  ：   这是WIn系统编程的 GDI 颜色值， 还有 GDI+值需要自己改造

HSL 值 ：自定义的值，主要是为了方便使用，把4个数字合成1个 LONG 数字

同时支持透明值 A ，当然 GDI 一般不用 A值，GDI+ 则必须的。

位运算简单说明：

数值内存结构，可以打开 WIn 里的计算器，切换程序员模式。数字的2进制是 从右到左，从0到31保存的。
Shr 是向右移动几位  ，Shl 是向右移动几位  ，And 是获取几位数值，=255 是 0-7 位数

Function RGBtoHSL_Gdi(GDI_RGB As Long) As Long 'GDI标准RGB颜色转换为 HSL 值
   'GDI标准RGB颜色 32位数 31--0  a是透明度=31--24  B=23--16 G=15--8 R=7--0
   'aHSL 值        32位数 31--0  a是透明度=31--24  H=23--14 S=13--7 L=6--0
   Dim r As Single = (GDI_RGB And 255)        / 255
   Dim g As Single = (GDI_RGB Shr 8 And 255)  / 255
   Dim b As Single =