السلام عليكم ورحمة الله وبركاته
الاخوه الكرام تقبلو فائق الاحترام
ارجو مساعدتي في
إضافه نص الي صوره بحيث يكون اسفل الصوره بدون استقطاع اي جزء منها
اي انه اضافه للصوره ويكون جزء منها عند الحفظ
وهذه صورة للتوضيح
ولكم جزيل الشكر
الاخوه الكرام تقبلو فائق الاحترام
ارجو مساعدتي في
إضافه نص الي صوره بحيث يكون اسفل الصوره بدون استقطاع اي جزء منها
اي انه اضافه للصوره ويكون جزء منها عند الحفظ
وهذه صورة للتوضيح
ولكم جزيل الشكر
حسناً كبدايه انا استطيع اضافة نص علي الصوره وجعله يصل الي اسفلها ولكنه يتواجد فوقها من الاسفل وانا اريده اسفلها بمسافه
كود :
Dim gr As Graphics
Dim dr_bitmab As Bitmap
Dim penprush As New Drawing.SolidBrush(Color.Black)
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
dr_bitmab = New Bitmap(PictureBox2.Image)
'Dim cono As Bitmap = New Bitmap(PictureBox2.Width, PictureBox2.Height + 50)
gr = Graphics.FromImage(dr_bitmab)
imgQR.Image = dr_bitmab
gr.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
'gr.DrawString(RichTextBox1.Text, RichTextBox1.Font, penprush, PictureBox2.Location)
gr.DrawString(TextBox3.Text, New Font("Times New Roman", 16, FontStyle.Bold), New SolidBrush(Color.Red), New PointF(5, 90))
'dr_bitmab. Save (TextBox2.Text, System.Drawing.Imaging.ImageFormat.Jpeg)
End Subاتمني ان تكون مشاركتي إثراء للموضوع وليست إعسار له