منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة اضافة نص و صورة ادخل الاداء 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


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

شكرا ليك اخى العزيز
ممكن حاجة ثانية و هى كيفية التحكم فى مقاسات الصورة طول و عرض
كود :
    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()