[الماجيك مسعد]

(10-09-16, 04:01 AM)silverlight كتب :

PHP كود :

       RichTextBox1.Refresh()
        Dim bmp As New Bitmap(RichTextBox1.Width, RichTextBox1.Height)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.CopyFromScreen(RichTextBox1.PointToScreen(Point.Empty), Point.Empty, RichTextBox1.Size)
        End Using

        If Not bmp Is Nothing Then
            PictureBox1.Image = bmp
        End If 


تمام جدا اخى الكريم

انت كدا هتقدر تفهم طلبي

شوف هذا الكود

Dim width As Integer = 640
Dim height As Integer = 480

Dim writer As New VideoFileWriter()
writer.Open(SavePath, width, height, 25, VideoCodec.MPEG4, 1000000)
Dim image As New Bitmap(width, height)
Dim g As Graphics = Graphics.FromImage(image)
g.FillRectangle(New SolidBrush(Color.Yellow), 0, 0, width, height)
Dim rec As RectangleF = New RectangleF With {
.Width = width,
.Y = 480,
.X = 0
}
g.DrawString(Article, UsingFont, New SolidBrush(UsingColor), rec, Align)
Dim src = New Bitmap(PictureBox1.Image)
g.DrawImage(src, New Rectangle(0, 0, 222, 222))
'g.Save();
writer.WriteVideoFrame(image)
rec.Y -= rate
Progress.Invoke(Sub()
Progress.SetIncrement(1)
End Sub)

writer.Close()


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

ولكن ليس كما اريد

لانه يفعل نص وصورة ولكن بطريقة غير مرغوب فيها

والمطلوب
انا عايز اضيف نص + صور (اكتر من صورة) الى الريتش بوكس

واقوم بعمل فيديو لهم ويظهر بالترتيب كما كانو فى الريتش بوكس

يعنى مثلا نفترض ان الريتش بوكس فيه

نص
صورة
نص
صورة
صورة
صورة
نص
صورة

يبقا يظهروا كدا فى الفيديو

نص
صورة
نص
صورة
صورة
صورة
نص
صورة

يارب تكون فهمت قصدى وتقدر تساعدنى

---

(10-09-16, 02:54 AM)سعود كتب : ماذا تقصد برسم؟
هل تقصد تصوير مثل تصوير الشاشة؟؟؟

رسم نص
g.DrawString(Article, UsingFont, New SolidBrush(UsingColor), rec, Align)


رسم صورة

Dim src = New Bitmap(PictureBox1.Image)
g.DrawImage(src, New Rectangle(0, 0, 222, 222))