Функция SetTextColor

Declare Function SetTextColor Lib "gdi32" Alias "SetTextColor" (ByVal hdc As Long, ByVal crColor As Long) As Long
SetTextColor изменяет цвет текста в указанном контексте устройства на указанный цвет

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

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

Параметры

hdсДескриптор контекста устройства
crColorЗначение цвета текста в окне

Пример

' Устанавливаем новый цвет для Form1
Dim retval As Long ' возвращаемое значение предыдущего цвета

Print "Используемый цвет"
retval = SetTextColor(Form1.hdс, RGB(255,0,0))
Print "Изменённый цвет"

Смотри также

GetTextColor

Категория

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