شكرا ليك اخى العزيز
ممكن حاجة ثانية و هى كيفية التحكم فى مقاسات الصورة طول و عرض
تم حل المشكلة
ممكن حاجة ثانية و هى كيفية التحكم فى مقاسات الصورة طول و عرض
كود :
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()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ