تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox
#1
السلامم عليكم و رحمة الله  بركاته عندى سؤال عن الاداء 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 ؟
تانى حاجة ان بيتم اضافة اول صورة عادى بدون اى مشكلة لكن فى حالة عايز اعمل اضافة صورة تانية لا تظهر
اخر حاجة و هى لو اعملت اضافة بيانات كتير بيفضل وقف عند اول حاجة ضافتها مفروض يكون ظهر قدمى 
   
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5 , أشرف كريم 2 , أشرف كريم 2
#2
انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134...ch-can-dis
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5 , أشرف كريم 2 , أشرف كريم 2
#3
(15-11-21, 02:35 PM)alims كتب : انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134...ch-can-dis

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


الملفات المرفقة
.rar   TRichTextBoxSample.rar (الحجم : 78.05 ك ب / التحميلات : 22)
الرد }}}
تم الشكر بواسطة: alims , asemshahen5 , أشرف كريم 2
#4
شكرا ليك اخى العزيز و لكن للاسف انا استخدام فيجوال 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 ماذا تعنى
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5 , أشرف كريم 2
#5
هذا مثال قريب مما تريد .

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

   

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

   


الملفات المرفقة
.zip   ChatProgramXT2.zip (الحجم : 964.89 ك ب / التحميلات : 23)
الرد }}}
تم الشكر بواسطة: alims , أشرف كريم 2
#6
(15-11-21, 07:31 PM)asemshahen5 كتب : هذا مثال قريب مما تريد .

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



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

شكرا ليك اخي العزيز بس لو ينفع ممكن الأكواد علشان اصدار الفيجوال لي عندي ٢٠١٠
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5 , أشرف كريم 2 , أشرف كريم 2
#7
انا عملته بفيجوال 2010 .
الرد }}}
تم الشكر بواسطة: alims , alims , أشرف كريم 2
#8
شكرا ليك اخى العزيز و بعمل هذا الكود و هو يعمل عليه جميع انواع الصور متحركة و غير متحركة و لكن تظهر الصور تحت بعضها
كود :
  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()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5
#9
asemshahen5 شكرا ليك اخى العزيز
ولكن يوجد مشكلة و هى ان الصورة المتحركة لا تعمل ما هو الحل معاها
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10




Can a PictureBox show animated GIF in Windows Application?
الرد }}}
تم الشكر بواسطة: alims , alims



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم