ارجو المساعدة في حل مشكلة الفورم بأزرار متعددة

[سيكوتوري]

السلام عليكم يا احلى منتدى

الرجاء التكرم بالاطلاع على الملف المرفق لفهم المقصود،اليكم الشرح:

أنا عملت كود على فورم1 وهو شغال تمام،لكن عند تكراره 30 مرة في فورم 2 ،الميموري لا يستطيع تحمل كل هذا الكود.ربما اذا استعملنا الحلقات التكرارية مع كلاس مودل سيكون الحل.

الرجاء الاهتمام بالموضوع،ولكم مني أحلى تحية.

test.rar

[عبدالله باقشير]

السلام عليكم

 

اولا تعمل كود رئيسي بهذا الشكل

Private Sub kh_Start(tx1 As MSForms.TextBox, tx2 As MSForms.TextBox, tx3 As MSForms.TextBox)
If tx1 = 0 Or tx1 = "" Then
tx1 = 17
tx2 = 18
tx3 = 1
Else
If tx1 = 17 Then
tx1 = 18
tx2 = 19
tx3 = 1
Else
If tx1 = 18 And tx2 = 19 Then
tx1 = 17
tx2 = 19
tx3 = 2
Else
If tx1 = 1817 And tx2 = 19 Then
tx1 = 0
tx2 = 0
tx3 = 0
End If
End If
End If
End If
End Sub

بعدين في ازرار تفعيل الكود

تحدد التاكستات المعنية في kh_Start

 

مثلا CommandButton1_Click

Private Sub CommandButton1_Click()
kh_Start TextBox1, TextBox2, TextBox3
End Sub

مثلا CommandButton3_Click

Private Sub CommandButton3_Click()
kh_Start TextBox4, TextBox5, TextBox6
End Sub

وهكذا مع بفية الازرار

 

 

تحياتي

[سيكوتوري]

السلام عليكم

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

قبل أن اجد الحل لمشكلتي ،قد وجدت ملفا شبيها لما أريد والكود الموجود به شديد الاختصار.صراحة أنا أحببت هذا الكود ،واتمنيت لو ظبط معي

في انتظار ردك دعواتي لك بالرحمة لك ولوالديك وكل من علمك حرفا وللمنتدى الأكثر من رائع.

ClassModuleCommandButtons.rar

[عبدالله باقشير]

السلام عليكم

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

قبل أن اجد الحل لمشكلتي ،قد وجدت ملفا شبيها لما أريد والكود الموجود به شديد الاختصار.صراحة أنا أحببت هذا الكود ،واتمنيت لو ظبط معي

في انتظار ردك دعواتي لك بالرحمة لك ولوالديك وكل من علمك حرفا وللمنتدى الأكثر من رائع.

 

طبعا شديد الاختصار لان هناك امر واحد يتم تنفيذه من جميع الازرار

لكن في ملفك لكل زر امر خاص لانه يتعامل مع تاكستات مختلفة !!!!!!!!!!!

 

تحياتي

[سيكوتوري]

السلام عليكم

مفهوم أخي عبد الله

وشكرا مرة أخرى لردك المنطقي