Математическое преобразование цвета - VB

Узнай цену своей работы

Формулировка задачи:

пытаюсь преобразовать цвет, полученный из интерфейса OLE_COLOR есло передовать его на прямую, то при передачи возникают ошибки переполнения если через RGB(R, G, B) то всё вроде правильно, только я не знаю как правильно преобразовать отрицательное число такого вида -2147483644 в три цифры цвета ниже мои попытки, в передачи свойств, и картинка результата

Решение задачи: «Математическое преобразование цвета»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim R As Byte, G As Byte, B As Byte
    Dim Col As Long
    
    Col = vbMagenta
    
    R = Col And &HFF&
    G = (Col And &HFF00&) \ &H100
    B = (Col And &HFF0000) \ &H10000
End Sub

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы