05-12-12, 05:37 PM
شكرا وقد تم المطلوب لكن
ما زالت هناك مشكلة صغيرة وهي لا يتم اخذ تنسيق الذي بداخل اداة richtextbox
صورة للتوضيح
ما زالت هناك مشكلة صغيرة وهي لا يتم اخذ تنسيق الذي بداخل اداة richtextbox
صورة للتوضيح
الصفحات : 1 2
05-12-12, 06:36 PM
إذافي تنسيق إستخدمي أداة TextBox وخلي خاصية MultiLine تساوي True
وإستخدمي الكود الأول
وإستخدمي الكود الأول
كود :
Dim Img As New Bitmap(Panel1.Width, Panel1.Height)
Dim Save As New SaveFileDialog
Save.Filter = "PNG Image|*.png"
Panel1.DrawToBitmap(Img, New Rectangle(0, 0, Panel1.Width, Panel1.Height))
If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
Img.Save(Save.FileName, Imaging.ImageFormat.Png)
End If05-12-12, 08:43 PM
استاذ اسامة انا جربت الاقتراح الاخير لكن لم ينجح لانني قمت سابقة بعمل ادوات لتوسيط الخط وتكبير حجم الخط
وتلوينه داخل richtextbox واريد ان اعطيب صلاحية للمستخدم للتعديل كما يشاء لصنع الهيدر المناسب له
لا ادري ما هي الطريقة المناسبة لعمل الطريقة وحل مشكلة الرد رقم #11
شكراً لك
وتلوينه داخل richtextbox واريد ان اعطيب صلاحية للمستخدم للتعديل كما يشاء لصنع الهيدر المناسب له
لا ادري ما هي الطريقة المناسبة لعمل الطريقة وحل مشكلة الرد رقم #11
شكراً لك
06-12-12, 12:19 AM
إستبدلي الأوامر الموجودة في مثالي بالأوامر التالية :
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.BorderStyle = BorderStyle.None
RichTextBox2.BorderStyle = BorderStyle.None
RichTextBox3.BorderStyle = BorderStyle.None
RichTextBox1.ScrollBars = RichTextBoxScrollBars.None
RichTextBox2.ScrollBars = RichTextBoxScrollBars.None
RichTextBox3.ScrollBars = RichTextBoxScrollBars.None
PictureBox1.BorderStyle = BorderStyle.None
Dim Img As New Bitmap(Panel1.Width, Panel1.Height)
Dim G As Graphics = Graphics.FromImage(Img)
Dim Save As New SaveFileDialog
Save.Filter = "PNG Image|*.png"
Panel1.DrawToBitmap(Img, New Rectangle(0, 0, Panel1.Width, Panel1.Height))
G.DrawImage(RtbToBitmap(RichTextBox1), RichTextBox1.Bounds)
G.DrawImage(RtbToBitmap(RichTextBox2), RichTextBox2.Bounds)
G.DrawImage(RtbToBitmap(RichTextBox3), RichTextBox3.Bounds)
If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
Img.Save(Save.FileName, Imaging.ImageFormat.Png)
End If
RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both
RichTextBox2.ScrollBars = RichTextBoxScrollBars.Both
RichTextBox3.ScrollBars = RichTextBoxScrollBars.Both
RichTextBox1.BorderStyle = BorderStyle.FixedSingle
RichTextBox2.BorderStyle = BorderStyle.FixedSingle
RichTextBox3.BorderStyle = BorderStyle.FixedSingle
PictureBox1.BorderStyle = BorderStyle.FixedSingle
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim Open As New OpenFileDialog
Open.Filter = "Image Files|*.png;*.bmp;*.jpg;*.gif"
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = Image.FromFile(Open.FileName)
End If
End Sub
Public Function RtbToBitmap(ByVal rtb As RichTextBox) As Bitmap
rtb.Update()
Dim bmp As New Bitmap(rtb.Width, rtb.Height)
Using gr As Graphics = Graphics.FromImage(bmp)
gr.CopyFromScreen(rtb.PointToScreen(Point.Empty), Point.Empty, rtb.Size)
End Using
Return bmp
End Function
End Class05-04-13, 04:56 PM
بسم الله الرحمن الرحيم
يا جماعة من فضلكم
اريد الكتابة على صورة موجودة عندى بها خانات كثيرة
اريد محرر نصوص ويكتب على الصورة
مثل هذا برمجة هذا الالمانى فى هذا الفيديو
[video=youtube;dsIWji89mJE]https://www.youtube.com/watch?v=dsIWji89mJE[/video]
الرجاء الاهتمام
وشكرا
يا جماعة من فضلكم
اريد الكتابة على صورة موجودة عندى بها خانات كثيرة
اريد محرر نصوص ويكتب على الصورة
مثل هذا برمجة هذا الالمانى فى هذا الفيديو
[video=youtube;dsIWji89mJE]https://www.youtube.com/watch?v=dsIWji89mJE[/video]
الرجاء الاهتمام
وشكرا
الصفحات : 1 2