تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تفعيل وتعطيل الازرار
#1
السلام عليكم ورحمة الله وبركاته

ممكن يا شباب التعديل على المثال المرفق

بحيث تكون جميع الازارير متعطله  وفي حالة التحديد على اداةOption يتفعل الزر الخاص بها

وتكون اداة Option محدده تلقائي على زر الحفظ .. في حال حبيت استخدم مثلا زر الحذف احدد على Option الخاص بها فيتفعل زر الحذف وتتعطل البقيه

اتمني تكون وصلت الفكره

 وشكرا مقدما


الملفات المرفقة
.rar   Desktop.rar (الحجم : 1.53 ك ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخي

بالتوفيق


الملفات المرفقة
.rar   Desktop.rar (الحجم : 2.06 ك ب / التحميلات : 24)
محاسب / أحمد عبد العليم
الرد }}}}
تم الشكر بواسطة: fahad764 , Ahmed_Mansoor , Ahmed_Mansoor
#3
الله يجزاك خير يا استاذ احمد ما قصرت وبالفعل هذا المطلوب

بس في مشكلة هو ان عند فتح البرنامج جميع الازرار فعاله مع العلم ان في Option مختار تلقائي على الحفظ
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem
#4
غدا ان شاء الله اخي
محاسب / أحمد عبد العليم
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
اخي عند فتح البرنامج زر حفظ وال option الخاص بالحفظ فقط هما المفعلين

لكن الباقي باقي الازرار غير مفعله وهذا هو الصح

بالتوفيق
محاسب / أحمد عبد العليم
الرد }}}}
تم الشكر بواسطة: fahad764 , Ahmed_Mansoor
#6
Lightbulb 
يمكن الاستفادة من الخاصية 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 Sub
أي عدد أزرار الأوامر يساوي عدد أدوات Option و لكن مع Index
عمر داوود
الرد }}}}
تم الشكر بواسطة: fahad764 , Ahmed_Mansoor
#7
الله يعطيكم العافيه يا شاب المشكله كانت من عندي في نافذة الصلاحيات

واشتغل معاي نفس مثال الاخ عبد العليم

وشكرا لك يا اخ عمر على الافاده
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem , Ahmed_Mansoor , Omar 6.0
#8
حياك الله

بالتوفيق
محاسب / أحمد عبد العليم
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم