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() 看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注亿速云行业资讯频道，感谢您对亿速云的支持。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
