+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : تفعيل وتعطيل الازرار (/showthread.php?tid=14872)
تفعيل وتعطيل الازرار - fahad764 - 24-02-16
السلام عليكم ورحمة الله وبركاته
ممكن يا شباب التعديل على المثال المرفق
بحيث تكون جميع الازارير متعطله وفي حالة التحديد على اداةOption يتفعل الزر الخاص بها
وتكون اداة Option محدده تلقائي على زر الحفظ .. في حال حبيت استخدم مثلا زر الحذف احدد على Option الخاص بها فيتفعل زر الحذف وتتعطل البقيه
اتمني تكون وصلت الفكره
وشكرا مقدما
RE: تفعيل وتعطيل الازرار - ahmedabdelaliem - 24-02-16
تفضل اخي
بالتوفيق
RE: تفعيل وتعطيل الازرار - fahad764 - 24-02-16
الله يجزاك خير يا استاذ احمد ما قصرت وبالفعل هذا المطلوب
بس في مشكلة هو ان عند فتح البرنامج جميع الازرار فعاله مع العلم ان في Option مختار تلقائي على الحفظ
RE: تفعيل وتعطيل الازرار - ahmedabdelaliem - 24-02-16
غدا ان شاء الله اخي
RE: تفعيل وتعطيل الازرار - ahmedabdelaliem - 24-02-16
اخي عند فتح البرنامج زر حفظ وال option الخاص بالحفظ فقط هما المفعلين
لكن الباقي باقي الازرار غير مفعله وهذا هو الصح
بالتوفيق
RE: تفعيل وتعطيل الازرار - Omar 6.0 - 24-02-16
يمكن الاستفادة من الخاصية Index في كل من Command و Option حيث:
كود :
Private Sub Option1_Click(Index As Integer)
For i = 0 To 2
Command1(i).Enabled = False
Next
Command1(Index).Enabled = True
End SubRE: تفعيل وتعطيل الازرار - fahad764 - 24-02-16
الله يعطيكم العافيه يا شاب المشكله كانت من عندي في نافذة الصلاحيات
واشتغل معاي نفس مثال الاخ عبد العليم
وشكرا لك يا اخ عمر على الافاده
RE: تفعيل وتعطيل الازرار - ahmedabdelaliem - 25-02-16
حياك الله
بالتوفيق