如何自動對齊和調整VB.net中的文本轉換爲圖像

Question

我正在嘗試使用Vb.net將文本轉換爲圖像的代碼，我的問題是我需要接受來自用戶的消息（最多160個字符）由一個文本框，我需要將其轉換爲圖像。生成的圖像應該在中間對齊，圖像最大分辨率應爲800x600。

因此，如果需要，消息應該整齊排列在新行中，並完美地與中間對齊。

我想要的代碼如下：

================================= =====================

嘗試

Dim Text As String = TextBox3.Text 

    Dim FontColor As Color = Color.Blue 

    Dim BackColor As Color = Color.White 

    Dim FontName As String = "Times New Roman" 

     Dim FontSize As Integer = 36 


     Dim Height As Integer = 60 

     Dim Width As Integer = 200 

    Dim daten As String 
    daten = Now.ToString("ddMMyyyyhhmmss") 
    Dim FileName As String = daten 
    Dim objBitmap As New Bitmap(Width, Height) 
    Dim objGraphics As Graphics = Graphics.FromImage(objBitmap) 
    Dim objColor As Color 
    objColor = Nothing 

    Dim objFont As New Font(FontName, FontSize) 

    'Following PointF object defines where the text will be displayed in the 

    'specified area of the image 

    Dim objPoint As New PointF(5.0F, 5.0F) 
    Dim objBrushForeColor As New SolidBrush(FontColor) 

    Dim objBrushBackColor As New SolidBrush(BackColor) 
    objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height) 
    objGraphics.DrawString(Text, objFont, objBrushForeColor, objPoint) 
    objBitmap.Save("D:\DNB\" + daten + ".JPG", ImageFormat.Jpeg) 
     PictureBox1.Image = Image.FromFile("D:\DNB\" + daten + ".JPG") 
    Catch ex As Exception 

    End Try 

Answer 1

您是否嘗試過的Graphics對象的MeasureString功能和它的各種替代？通過這種方式，您可以測量屏幕上給定大小和字體所需的文本大小。有了這些知識，您可以計算左上角的點來使文本顯示居中。