==> "比達" <svegeta@hotmail.com>, 信區: programming
在 programming 版提到:
: 小弟想問一問怎樣才可以get到某color的RGB value.
: 例如用什麼方法才可以get到 Pic1.BackColor 的RGB value?
: 我試過用Hex(Pic1.BackColor)可以, 但RGB三個會串在一起 (如FF00FF),
: 我可以分開它們, 但又不知怎樣才可以將 FF 轉回做decimal....
法 1.
RedValue=val("&H"+"FF")
=> RedValue=255
法 2.
用 Windows API GetRedValue, GetGreenValue, GetBlueValue 取得顏色值!
參考資訊:
下面是從成大資研 BBS(140.116.82.7) fortran 版剪出來的
繪圖
------------------------------------------------------------------------------
編號 標 題
> 1 請問可以用fortran讀取圖檔(*.tif)嗎? -- Devil 整理
------------------------------------------------------------------------------
在程式中利用
GetPixel 取得特定點的顏色值, 再用
GetRedValue, GetGreenValue, GetBlueValue 取得顏色值!
另外如果要換算 32 位元顏色值可用 RGB
interface
BYTE function GetRedValue(param)
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetRedValue@4' :: GetRedValue
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'GetRedValue' :: GetRedValue
!DEC$ ENDIF
integer param
end function GetRedValue
end interface
interface
BYTE function GetGreenValue(param)
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetGreenValue@4' :: GetGreenValue
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'GetGreenValue' :: GetGreenValue
!DEC$ ENDIF
integer param
end function GetGreenValue
end interface
interface
BYTE function GetBlueValue(param)
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetBlueValue@4' :: GetBlueValue
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'GetBlueValue' :: GetBlueValue
!DEC$ ENDIF
integer param
end function GetBlueValue
end interface
--
______________________________________________________本版因有你們而壯大
T.L. Cheng 子璉
_______________________________________________________________________.
請各位來成大資研BBS BASIC 版坐坐, 也歡迎你討論 WinHelp
請支援成立 BASIC討論版及 News Group, 讓 BASIC有個家!
2-D 徐昇網分析 (含交集分析) http://feitsui.hyd.ncku.edu.tw/TLCheng/Thiessen/
--
Origin: 成大資工BBS站 (vlsi1.csie.ncku.edu.tw) From: 140.116.77.68