تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox
#11
شكرا ليك اخى العزيز
ممكن حاجة ثانية و هى كيفية التحكم فى مقاسات الصورة طول و عرض
كود :
    Dim OpenFileDialog1 As New OpenFileDialog
       Clipboard.Clear()
       OpenFileDialog1.ShowDialog()
       Clipboard.SetImage(Image.FromFile(OpenFileDialog1.FileName))
       RichTextBox1.Paste()
       TextBox1.Select()
       Clipboard.Clear()

تم حل المشكلة 
كود :
    Dim OpenFileDialog1 As New OpenFileDialog
       Clipboard.Clear()
       OpenFileDialog1.ShowDialog()
       Dim img As Image = Image.FromFile(OpenFileDialog1.FileName)
       Dim bmp As New Bitmap(100, 100)
       Dim g As Graphics = Graphics.FromImage(bmp)
       g.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), New Rectangle(0, 0, img.Width, img.Height), GraphicsUnit.Pixel)
               Clipboard.SetImage(bmp)
       RichTextBox1.Paste()
       Me.RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both
       Me.RichTextBox1.ScrollToCaret()
       TextBox1.Select()
       Clipboard.Clear()
       g.Dispose()
       bmp.Dispose()
       img.Dispose()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: asemshahen5



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


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