Question

我有一些代码显示记录集中的值。如果该值小于8000，我希望更改显示文本的颜色。我试过这个：

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

但它没有用。我该怎么做？

Answer 1

加入乌鸦的回答。

您也可以使用：

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

Answer 2

您没有指定显示信息的方式，但如果您使用的是TextBox，则可以通过ForeColor属性更改文本颜色

Text1.ForeColor = &HFFEFEF

Answer 3

在每个条件中更改文本框/标签的前景色可能会有所帮助。例如，我想输入一个整数，我想知道我输入的整数是ODD还是EVEN。

该交易是：
如果整数是ODD，它将在标签中显示为RED文本，否则如果它是偶然的，它将在标签中显示为蓝色。

以此为例：

输入数字：text1
输出：label1

代码：

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

* mod是一个模运算符函数，用于取text1的余数除以2？

如何更改VB6中的字体颜色？

3 个答案: