vb.net - 更改字体颜色 (VB.net)

Question

我正在尝试更改桌面自动收报机上文本的字体颜色。

这是我目前拥有的代码：

Private Sub loadthenews()
str = ""
myArray.Clear()
fo = New Font("CALIBRI", 18, FontStyle.Bold, GraphicsUnit.Point)
Dim readXML As New XmlTextReader(Directory.GetCurrentDirectory & "\news.xml")

如何将颜色更改为非标准颜色，即 HEX 或 RGB 颜色。

谢谢

编辑....

我在看这里：

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As 
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
SetStyle(ControlStyles.AllPaintingInWmPaint Or _
ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.UserPaint, True)
e.Graphics.Clear(Me.BackColor)
e.Graphics.DrawString(str, fo, Brushes.Black, widthX, heightY + 5)

但是我需要将画笔颜色从黑色更改为十六进制或 RGB 颜色。有任何想法吗？

提前致谢

标签： vb.netfontscolors

Answer 1

您需要创建一个新画笔：

Dim brush As Brush = New SolidBrush(Color.FromArgb(100,100,100))

然后你可以用它来代替黑色画笔：

e.Graphics.DrawString(str, fo, brush, widthX, heightY + 5)