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

الصفحات : 1 2

السلامم عليكم و رحمة الله بركاته عندى سؤال عن الاداء 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]

انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134...ch-can-dis

(15-11-21, 02:35 PM)alims كتب : [ -> ]انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134...ch-can-dis

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

شكرا ليك اخى العزيز و لكن للاسف انا استخدام فيجوال 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 ماذا تعنى

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

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

[attachment=27233]

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

[attachment=27234]

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

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

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

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

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

شكرا ليك اخى العزيز و بعمل هذا الكود و هو يعمل عليه جميع انواع الصور متحركة و غير متحركة و لكن تظهر الصور تحت بعضها

كود :

  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 شكرا ليك اخى العزيز
ولكن يوجد مشكلة و هى ان الصورة المتحركة لا تعمل ما هو الحل معاها

Can a PictureBox show animated GIF in Windows Application?

الصفحات : 1 2