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

[nimar9]

سلام خدمت دوستان عزیز هرچی گشتم پیدا نکردم.
یه کد میخوام که مثلا رنگ قرمز با شماره 255 در VB را به کد رنگ #FF0000 در HTML تبدیل کنه. یا رنگ سفید
16777215 = #FFFFFF
و همچنین رنگ های دیگر
ممنون

[mmssoft]

از این فانکشن استفاده کنید :

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

[nimar9]

از این فانکشن استفاده کنید :

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

سلام ممنون از جوابتون چطوری اینو فراخونی کنم ؟

[mmssoft]

خوب اینکه چیز سختی نیست! کدش رو توی بخش کدنویسی کپی کنید و برای فراخوانی به این شکل عمل کنید [فرض کن میخوایم رنگ نوشته Label1 رو به رنگ HTML تبدیل کنیم] :
Text1.Text = VB2HTMLColor(Label1.ForeColor)

[nimar9]

برای تبدیل Html به VB چی کار باید بکنم ؟

[meys34]

با اجازه از mmssoft
بایستی 6 تا صفر داشته باشه...
Function VB2HTMLColor(Color As Long) As String
Dim a As String
a = Right("000000" & Hex(Color), 6)
VB2HTMLColor = "#" & Right(a, 2) & Mid(a, 3, 2) & Left(a, 2)
End Function


این هم تبدیل html به vb

Function HTMLColor2VB(Color As String) As Long
Dim a As String
a = Replace$(Color, "#", "")
a = "&h" & Right(a, 2) & Mid(a, 3, 2) & Left(a, 2)
HTMLColor2VB = CLng(a)
End Function

[محسن واژدی]

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

Function Con2HTMLColor(lClr&) As String
Con2HTMLColor = "#" & Hex(lClr&) & String$(6 - Len(Hex(lClr&)), "0")
End Function


موفق باشید