كود إغلاق للنموذج

مغلق

بدأه ابوحمود في 12 أكتوبر 2001 · 7 رد · 599 مشاهدة · في مراجعة المواضيع

#112 أكتوبر 2001 في 07:53 صاحب الموضوع

يغلق النوذج بطريق مبتكرة .

مصدر الفكرة في الرابط التالي :

http://www.vb4arab.com/cgi-bin/ubbcgi/ulti...ic&f=1&t=006481

وحيث أن خصائص نماذج الأكسس تختلف عن نماذج VB :( حيث لاتوجد خاصية Top وخاصية Left وكذلك خاصية Width في الأكسس اسمهاInsideWidth وخاصية Height اسمها في الأكسس InsideHeight لذا قمت بتعديل بسيط في الطريقة للتالي :

في حدث عند عداد الوقت ضع الأسطر التالية :

Me.InsideHeight = Me.InsideHeight - 100

'السطر السابق يقوم بإنقاص الإرتفاع

Me.InsideWidth = Me.InsideWidth - 100

'السطر السابق يقوم بإنقاص العرض

If Me.InsideHeight <= 0 Then DoCmd.Close

' لإغلاق النموذج

أنشئ زر أمر وضع في حدث عند النقر له :

Me.TimerInterval = 10

جرب تعليق سطر إنقاص العرض أو تعليق سطر إنقاص الارتفاع وكذلك زيادة المسافة (100) أو زيادة أو إنقاص الزمن (10) .

وبالمناسبة الموقع الذي نقلت منه الفكرة يحتوي على معلومات وأفكار وأكواد جيدة فأنصح الأخوان بزيارتة واستعراض الصفحات القديمة منه خاصة قسم قواعد البيانات :

http://www.vb4arab.com/cgi-bin/ubbcgi/ulti...i?ubb=forum&f=2

وقسم واجهة برمجة التطبيقات API وعنوانه :

http://www.vb4arab.com/cgi-bin/ubbcgi/ulti...&start_point=35

لكن لا تخلونا هنا وحدنا :)

وللجميع التحية

#212 أكتوبر 2001 في 12:27

نسيت أن أقول أن النموذج يجب أن لايكون مكبراً للحد الأقصى .

وللجميع التحية

#313 أكتوبر 2001 في 00:54

أخي العزيز:

بصراحة إنك عبقري وهذا حقك ولا يمكننا نكران ذلك

جربت أن أضع +100 مثلما اقترحت وكانت النتيجة أن النموذج يجري وأنا أجري وراه وأكيد أنت فاهم ليه .لكنها فعلا فكرة مبتكره

شكرا لك .

أشرف خليل

#413 أكتوبر 2001 في 05:44

الأخ أشرف

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

لما جريت وجرى النموذج من اللي سبق :D

ولك تحياتي

#513 أكتوبر 2001 في 10:19

أخي ابو حمود

طبعا النموذج هو الذي سبق .

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

وضعت كود قفل النموذج مع كود تحريك الأسماء حرف حرف الذي وضعته سابقا وكانت النتيجة أنه لا يتم تنفيذ عمل زر الإغلاق ويقوم النموذج بإغلاق نفسه بمجرد فتحه. مما استوحى لي فكرة نموذج بداية للبرنامج ويقفل نفسه تلقائيا.

أشرف خليل