RGB и шестнадцатеричный код - VB

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

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

А если незная заранее шестнадцатеричный код, если он становится известен только при выполнении проги и прерывать её нельзя?

Решение задачи: «RGB и шестнадцатеричный код»

textual
Листинг программы
Option Explicit
Private Declare Function GetSysColor Lib 'user32' (ByVal nIndex As Long) As Long
 
Private Sub Form_Load()
    Dim C As Long
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    
    C = Me.BackColor 'or -2147483633
    
    SplitRGB C, R, G, B
    Debug.Print R, G, B
End Sub
 
Sub SplitRGB(ByVal Color As Long, R As Byte, G As Byte, B As Byte)
    
    If Color And &H80000000 Then 'If MSB is set
        'it is a system color constant
        'get the true color value
        Color = GetSysColor(Color And &HFF)
    End If
    
    R = Color And 255
    Color = Color  256
    G = Color And 255
    B = Color  256
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4 из 5