Как изменить цвет шрифта в VB6? - PullRequest
Новая
       33

Как изменить цвет шрифта в VB6?

1 голос
/ 29 июня 2009

У меня есть код, который отображает значения из набора записей. Если значение меньше 8000, я хочу изменить цвет отображаемого текста. Я попробовал это: 

If (recordset(1).Value) < 80000 Then
    font.color = &HFFEFEF
End If

Но это не сработало. Как мне это сделать?

Ответы [ 3 ]

6 голосов
/ 30 июня 2009

Аддон к ответу ворона.

Вы также можете использовать: 

Text1.ForeColor = vbBlack

'vbBlack, vbWhite, vbBlue, vbRed, vbGreen, vbYellow, vbMagenta, vbCyan

и 

Text1.ForeColor = RGB(255, 0, 0 ) 'red

0, 0, 0 - black
255, 255, 255 - white
255, 0, 0 - red
0, 255, 0 - green
0, 0, 255 - blue
255, 255, 0 - yellow
0, 255, 255 - cyan
255, 0, 255 - magenta
3 голосов
/ 29 июня 2009

Вы не указываете способ отображения информации, но если вы используете TextBox, вы бы изменили цвет текста через свойство ForeColor 

Text1.ForeColor = &HFFEFEF
0 голосов
/ 19 января 2013

Изменение переднего цвета текстового поля / метки внутри каждого условия может помочь. Например, я хочу ввести целое число и узнать, является ли введенное целое число ODD или ДАЖЕ.

Сделка:
Если целое число является ODD, оно будет отображаться как красный текст в метке, иначе, если это ДАЖЕ, на этикетке будет отображаться синий цвет.

Взять это в качестве примера:

Введите номер: text1
Выход: label1

Код: 

 if (val(text1) mod 2) = 1 then
      label1 = "ODD"
      label1.Forecolor = vbRed
 else
      label1 = "EVEN"
      label1.Forecolor = vbBlue
 end if

* mod - это операторная функция по модулю, используемая для получения остатка текста1, деленного на 2?

...