المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
السلامم عليكم و رحمة الله بركاته عندى سؤال عن الاداء 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 ؟
تانى حاجة ان بيتم اضافة اول صورة عادى بدون اى مشكلة لكن فى حالة عايز اعمل اضافة صورة تانية لا تظهر
اخر حاجة و هى لو اعملت اضافة بيانات كتير بيفضل وقف عند اول حاجة ضافتها مفروض يكون ظهر قدمى
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
انا لقيت الحل هنا بس للاسف C#
ياريت حد يساعدنى احول الى vb
https://www.codeproject.com/Articles/134...ch-can-dis
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
شكرا ليك اخى العزيز و لكن للاسف انا استخدام فيجوال 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 ماذا تعنى
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
(15-11-21, 07:31 PM)asemshahen5 كتب : هذا مثال قريب مما تريد .
لارسال كتابة إضغط على محادثة كتابية ثم اكتب الرسالة ثم اضغط على ارسال :
لارسال صورة اضغط عل مرفقات ثم ارسال :
شكرا ليك اخي العزيز بس لو ينفع ممكن الأكواد علشان اصدار الفيجوال لي عندي ٢٠١٠
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
22-11-21, 11:36 AM
(آخر تعديل لهذه المشاركة : 22-11-21, 11:48 AM {2} بواسطة alims.)
شكرا ليك اخى العزيز و بعمل هذا الكود و هو يعمل عليه جميع انواع الصور متحركة و غير متحركة و لكن تظهر الصور تحت بعضها
كود :
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()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة :
21
الشكر: 280
تم شكره 267 مرات في 103 مشاركات
asemshahen5 شكرا ليك اخى العزيز
ولكن يوجد مشكلة و هى ان الصورة المتحركة لا تعمل ما هو الحل معاها
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
