Изменение цвета шрифта (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 цвет. Есть идеи?

Заранее спасибо

Answer 1

Вам необходимо создать новую кисть:

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

Тогда вы можете использовать его вместо черной кисти:

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