评书连播嘉庆皇帝:在VB6中用Form1.TextWidth 可以求出字符宽,在vb.net里怎么求?

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 18:46:43

MSDN给出的例子:
Private Sub MeasureStringMin(ByVal e As PaintEventArgs)

' Set up string.
Dim measureString As String = "Measure String"
Dim stringFont As New Font("Arial", 16)

' Measure string.
Dim stringSize As New SizeF
stringSize = e.Graphics.MeasureString(measureString, stringFont)

' Draw rectangle representing size of string.
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), 0.0F, 0.0F, _
stringSize.Width, stringSize.Height)

' Draw string to screen.
e.Graphics.DrawString(measureString, stringFont, Brushes.Black, _
New PointF(0, 0))
End Sub

那就重新安装好了