VB.NET中怎么計(jì)算文字寬度

VB.NET中怎么計(jì)算文字寬度，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來(lái)學(xué)習(xí)下，希望你能有所收獲。

VB.NET文字寬度計(jì)算的代碼示例：

1. '被表示的文字列  

2. Dim s As String = 
   "我是全哥，歡迎！" 

3. 'PictureBox1的Graphics對(duì)象取得  

4. Dim g As Graphics = 
   PictureBox1.CreateGraphics()  

5. '字體對(duì)象作成  

6. Dim fnt As New Font("宋體", 20)  

7. 'StringFormat對(duì)象作成  

8. Dim sf As New StringFormat 

1. '描繪文字列  

2. g.DrawString(s, fnt, Brushes.Black, 
   0, 0, sf)  

3. '設(shè)定寬度為1000像素，文字列描繪時(shí)計(jì)算大小  

4. Dim stringSize As SizeF = 
   g.MeasureString(s, fnt, 1000, sf)  

5. '取得的文字列的大小使用矩形描繪  

6. g.DrawRectangle(Pens.Red, 0, 0, 
   stringSize.Width, stringSize.Height) 

'測(cè)量"BINGNING"和"NET"的大小  
'測(cè)量指定文字列的范圍  
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() 

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注億速云行業(yè)資訊頻道，感謝您對(duì)億速云的支持。