(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))