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

masood1371

کاربر نقره ای

تاریخ عضویت : مهر 1388

تعداد پست ها : 154

محل سکونت : اردبیل

تبدیل کد رنگ vb به html
یک شنبه 23 آبان 1389 9:12 PM

ویژوال بیسیک کد رنگ را به صورت 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