检测vb.net中的文本宽度

Imports System.Drawing

Module Module1
    Sub Main()
        Dim text As String = "Hello, World!"
        Dim font As New Font("Arial", 12)

        Dim graphics As Graphics = Graphics.FromImage(New Bitmap(1, 1))
        Dim size As SizeF = graphics.MeasureString(text, font)

        Console.WriteLine("文本宽度: " & size.Width)
        Console.WriteLine("文本高度: " & size.Height)

        graphics.Dispose()
    End Sub
End Module