如何在 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) - 颜色为黑色。 ?
最佳答案
只需将 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
关于.net - 如何在 VB.NET 中设置字体类对象的颜色?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3792469/