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")

如何将颜色更改为非标准颜色，即十六进制或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颜色。有什么想法吗？

预先感谢

Answer 1

您需要创建一个新画笔：

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

然后您可以使用它代替黑色画笔：

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

更改字体颜色（VB.net）

1 个答案: