تبدیل Hex به رنگ و برعکس

[Salar82 919]

سلام

کد زیر رو چند مدت پیش تو سایت مرجع گذاشتن. این کدها میان کدهای Hex (مثلا FFFFFF#) رو به رنگ و رنگ رو به Hex تبدیل میکنه.

Private Sub ColorToHex(clr As Int) As String
    Dim bc As ByteConverter
    Return bc.HexFromBytes(bc.IntsToBytes(Array As Int(clr)))
End Sub

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

 

برای استفاده، کتابخونه ByteConverter رو فعال کنید.

 

پیروز باشید