如何实现VB.NET文字宽度计算

VB.NET开发工具为我们带来了非常大的惊喜。各种新的功能特点大大吸引了开发人员的眼球。下面我们就可以通过一段对于VB.NET文字宽度计算的代码实现方式来对此进行深入的解读，了解其应用技巧。#t#

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、虚拟空间、营销软件、网站建设、伊宁网站维护、网站推广。

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

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

1. '描绘文字列  
2. g.DrawString(s, fnt, Brushes.Black, 
   0, 0, sf)  
3. '设定宽度为1000像素，文字列描绘时计算大小  
4. Dim stringSize As SizeF = 
   g.MeasureString(s, fnt, 1000, sf)  
5. '取得的文字列的大小使用矩形描绘  
6. 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文字宽度计算相关操作方法就为大家介绍到这里。

本文名称：如何实现VB.NET文字宽度计算
路径分享：http://www.mswzjz.cn/qtweb/news30/409730.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 贝锐智能