الإخوة الأعزاء
كيف يمكن تنفيذ إجراء أثناء تشغيل البرنامج وإتاحة الفرصة للمستخدم للخروج من الإجراء
فمثلا يمكن اانستخدم تغيير لون الأدوات على النافذة بإجراء فكيف يمكن له العودة للون الإفتراضى للإدوات ...
مرفق مثال وأرجو التكرم بالإفادة وشكرا مقدما
سؤال فى الإجراءات
- بالنسبة للخروج من الإجراء استخدم العبارة :
Exit Sub
- بالنسبة للعودة للألوان الافتراضية :
احفظ الألوان السابقة في متغيرات , وللعودة إليها قم بإعادة تعيين ألوان الأزرار حسب قيم الألوان المحفوظة سابقاً
مثلا :
الكود التالي يغير الألوان , ويستطيع استعادتها
- Private Cmd1Color As ColorConstants ' First Button's Color Variable
- Private Cmd2Color As ColorConstants ' Second Button's Color Variable
- Private Sub CommandOK_Click()
- ' Save Resent Colors
- Cmd1Color = Command1.BackColor
- Cmd2Color = Command2.BackColor
- ' Change Colors
- Command1.BackColor = vbBlue
- Command2.BackColor = vbRed
- End Sub
- Private Sub CommandBack_Click()
- ' Rest Colors
- Command1.BackColor = Cmd1Color
- Command2.BackColor = Cmd2Color
- End Sub
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
أخى العزير
عند تجربة الكود تطهر لى رسالة object required ويشرر البرنامج الى سطر الكود
Cmd1Color = Command1.BackColor بما يعنى ان هنا شئ ناقص.
اما exit sub فانا اعرفها ولكن لم تفيد
شكرا لك
السلام عليكم...
تعديل بسيط لما تفضل به الأخ Delphawi. لتجنب كثرة تعريف المتغيرات - خاصة إذا كان لدينا الكثير من المكونات التي نريد تغيير لونها - فإنه يمكننا حفظ اللون الأصلي في الخاصية Tag للعنصر، ثم استعادتها منه:
- Private Sub Command1_Click()
- Label1.Tag = Label1.BackColor ' حفظ اللون الأصلي
- Label1.BackColor = vbRed ' تغيير اللون
- End Sub
- Private Sub Command2_Click()
- Label1.BackColor = Label1.Tag ' استرجاع اللون الأصلي
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
شكرا جزيلا لكما أخواى العزيزين ..
فعلا تمت تجربة الكود الأخير ونجح تنفيذه . بارك الله فيكما وفيما علمكما والى الأمام دائما