تبدیل رنگ 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")