تبدیل رنگ Hex به RGB

تبدیل رنگ Hex به RGB
گاهی اوقات برای دریافت رنگ از سرور به مشکل میخوریم راه حل این استفاده از Hex هست که به طور پیشفرض توی B4A پشتیبانی نمیشه و باید به RGB تبدیلش کنیم.


با این تابع میتونین کد رنگی که به شکل String هست (Hex) رو به رنگ قابل تشخیص توی B4A (RGB) تبدیل کنین:

Sub RGB(HexColor As String) As Int
Dim res As Int
Try
If HexColor.StartsWith("#") Then
res = Bit.ParseInt(HexColor.Replace("#", ""), 16)
res = Bit.Or(res, 0xFF000000)
Else
res = Bit.Or(res, 0xFF000000)
End If
Catch
res=0xffED1C24
End Try
Return res
End Sub

نحوه استفاده:

Label1.Color=RGB("#73bdf3")

2 thoughts on “تبدیل رنگ Hex به RGB

دیدگاهتان را بنویسید