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

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