2017-10-16 4 views
-2

J'essayais avec un code qui couvre Text to Image en utilisant Vb.net et mon problème est que je dois accepter un message de l'utilisateur (Max 160 caractères) par une boîte de texte et j'ai besoin de le convertir en une image. L'image générée doit être alignée au milieu et la résolution maximale de l'image doit être de 800x600. Par conséquent, le message doit être parfaitement aligné dans les nouvelles lignes si nécessaire et parfaitement aligné au milieu.Comment auto aligner et ajuster le texte dans VB.net qui se convertit en Image

Le code que je suis en train est comme suit:

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

Essayez

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 
+0

S'il vous plaît voir: [Comment puis-je éviter d'abuser des étiquettes?] (Https://meta.stackoverflow.com/questions/354427/how-do-i-avis-misusing-tags) – EJoshuaS

Répondre

0

Avez-vous essayé la fonction MeasureString de l'objet Graphics et il est divers remplacements? Avec cela vous pouvez mesurer combien d'espace un texte dans une taille donnée et la police a besoin sur l'écran. Avec cette connaissance, vous pouvez calculer le point en haut à gauche à utiliser pour faire apparaître le texte centré.