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