最近在用一個RGB與HLS互轉的程式
在網路上搜索到一個API的使用
但是卻發生了一個問題
在VB 2005上不能跑(會出現Exception)
但是在VB6上面卻可以跑
令我十分的納悶
希望各位大大可以幫我測試一下或是解答一下
程式碼如下:
Public Declare Sub ColorRGBToHLS Lib "shlwapi" (ByVal clrRGB As Int32, ByVal
pwHue As Int32, ByVal pwLuminance As Int32, ByVal pwSaturation As Int32)
Public Declare Function ColorHLSToRGB Lib "shlwapi" (ByVal pwHue As Long,
ByVal pwLuminance As Long, ByVal pwSaturation As Long) As Long
Dim H, L, S As Long
Dim iRGB As Long = RGB(120, 125, 125)
ColorRGBToHLS(iRGB, H, L, S)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.33.237.97