بیسیک فور اندروید استفاده از کد رنگ HEX در بیسیک فور اندروید

[Ali]

با استفاده از قطعه کد زیر میتوانید از کد رنگ HEX در بیسیک فور اندروید استفاده کنید ( برای استفاده از این کد کتابخانه ByteConverter را فعال کنید

Private Sub HexToColor(Hex As String) As Int Dim bc As ByteConverter If Hex.StartsWith("#") Then Hex = Hex.SubString(1) Else If Hex.StartsWith("0x") Then Hex = Hex.SubString(2) End If Dim ints() As Int = bc.IntsFromBytes(bc.HexToBytes(Hex)) Return ints(0) End Sub​

با استفاده از کد بالا اگر رنگ شما مثلا #FFB200 باشد تبدیل میشود به 0xFFFFB200 تا در بیسیک فور اندروید بتوانید از آن استفاده کنید .