|
Kebetulan punya functionnya… Public Type RGBColor R As String G As String B As String End Type Public Function ColorConstToRGB(ByVal
color As Long) As RGBColor Dim ColorRGB As RGBColor Dim ColorInHex As String ColorInHex = Hex$(color) ColorRGB.R = Left$(ColorInHex, 2) ColorRGB.G = Mid$(ColorInHex, 3, 2) ColorRGB.B = Right$(ColorInHex, 2) ColorConstToRGB = ColorRGB End Function Cara consumenya: Dim ColorRGB As RGBColor ColorRGB = ColorConstToRGB(vbBlue) Setiawan From: halo.. di VB misalkan RGB(0,0,255) = vbBlue ada nggak fungsi yang kebalikannya,, jadi vbBlue itu R = ?, G=?, dan B=? mohon pencerahan... makasih
|
