91在线一级黄片|91视频在线观看18|成人夜间呦呦网站|91资源欧美日韩超碰|久久最新免费精品视频一区二区三区|国产探花视频在线观看|黄片真人免费三级片毛片|国产人无码视频在线|精品成人影视无码三区|久久视频爱久久免费精品

VB.NET開發(fā)工具為我們帶來了非常大的驚喜。各種新的功能特點(diǎn)大大吸引了開發(fā)人員的眼球。下面我們就可以通過一段對于VB.NET文字寬度計算的代碼實現(xiàn)方式來對此進(jìn)行深入的解讀，了解其應(yīng)用技巧。#t#

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名注冊、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、伊寧網(wǎng)站維護(hù)、網(wǎng)站推廣。

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. '設(shè)定寬度為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數(shù)組  
  
  
  
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文字寬度計算相關(guān)操作方法就為大家介紹到這里。

分享名稱：如何實現(xiàn)VB.NET文字寬度計算
分享網(wǎng)址：http://m.jiaoqi3.com/article/cdcjgpp.html