View Full Version : مبتدی: تبدیل رنگ vb به html
nimar9
سه شنبه 26 شهریور 1392, 15:40 عصر
سلام خدمت دوستان عزیز هرچی گشتم پیدا نکردم.
یه کد میخوام که مثلا رنگ قرمز با شماره 255 در VB را به کد رنگ #FF0000 در HTML تبدیل کنه. یا رنگ سفید
16777215 = #FFFFFF
و همچنین رنگ های دیگر
ممنون
mmssoft
سه شنبه 26 شهریور 1392, 17:50 عصر
از این فانکشن استفاده کنید :
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
سه شنبه 26 شهریور 1392, 17:52 عصر
از این فانکشن استفاده کنید :
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
سه شنبه 26 شهریور 1392, 18:02 عصر
خوب اینکه چیز سختی نیست! کدش رو توی بخش کدنویسی کپی کنید و برای فراخوانی به این شکل عمل کنید [فرض کن میخوایم رنگ نوشته Label1 رو به رنگ HTML تبدیل کنیم] :
Text1.Text = VB2HTMLColor(Label1.ForeColor)
nimar9
یک شنبه 14 مهر 1392, 17:54 عصر
برای تبدیل Html به VB چی کار باید بکنم ؟
meys34
دوشنبه 15 مهر 1392, 13:32 عصر
با اجازه از 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
محسن واژدی
چهارشنبه 17 مهر 1392, 18:53 عصر
سلام علیکم
تابع زیر هم بررسی کنید:
Function Con2HTMLColor(lClr&) As String
Con2HTMLColor = "#" & Hex(lClr&) & String$(6 - Len(Hex(lClr&)), "0")
End Function
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.