تنفيذ الكود مرة واحدة عند تحميل الفورم

البرنامج به قاعدة بيانات

جرب ان تستخدم هذه الشفرة بعد الشفرة المطلوب عدم تكرارها

 DoEvents

اخي يوجد اكثر من طريقة ممكن لو برنامجك فيه قاعدة بيانات ان انتا تسجل قيمة مثلا في حقل من نوع boolean تمام وتجعله قيمته الافتراضية false وده طبعا قبل ما ترسل المشروع لاي مكان بعدها تخلي البرنامج اول ما يتحمل يشوف لو القيمة دي false يعرف ان البرنامج اول افتتاحية له او اول مرة يشتغل من بعد تسطيبه ومن كده يقوم بتنفيز الكود المطلوب انه ما يتكررش الا مرة واحده مثل مثلا انك تجعل شاشة ترحيب مثلا للعميل بترحبه باستخدام او شراء النسخة منك او حاجات زي كده تمام وبعدها يقوم البرنامج بتغير القيمة الموجودة في الحقل مثلا وتغيرها الي true يجي البرنامج بعد كده يشوف لو لاقي القيمة true ما يعملش اي حاجة لييييييييييييييه لان البرنامج اتفتح قبل كده

الطريقة الثانية :

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

الطريقة الثالثة :

انك تقوم بانشاء ملف من نوع text في اول مرة تشغل فيه لابرنامج بمعني انه في اول مرة طبعا الملف مش هيباق موجود فا تنفز الا انتا عايزه يتنفز في اول مرة ثم تنشا بعدها الملف يروح لابرنامج بعد كده كل مرة يفتح فيها البرنامج يروح يبحث عن الملف طبعا الملف هيكون منشوء في مسار البرنامج لو لقاه يعرف ان البرنامج اتفتح قبل كده فا ما ينفزش الكود الا تحته وهكزااااااااااا

الخخخخخخخخخخخخخخخخخخخ

طبعا في طرق كتييييييييييييييييييييير جدا وكل واحد علي قدر تفكيره يعني دي ما لهاش طريقة معينة مثلا تمام وده الطرق الا حضره في زهني حاليا لما افتكر طرق تانية سوف اذكرها في وقت لاحق ...................

أخي جرب هذا الكود أنا استعمله

code

Private Sub Command1_Click()

SaveSetting "abc", "def", "ghi", "jkl"

End Sub

Private Sub Form_Load()

Dim Status

Status = GetSetting("abc", "def", "ghi")

If Len(Status) < 1 Then

Command1.Visible = True

Else

Command1.Visible = False

End If

End Sub

استعمل

SaveSetting

Getsetting

اخي hnhn تعديلك في وقته و محله

اما اخى crazy-man ، memouz اشكركم كثيرا على الرد

اما اخي Max bayne لقد افدتني و اعتقد انني استطيع القول بانه يجب على الانسان ان يفكر جيدا قبل ان يستشير

لا عليك اخي شمس انا لم اقصد الاهانة او التقليل من قدرك ابدا والله اعلم ولكن كونك ان انات بتسال سوال مهما كان قدره حتا ان كان صغير فهو لا يقلل من شان صاحبه ابدا فالعيب ليس في السوال ولكن العيب ان تكون جاهلا به شكرا ليك اخ شمس وانا والاعضاء تحت امرك واي شي مهما كان صغير او كبير تفضل به وسنحاول انا والاعضاء جاهدين كل الجهد علي مساعدتك والاخرين .............