سورس کدهای ویژوال بیسیک - تبدیل کد رنگ vb به html

سورس کد های رایگان ویژوال بیسیک ؛ آموزش حرفه ای؛ API و ...

تبدیل کد رنگ vb به html

ویژوال بیسیک کد رنگ را به صورت BBGGRR ذخیره می کند ؛ ما باید قالب رنگ را به RRGGBB# تبدیل کنیم ؛ یعنی جای کد رنگ قرمز با آبی باید عوض شود.

تابع زیر اینکار را انجام می دهد:

Function VB2HTMLColor(color As Long) As String
    Dim aux As String
    aux = Right("00000" & Hex(color), 6)
    VB2HTMLColor = "#" & Right(aux, 2) & Mid(aux, 3, 2) & Left(aux, 2)
End Function 

منبع

نوشته شده توسط علیرضا | لینک ثابت | موضوع: |