VB6中如何改变字体颜色？

发布于 2024-07-25 21:07:45 字数 188 浏览 3 评论 0原文

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

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

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

原文

I have some code that displays values from a record set. If the value is less than 8000, I wish to change the color of the displayed text. I tried this:

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

But it didn't work. How do I do it?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

北方的巷 2024-08-01 21:07:46

添加到乌鸦的答案。

您还可以使用：

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

Addon to raven's answer.

You can also use:

Text1.ForeColor = vbBlack

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

and

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

回复收藏 0 原文

一腔孤↑勇 2024-08-01 21:07:46

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

Text1.ForeColor = &HFFEFEF

You don't specify how you are displaying the information, but if you're using a TextBox, you would changed the text color via the ForeColor property

Text1.ForeColor = &HFFEFEF

回复收藏 0 原文

む无字情书 2024-08-01 21:07:46

更改每个条件内文本框/标签的前景色可能会成功。例如，我想输入一个整数，我想知道我输入的整数是奇数还是偶数。

交易内容是：
如果整数是奇数，它将在标签中显示为红色文本，
否则，如果为偶数，它将在标签中显示为蓝色。

以此为例：

输入数字：text1
输出：标签1

代码：

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

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

Changing the forecolor of the textbox/label inside each conditions may do the trick. For example I want to input an integer and I want to know if the integer I've entered is ODD or EVEN.

The deal is:
If the integer is an ODD, it will display as a RED text in the label,
else if it is EVEN, it will display as blue in the label.

Take this as an example:

Input number: text1
Output: label1

Code:

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

*mod is a modulo operator function used to take the remainder of the text1 divided by 2?

回复收藏 0 原文

~没有更多了~