چگونگي تبديل كد رنگ HTML به كد رنگ VB6

[maxtools]

با سلام به دوستان برنامه نويس

چطور ميشه كد رنگ HTML رو به كد رنگ VB6 تبديل كرد ؟

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=175987

[ameri110]

Public Function ExtractR(ByVal CurrentColor As Long) As Byte
ExtractR = CurrentColor And 255
End Function

Public Function ExtractG(ByVal CurrentColor As Long) As Byte
ExtractG = (CurrentColor \ 256) And 255
End Function

Public Function ExtractB(ByVal CurrentColor As Long) As Byte
ExtractB = (CurrentColor \ 65536) And 255
End Function