منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox (/showthread.php?tid=40004)

الصفحات: 1 2

مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 15-11-21

السلامم عليكم و رحمة الله  بركاته عندى سؤال عن الاداء RichTextBox
الاول عملت الكود ده و شغل بدون اى مشكلة 
كود :
   Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       RichTextBox1.AppendText(TextBox1.Text & vbNewLine)
       TextBox1.Clear()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim OpenFileDialog1 As New OpenFileDialog
       Clipboard.Clear()
       OpenFileDialog1.ShowDialog()
       Dim pic As New PictureBox
       pic.Image = Image.FromFile(OpenFileDialog1.FileName)
       pic.BackColor = RichTextBox1.BackColor
       pic.SizeMode = PictureBoxSizeMode.StretchImage
       RichTextBox1.Controls.Add(pic)
       RichTextBox1.AppendText(vbNewLine)
       Me.RichTextBox1.Paste()
       Clipboard.Clear()
   End Sub
المشكلة فى الكود ان النص بينزل تحت الصورة يعنى ازاى ما فى الصورة انا كتاب من رقم 1 الى 20 اين ذهب رقم 1 و 2و3 ؟
تانى حاجة ان بيتم اضافة اول صورة عادى بدون اى مشكلة لكن فى حالة عايز اعمل اضافة صورة تانية لا تظهر
اخر حاجة و هى لو اعملت اضافة بيانات كتير بيفضل وقف عند اول حاجة ضافتها مفروض يكون ظهر قدمى 
[attachment=27226]

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 15-11-21

انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134358/TRichTextBox-A-universal-RichTextBox-which-can-dis

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - trakktour - 15-11-21

(15-11-21, 02:35 PM)alims كتب : انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134358/TRichTextBox-A-universal-RichTextBox-which-can-dis

تفضل 
هذا المشروع الذي طلبته تم تحويله الى vb.net

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 15-11-21

شكرا ليك اخى العزيز و لكن للاسف انا استخدام فيجوال 2010
المشكلة فى الكود هذا
كود :
If Not Trestan.Utility.isImageCorrupted(theImage) Then
                    PseudoHeaderLine()
                    Dim thePic As New PictureBox()
                    thePic.Image = theImage
                    thePic.Size = theImage.Size
                   Me.TRichTextBox1.AddControl(thePic)
                Else
                    MessageBox.Show("Say something.")
                End If
            End If
        End Sub
وبالتحديد فى Trestan ماذا تعنى

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - asemshahen5 - 15-11-21

هذا مثال قريب مما تريد .

لارسال كتابة إضغط على محادثة كتابية ثم اكتب الرسالة ثم اضغط على ارسال :

[attachment=27233]

لارسال صورة اضغط عل مرفقات ثم ارسال :

[attachment=27234]

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 15-11-21

(15-11-21, 07:31 PM)asemshahen5 كتب : هذا مثال قريب مما تريد .

لارسال كتابة إضغط على محادثة كتابية ثم اكتب الرسالة ثم اضغط على ارسال :



لارسال صورة اضغط عل مرفقات ثم ارسال :

شكرا ليك اخي العزيز بس لو ينفع ممكن الأكواد علشان اصدار الفيجوال لي عندي ٢٠١٠

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - asemshahen5 - 15-11-21

انا عملته بفيجوال 2010 .

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 22-11-21

شكرا ليك اخى العزيز و بعمل هذا الكود و هو يعمل عليه جميع انواع الصور متحركة و غير متحركة و لكن تظهر الصور تحت بعضها
كود :
  Dim OpenFileDialog1 As New OpenFileDialog
       Clipboard.Clear()
       OpenFileDialog1.ShowDialog()
       Dim pic As New PictureBox
       pic.Image = Image.FromFile(OpenFileDialog1.FileName)
       pic.BackColor = RichTextBox1.BackColor
       pic.SizeMode = PictureBoxSizeMode.StretchImage
       RichTextBox1.Controls.Add(pic)
       RichTextBox1.AppendText(Environment.NewLine)
       Clipboard.SetDataObject(pic)
       Me.RichTextBox1.Paste()
       Clipboard.Clear()


RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - alims - 24-11-21

asemshahen5 شكرا ليك اخى العزيز
ولكن يوجد مشكلة و هى ان الصورة المتحركة لا تعمل ما هو الحل معاها

RE: مشكلة اضافة نص و صورة ادخل الاداء RichTextBox - asemshahen5 - 24-11-21





Can a PictureBox show animated GIF in Windows Application?