التعامل مع Richtextbox وكيفية ادراج فيها الصور والجداول

في الحقيقه أنا أبحث منذ فتره على موضوع مشابه لموضوعك ولكن فيما يخص إضافة الصور للـ RichTextBox وتوصلت لنتائج مرضية ولكنها لم تحقق ما أريد بالضبط ( ولن أدخلك في متاهاتي ) ألمهم أن هذه النتائج ربما تجيبك ، ولكن قبل ذلك أريد أن أوضح شيء ، وهو أن RichTextBox الذي يأتي مع أدوات الفيجول يفتقر إلى بعض المميزات على سبيل المثال إضافة الصور وطباعة محتويات النص المدخل عليه ، لذا يقوم بعض المطورين والمحترفين بإضافة مميزات له ويتم تخزينه على شكل ملف Dll ويضاف للمشروع ويمكن حينا الإستفادة من المميزات الجديده . وخلاصة القول أو دعونا نقل المفيد سوف أرفع مثال يستخدم الـ RichTextBox العادي والكود الذي نحتاجة لإضافة الصور . ويوجد في نفس المثال الطريقة الثانية التي تحدث عنها من إضافة ملف Dll عباره عن RichTextBox به مميزات إضافية والكود اللازم للإضافة صورة .

الفرق بين الإثنين أن الثاني يحافظ على الصوره عند تغير حجمها والأول يجعلها بدون طعم :( .

RTF_Insert_Images.rar

اولا : الله يجزاك خير :) شكررررررررررررررررررررررررررا ^^

اممم الطريقه الأولى حلوه بالنسبه لي لأني انا ما ابغى اليوزر يغير بحجم الصوره مافي مشكله تكون اوريجينال : )

اقتباس

OpenFileDialog1.Title = "Insert Image File"

OpenFileDialog1.Filter = "Bitmap Files|*.bmp|JPEG Files|*.jpg|GIF Files|*.gif"

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName = "" Then Exit Sub

Dim strImagePath As String = OpenFileDialog1.FileName

Dim img As Image

img = Image.FromFile(strImagePath)

Clipboard.SetDataObject(img)

Dim df As DataFormats.Format

df = DataFormats.GetFormat(DataFormats.Bitmap)

If Me.RichTextBox1.CanPaste(df) Then

Me.RichTextBox1.Paste(df)

End If

هذا الكود استخدمته في اضافة الصوره بس باقي لي مشكلة الجداول والربط :(

كمان لقيت في كود بروجكت مستخدمين اشياء ما اعرفها او بالاصح ما فهمتي اسمبلي وما اعرف ايش:(

الله يعطيك العافيه :)

لا شكر على واجب ..

فيما يخص الجداول والسمايلي احيلك على مشاركه لي وضعت بها ملف مرفق فيه ما تريدين وأكثر ، لكن الله يعينك لان الموضوع من جد يحتاج محترفين ، ولا أقول ذلك للتحبيط ولكن لشحد الهمه وبذل المزيد من الجهد وأنا واثق أن من صمم على شيء وكان صادق يصل إليه أو إلى ما هو أفضل منه ..

الرابط ( /index.php?showtopic=146704 )

ok

ان شاء الله الان اشوفه :)

ويا رب اوصل له ^_^

بس اذا ما فهمت اسالك اوكي لأني متوسطه في الفيجوال بيسك.نت :#

شكرا :)