Функция GetTextColor

Declare Function GetTextColor Lib "gdi32" Alias "GetTextColor" (ByVal hdc As Long) As Long

GetTextColor возвращает значение цвета текста, используемого в контексте устройства

Возвращаемое значение

В успешном случае функция возвращает цвет текста. Если функция терпит неудачу, возвращаемое значение равно &HFFFF

Параметры

hdc

Дескриптор контекста устройства

Пример

' Возвращаем цвет текста для Form1
Dim retval As Long  ' возвращаемое значение цвета
Dim Red As Integer  ' возвращаемое значение красного цвета
Dim Green As Integer  ' возвращаемое значение зелёного цвета
Dim Blue As Integer  ' возвращаемое значение синего цвета
' Установим зеленый цвет для шрифтов формы
Me.ForeColor = vbGreen 
retval = GetTextColor(Form1.hdс)
Print "Возвращаемый цвет = " & retval
' Используем функцию для разбития цвета
ColorSplit retval, Red, Green, Blue
' Выводим значения цвета
Print "R = " & Red
Print "G = " & Green
Print "B = " & Blue

' Функция для разбития цвета
Function ColorSplit(RGBMix as Long, R As Integer, G As Integer, B As Integer)
   R = RGBMix And &HFF
   G = (RGBMix \ &H100) And &HFF
   B = (RGBMix \ &H10000) And &HFF
End Function

Смотри также

SetTextColor

Категория

Шрифты и тексты