VB.NET中怎么计算文字宽度

VB.NET中怎么计算文字宽度，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

VB.NET文字宽度计算的代码示例：

'被表示的文字列
Dim s As String =
"我是全哥，欢迎！"
'PictureBox1的Graphics对象取得
Dim g As Graphics =
PictureBox1.CreateGraphics()
'字体对象作成
Dim fnt As New Font("宋体", 20)
'StringFormat对象作成
Dim sf As New StringFormat

'描绘文字列
g.DrawString(s, fnt, Brushes.Black,
0, 0, sf)
'设定宽度为1000像素，文字列描绘时计算大小
Dim stringSize As SizeF =
g.MeasureString(s, fnt, 1000, sf)
'取得的文字列的大小使用矩形描绘
g.DrawRectangle(Pens.Red, 0, 0,
stringSize.Width, stringSize.Height)


'测量"BINGNING"和"NET"的大小  
'测量指定文字列的范围  
Dim characterRanges As 
CharacterRange() = _  
{New CharacterRange(0, 4),
 New CharacterRange(5, 3)}  
sf.SetMeasurableCharacterRanges
(characterRanges)  
'指定描绘文字列的矩形  
Dim layoutRect As New 
RectangleF(0, 0, 500, 100)  
'取得Region数组  
Dim stringRegions As Region() = _  
g.MeasureCharacterRanges(s, 
fnt, layoutRect, sf)  
'描绘取得文字列大小的矩形  
Dim rect1 As RectangleF = 
stringRegions(0).GetBounds(g)  
g.DrawRectangle(Pens.Yellow, 
Rectangle.Round(rect1))  
Dim rect2 As RectangleF = 
stringRegions(1).GetBounds(g)  
g.DrawRectangle(Pens.Blue, 
Rectangle.Round(rect2))  
'资源释放  
fnt.Dispose()  
g.Dispose()

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注行业资讯频道，感谢您对亿速云的支持。

VB.NET中怎么计算文字宽度

相关推荐