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中怎么计算文字宽度
网站URL：
http://cdkjz.cn/article/jhihii.html
