تبدیل کد رنگ برگشتی در B4J به فرمت RGB

شاید زمانی که قصد دارید رنگ یک ویو را بگیرید یا از ColorPicker در B4J استفاده می کنید خواهید دید که کد برگشتی شبیه 0xFF45DD92 می باشد. برای تبدیل شاب زیر را به پروژه اضافه کنید:

Sub GetColorRGB(ColorValue As Paint) As String
    Dim result As String = ""
    Dim joCV As JavaObject = ColorValue
    Dim R As Double = joCV.RunMethod("getRed", Null)
    Dim G As Double = joCV.RunMethod("getGreen", Null)
    Dim B As Double = joCV.RunMethod("getBlue", Null)
    result = Round(R * 255) & "," & Round(G * 255) & "," & Round(B * 255)
    Return result
End Sub

سپس هر زمان خواستید از این ساب استفاده کنید. این ساب از شما همان مقدار رنگ شبیه 0xFF45DD92 را می گیرد و کد RGB را به صورت مثلا 25,96,215 بر گشت می دهد.