如何在 VB.NET 中设置字体类对象的颜色？

Question

如何在 VB.NET 中设置字体类对象的颜色？ 我的意思是..

   Dim MYfONT As New Font("Microsoft Sans Serif", 16, FontStyle.Bold)
e.Graphics.DrawString(TabMain.TabPages(e.Index).Text, MYfONT, SystemBrushes.HighlightText, paddedBounds)

我怎样才能设置这个字体类对象（MYfONT） - 颜色为黑色。 ？

Answer 1

只需将 SystemBrushes.HighlightText 扩展为 New SolidBrush(Color.Black)

Public Sub DrawStringRectangleF(ByVal e As PaintEventArgs)    
    ' Create string to draw.'
    Dim drawString As [String] = "Sample Text"

    ' Create font and brush.'
    Dim drawFont As New Font("Arial", 16)
    Dim drawBrush As New SolidBrush(Color.Black)

    ' Create rectangle for drawing.'
    Dim x As Single = 150.0F
    Dim y As Single = 150.0F
    Dim width As Single = 200.0F
    Dim height As Single = 50.0F
    Dim drawRect As New RectangleF(x, y, width, height)

    ' Draw rectangle to screen.'
    Dim blackPen As New Pen(Color.Black)
    e.Graphics.DrawRectangle(blackPen, x, y, width, height)

    ' Draw string to screen.'
    e.Graphics.DrawString(drawString, drawFont, drawBrush, drawRect)
End Sub

参考