Formel for HTML color

[Scix]

Sitter å lager eit program der eg kan lage ein RGB kode, som eg skal få ut HTML koden for.

 

den eineste måten eg har fått det til å virke på er slik

 

Private Sub SetHTML()
Dim RedRGB As Integer, GreenRGB As Integer, BlueRGB As Integer
Dim RedHTML As String, GreenHTML As String, BlueHTML As String
Dim HTML As String
Dim i As Integer, ColorName As String, ColorHTML As String


RedRGB = scrRed.Value
GreenRGB = scrGreen.Value
BlueRGB = scrBlue.Value

RedHTML = "00"
GreenHTML = "00"
BlueHTML = "00"
HTML = "#"

For i = 0 To 2
Select Case i
   Case Is = 0
       ColorName = RedRGB
       ColorHTML = RedHTML
   Case Is = 1
       ColorName = GreenRGB
       ColorHTML = RedHTML
   Case Is = 2
       ColorName = BlueRGB
       ColorHTML = RedHTML
End Select

   Select Case ColorName
       Case Is = 0
           ColorHTML = "00"
       Case Is = 8
           ColorHTML = "08"
       Case Is = 16
           ColorHTML = "10"
       Case Is = 24
           ColorHTML = "18"
       Case Is = 32
           ColorHTML = "20"
       Case Is = 40
           ColorHTML = "28"
       Case Is = 48
           ColorHTML = "30"
       Case Is = 56
           ColorHTML = "38"
       Case Is = 64
           ColorHTML = "40"
       Case Is = 72
           ColorHTML = "48"
       Case Is = 80
           ColorHTML = "50"
       Case Is = 88
           ColorHTML = "58"
       Case Is = 96
           ColorHTML = "60"
       Case Is = 104
           ColorHTML = "68"
       Case Is = 112
           ColorHTML = "70"
       Case Is = 120
           ColorHTML = "78"
       Case Is = 128
           ColorHTML = "80"
       Case Is = 136
           ColorHTML = "88"
       Case Is = 144
           ColorHTML = "90"
       Case Is = 152
           ColorHTML = "98"
       Case Is = 160
           ColorHTML = "A0"
       Case Is = 168
           ColorHTML = "A8"
       Case Is = 176
           ColorHTML = "B0"
       Case Is = 184
           ColorHTML = "B8"
       Case Is = 192
           ColorHTML = "C0"
       Case Is = 200
           ColorHTML = "C8"
       Case Is = 208
           ColorHTML = "D0"
       Case Is = 216
           ColorHTML = "D8"
       Case Is = 224
           ColorHTML = "E0"
       Case Is = 232
           ColorHTML = "E8"
       Case Is = 240
           ColorHTML = "F0"
       Case Is = 248
           ColorHTML = "F8"
       Case Is = 255
           ColorHTML = "FF"
   End Select
   
   HTML = HTML + ColorHTML
   
Next i

txtHTML.Text = HTML


End Sub

 

skal eg lage ein slik kode for alle fargane blir det jæklig lang kode for svært lite. (ca 500 linjer) og det gidder ikkje eg

 

nokon som kan tenke ut ein måte å gjere dette på

[aadnk]

For å omgjøre et desimal tall til hex-code/HTML-farge kan du bruke følgende funksjon:

 

ColorHTML = Hex(ColorName)

 

Det burde erstatte den ekstremt lange select case koden din.

[Scix]

Takker så meget