Опять с переводом цвета

[Серый]

Значит так: мне надо перевести цвет из Long в вид HTML

Я использую такой код:

Код: Выделить всё

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1 = Reverse(Picture1.Point(X, Y))
End Sub

Private Function Reverse(ByVal rgb As Long) As String
    Dim Red As Long, Green As Long, Blue As Long
    Red = rgb And 255: rgb = rgb \ 256
    Green = rgb And 255: rgb = rgb \ 256
    Blue = rgb And 255
   
    Reverse = "&H" & Hex(Red) & Hex(Blue) & Hex(Green)
End Function


Но цвет не тот, я даже менял местами R,G,B - но ничего не получается.
Очень срочно надо

[SSecurity]

а ты не пробовал ...
что-то типа

'К примеру конвертим цвет 546546 в HTML

Код: Выделить всё


AA1 = Hex(546546)
AA1 = String(6 - Len(AA1), "0") + AA1
HTML = Right(AA1, 2) + Mid(AA1, 3, 2) + Left(AA1, 2)


В твоем случае, это так выглядит

Код: Выделить всё

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1 = Reverse(Picture1.Point(X, Y))
End Sub

Private Function Reverse(ByVal rgb As Long) As String
Dim AA1 as String
AA1 = Hex(rgb)
AA1 = String(6 - Len(AA1), "0") + AA1
Reverse = Right(AA1, 2) + Mid(AA1, 3, 2) + Left(AA1, 2)
End Function


[SSecurity]

Теперь объясню почему у тебя могло неработать.
Изначально в твоей проге еррор в формировании строки, неправильная последовательность:)

Предположим ты разложил "010AFF" (68351) на цвета и должен был получить RGB(1, 10, 255), а получил RGB(1, 255, 10) - "01FF0A" - будем далее смотреть исходя из ошибочного разложения

RED = 1, GREEN = 10, BLUE = 255

тогда реверс получается такой
Reverse = "&H" & "1" & "FF" & "A", т.е.
Reverse = "&H1FFA" (8186)
А должно было быть "&H01FF0A" (130826) и для HTML надо местами менять R и B, т.е. "&H0AFF01" (720641)