03-07-22, 02:21 AM
03-07-22, 02:30 AM
03-07-22, 03:39 AM
حبيبي طه
كل شيء تمام ، ولكن بنسبة 90%
البرنامج حسب تعليماتك شغالة
وهو يحفظ ويسترجع ملون شيء أبهرني وفرحت كثيرا جدا ما شاء الله
بس بقت إشكالية واحدة
لما أحط السطر الأخير
يعطيني رسالة الخطأ التالية :
ولكني عندما أضع نفس ذلك السطر في زر Button وأضغط عليه بعد أن يتم عرض الكلام (الملخبط) فإنه يعيد قراءته ملون بشكل صحيح وجميل
وعندما أضع ذلك السطر ضمن السطور الأخرى هكذا :
فإن رسالة الخطأ نظهر مباشرة
أتعبني وجنني وحيرني ، حاولت أتحايل عليه بعدة طرق ، لكن الملعون ما طاع يستوي !
لو فيه أمر معين يحول النص الملخبط إلى نص صحيح إذن أخبرني به
فقد تنجح العملية .
كل شيء تمام ، ولكن بنسبة 90%
البرنامج حسب تعليماتك شغالة
وهو يحفظ ويسترجع ملون شيء أبهرني وفرحت كثيرا جدا ما شاء الله
بس بقت إشكالية واحدة
لما أحط السطر الأخير
كود :
RichTextBox1.LoadFile(Application.StartupPath & "\TA.rtf", RichTextBoxStreamType.RichText)يعطيني رسالة الخطأ التالية :
ولكني عندما أضع نفس ذلك السطر في زر Button وأضغط عليه بعد أن يتم عرض الكلام (الملخبط) فإنه يعيد قراءته ملون بشكل صحيح وجميل
وعندما أضع ذلك السطر ضمن السطور الأخرى هكذا :
كود :
If DR_my_codes.HasRows Then
RichTextBox1.Text = DR_my_codes("Mycode")
RichTextBox1.SaveFile(Application.StartupPath & "\TA.rtf", RichTextBoxStreamType.PlainText)
RichTextBox1.LoadFile(Application.StartupPath & "\TA.rtf", RichTextBoxStreamType.RichText)فإن رسالة الخطأ نظهر مباشرة
أتعبني وجنني وحيرني ، حاولت أتحايل عليه بعدة طرق ، لكن الملعون ما طاع يستوي !
لو فيه أمر معين يحول النص الملخبط إلى نص صحيح إذن أخبرني به
فقد تنجح العملية .
03-07-22, 04:11 AM
03-07-22, 04:27 AM
الحفظ تمام 100%
الاسترجاع يعطيني نفس رسالة الخطأ !
سامحني سهرتك اليوم
حاليا لا يوجد في مشروعي استعمالا لملف خارجي
فقط أستعمل الطريقة الجديدة !
لكني عملت الآتي :
رجعت كود الاسترجاع كما كان سابقا
ووضعت الكود التالي في زر
وعندما أضغط عليه يتلون النص الملخبط ويكون صحيحا ملونا جميلا
ولكني عندما أضع نفس هذا الكود تحت كود الحفظ مباشرة هكذا
فإن رسالة الخطأ تظهر
شيء يحير بصراحة !
الاسترجاع يعطيني نفس رسالة الخطأ !
(03-07-22, 04:27 AM)أبو خالد الشكري كتب : [ -> ]الحفظ تمام 100%
الاسترجاع يعطيني نفس رسالة الخطأ !
سامحني سهرتك اليوم
حاليا لا يوجد في مشروعي استعمالا لملف خارجي
فقط أستعمل الطريقة الجديدة !
لكني عملت الآتي :
رجعت كود الاسترجاع كما كان سابقا
كود :
RichTextBox1.Text = DR_my_codes("Mycode")ووضعت الكود التالي في زر
كود :
RichTextBox1.Rtf = RichTextBox1.Textولكني عندما أضع نفس هذا الكود تحت كود الحفظ مباشرة هكذا
كود :
RichTextBox1.Text = DR_my_codes("Mycode")
RichTextBox1.Rtf = RichTextBox1.Textفإن رسالة الخطأ تظهر
شيء يحير بصراحة !
03-07-22, 05:07 AM
03-07-22, 05:39 AM
خلاص أستاذي الأمور طيبة
الآن اشتغل 100% بدون رسالة خطأ
وضعت الأسطر التالية في Form_Load
والآن البرنامج صار زي الحلاوة
والفضل يرجع إلى الله ثم إليك أستاذ Taha Okla
جزاك الله ألف خير ، ورحم الله والديك
سامحني أتعبتك .
ما شاء الله عليك ما قصرت
جعل الله مجهودك في مساعدتي في ميزان حسناتك
ألف شكر لك أخي الغالي .
الآن اشتغل 100% بدون رسالة خطأ
وضعت الأسطر التالية في Form_Load
كود :
On Error Resume Next
RichTextBox1.Rtf = RichTextBox1.Textوالآن البرنامج صار زي الحلاوة
والفضل يرجع إلى الله ثم إليك أستاذ Taha Okla
جزاك الله ألف خير ، ورحم الله والديك
سامحني أتعبتك .
ما شاء الله عليك ما قصرت
جعل الله مجهودك في مساعدتي في ميزان حسناتك
ألف شكر لك أخي الغالي .
05-07-22, 01:05 PM
05-07-22, 02:52 PM
05-07-22, 02:55 PM