[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