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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д