رفتن به مطلب

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


Salar82

ارسال های توصیه شده

سلام

کد زیر رو چند مدت پیش تو سایت مرجع گذاشتن. این کدها میان کدهای 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 رو فعال کنید.

 

پیروز باشید

:53::53::53::53::53:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...