使用vb.net将文本追加到图像。字体大小计算错误

Dim image As New Bitmap(imageWidth, imageHeight, PixelFormat.Format32bppArgb)

Dim graphics As Graphics = Graphics.FromImage(image)

Dim font As New Font("Arial", fontSize, FontStyle.Regular)

graphics.DrawString(text, font, Brushes.Black, x, y)

image.Save(imagePath)

Imports System.Drawing
Imports System.Drawing.Imaging

Public Class ImageTextAppender
    Public Sub AppendTextToImage(text As String, fontSize As Integer, imageWidth As Integer, imageHeight As Integer, x As Integer, y As Integer, imagePath As String)
        Dim image As New Bitmap(imageWidth, imageHeight, PixelFormat.Format32bppArgb)
        Dim graphics As Graphics = Graphics.FromImage(image)
        Dim font As New Font("Arial", fontSize, FontStyle.Regular)
        graphics.DrawString(text, font, Brushes.Black, x, y)
        image.Save(imagePath)
    End Sub
End Class