[أبو خالد الشكري]

أحاول أفهم اللي حضرتك قلته
ثم أطبقه على مشروعي
ثم أخبرك بالنتيجة .

[Taha Okla]

الأمر ببساطة :


المرحلة الأولى (مرحلة الحفظ): 
تضع الكود في الخطوة رقم 3 ثم تضع بعده الكود في الخطوة رقم 4  ثم كود الحفظ فيس قاعدة البيانات بشكل متتالي (ثلاث أسطر متتالية)..
يعني مكان كود الحفظ في قاعدة البيانات تضع هذه الاسطر الثلاثة 
=================
المرحلة الثانية (الاسترجاع) :
أيضاً :
الكود في الخطوة (1) ثم الكود في الخطوة (2) ثم الكود في الخطوة (3) بشكل متتالي (ثلاث اسطر متتالية)
يعني مكان كود الاسترجاع من قاعدة البيانات تضع هذه الاسطر الثلاثة ..

[أبو خالد الشكري]

حبيبي طه

كل شيء تمام ، ولكن بنسبة 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)

فإن رسالة الخطأ نظهر مباشرة 

أتعبني وجنني وحيرني ، حاولت أتحايل عليه بعدة طرق ، لكن الملعون ما طاع يستوي !

---

لو فيه أمر معين يحول النص الملخبط إلى نص صحيح إذن أخبرني به
فقد تنجح العملية .

[Taha Okla]

عدل على الكود السابق وأجعله كـ التالي :
هذا كود أبسط منه 

أجعل كود الحفظ هو (الـ  XXXXX هو كود الحفظ في قاعدة البيانات): 

PHP كود :

XXXXX = RichTextBox1.Rtf 


وكود الاستعادة هو : 

PHP كود :

RichTextBox1.Rtf = DR_my_codes("Mycode") 


بصراحة لم أنتبه أن الخاصية (Rtf) موجودة بشكل مباشر بدون الحاجة لحفظ في ملف خارجي ..

[أبو خالد الشكري]

الحفظ تمام 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

فإن رسالة الخطأ تظهر
شيء يحير بصراحة !

[Taha Okla]

المفروض كود الاسترجاع يكون (RichTextBox1.Rtf)  وليس (Text)  ،،

جرب عندك هذا الكود (استرجاع ك نص  ..  وكود التعديل  يكون موجود تحت زر آخر وتستدعي الزر الاخر من هذا الحدث أيضاً ):

PHP كود :

RichTextBox1.Text = DR_my_codes("Mycode")
Button6.PerformClick() 


و كود الزر هو  :

PHP كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    RichTextBox1.Rtf = RichTextBox1.Text
End Sub 


 ثم تضع الكود الاخر :

---

=================
اذا  ما مشيت معك
استبدل قاعدة (SQL)  بـ (Access) وريح راسك ..
لأن أنت بتعمل كما ذكرت بنك أكواد
والأفضل يكون متاح بسهولة للاستخدام ومع أكسس يكن أسهل من SQL  فلا عبرة هنا لحجم التخزين لأنك تخزن بيانات نصية بين حين وحين وليس يومياً

[أبو خالد الشكري]

خلاص أستاذي الأمور طيبة
الآن اشتغل 100% بدون رسالة خطأ

وضعت الأسطر التالية في Form_Load

كود :

On Error Resume Next
       RichTextBox1.Rtf = RichTextBox1.Text

والآن البرنامج صار زي الحلاوة
والفضل يرجع إلى الله ثم إليك أستاذ Taha Okla

جزاك الله ألف خير ، ورحم الله والديك
سامحني أتعبتك .

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

ألف شكر لك أخي الغالي .

[asemshahen5]

تلوين الكود Syntax Highlighting سورس كود أداة ICSharpCode.TextEditor-master

[أبو خالد الشكري]

مشكور عزيزي الغالي
لكن لو تقدر تجيب الأداة بالدوت نت يكون أقرب لنا من السي شارب .

[asemshahen5]

الاداة تعمل بالفيجوال بيزك و السي شارب اعمل كومبايل للمشروع و اضف مكتبة الديل المولدة الى مشروعك بالفيجوال بيزك و ستعمل .