vb.net 计算文字的宽度

最新推荐文章于 2024-05-28 19:21:46 发布

转载最新推荐文章于 2024-05-28 19:21:46 发布 · 607 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/quange/archive/2009/07/21/1527903.html

本文介绍了使用VB.NET进行绘图及文字布局的方法，包括如何绘制文字、测量文字大小及特定区域的文字显示等。通过实例代码展示了如何创建Graphics对象、设置字体、绘制矩形以及测量并显示不同部分的文字范围。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Code
  '被表示的文字列
        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()

转载于:https://www.cnblogs.com/quange/archive/2009/07/21/1527903.html