[فاتن]

شكرا وقد تم المطلوب لكن
ما زالت هناك مشكلة صغيرة وهي لا يتم اخذ تنسيق الذي بداخل اداة richtextbox

صورة للتوضيح

[Osama_Ghareeb]

إذافي تنسيق إستخدمي أداة 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 If

[فاتن]

استاذ اسامة انا جربت الاقتراح الاخير لكن لم ينجح لانني قمت سابقة بعمل ادوات لتوسيط الخط وتكبير حجم الخط
وتلوينه داخل richtextbox واريد ان اعطيب صلاحية للمستخدم للتعديل كما يشاء لصنع الهيدر المناسب له
لا ادري ما هي الطريقة المناسبة لعمل الطريقة وحل مشكلة الرد رقم #11

شكراً لك

[Osama_Ghareeb]

إستبدلي الأوامر الموجودة في مثالي بالأوامر التالية :

كود :

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 Class

[midosoft]

بسم الله الرحمن الرحيم
يا جماعة من فضلكم
اريد الكتابة على صورة موجودة عندى بها خانات كثيرة
اريد محرر نصوص ويكتب على الصورة
مثل هذا برمجة هذا الالمانى فى هذا الفيديو

[video=youtube;dsIWji89mJE]https://www.youtube.com/watch?v=dsIWji89mJE[/video]

الرجاء الاهتمام
وشكرا