الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف احفظ نص مكتوب في RichTextBox على شكل صورة؟

بدأه اأإبراهيم في 11 يوليو 2011 · 11 رد · 1,392 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف احفظ نص مكتوب في RichTextBox1 على شكل صورة؟

علماً بأن RichTextBox1 يحتوي على العديد من التنسيقات,

فأريد أن يحول النص المكتوب في RichTextBox1 إلى صورة بجميع التنسيقات

وأحفظها على الجهاز (بصيغة png أو غيرها)

تم تعديل هذه المشاركة بواسطة اأإبراهيم في 11 يوليو 2011 في 18:04

#2

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي


Dim bmp As New Bitmap(RichTextBox1.DisplayRectangle.Width, RichTextBox1.DisplayRectangle.Height)
Dim p As Point
Graphics.FromImage(bmp).CopyFromScreen(RichTextBox1.PointToScreen(p), p, New Size(RichTextBox1.DisplayRectangle.Width, RichTextBox1.DisplayRectangle.Height))
bmp.Save("test.png")

1

.:: Wish to become better and better ::.

#3

اخي الكائن Grahpics لم يتم تعريفه من قبل ! راجع الكود

يوجد عدة حلول على الرابط التالي وكلها مكتوبة ب سي شارب ، يمكنك تحويلها الى vb.net :

http://social.msdn.microsoft.com/forums/en-US/csharpgeneral/thread/2f4718f4-5997-44b5-b849-9afeeb200c14/

#4

السلام عليكم ورحمه الله وبركاته

اخي Graphics ماهي الا خاصية تابعة للفورم, كيف مش معرف؟!! جرب المثال وشوف النتيجة!!

.:: Wish to become better and better ::.

#5
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي


Dim bmp As New Bitmap(RichTextBox1.DisplayRectangle.Width, RichTextBox1.DisplayRectangle.Height)
Dim p As Point
Graphics.FromImage(bmp).CopyFromScreen(RichTextBox1.PointToScreen(p), p, New Size(RichTextBox1.DisplayRectangle.Width, RichTextBox1.DisplayRectangle.Height))
bmp.Save("test.png")

جزاك الله خيراً

ولكني عندما استخدم SaveFileDialog لتحديد المسار أحياناً تظهر بدلاً من RichTextBox1

#6

السلام عليكم ورحمه الله وبركاته

اخي مافهمت قصدك؟!! الرجاء التوضيح؟

.:: Wish to become better and better ::.

#7
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي مافهمت قصدك؟!! الرجاء التوضيح؟

أي عندما استخدم SaveFileDialog1 لتحديد مسار حفظ الصورة أحياناً يقوم بحفظ صورة تحتوي على مربع الحوار SaveFileDialog1

#8

السلام عليكم ورحمه الله وبركاته

اخي هذا بسبب استخدام الاجراء CopyFromScreen, حاول ان تنفذ الكود بعد فترة وجيزة من اختفاء مربع حوار الحفظ

.:: Wish to become better and better ::.

#9
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي هذا بسبب استخدام الاجراء CopyFromScreen, حاول ان تنفذ الكود بعد فترة وجيزة من اختفاء مربع حوار الحفظ

كيف ذلك؟

على كلٍ سأحاول أن أجد حلاً

جزاك الله خيراً

تم تعديل هذه المشاركة بواسطة اأإبراهيم في 13 يوليو 2011 في 00:39

#10

السلام عليكم ورحمه الله وبركاته

اخي يمكنك وضع الكود التالي بعد اظهار مربع حوار حفظ

Thread.Sleep(1000)

.:: Wish to become better and better ::.

#11
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي يمكنك وضع الكود التالي بعد اظهار مربع حوار حفظ

Thread.Sleep(1000)

لم ينفع هذا الكود

قمت بوضع كود التصوير في Timer1 ونجحت والحمد لله ولم يظهر مربع الحفظ في الصورة

#12

السلام عليكم ورحمه الله وبركاته

ليش ما نفع؟!! جربته وشغال 100% اهم شيء يكون قبل عملية الحفظ

.:: Wish to become better and better ::.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…