View Full Version : حرفه ای: چگونگي تبديل كد رنگ HTML به كد رنگ VB6
maxtools
شنبه 19 تیر 1389, 11:40 صبح
با سلام به دوستان برنامه نويس
چطور ميشه كد رنگ HTML رو به كد رنگ VB6 تبديل كرد ؟
parselearn
شنبه 19 تیر 1389, 11:47 صبح
http://barnamenevis.org/forum/showthread.php?t=175987
ameri110
شنبه 19 تیر 1389, 12:25 عصر
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.