[fahad764]

السلام عليكم ورحمة الله وبركاته

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

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

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

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

 وشكرا مقدما

[ahmedabdelaliem]

تفضل اخي

بالتوفيق

[fahad764]

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

بس في مشكلة هو ان عند فتح البرنامج جميع الازرار فعاله مع العلم ان في Option مختار تلقائي على الحفظ

[ahmedabdelaliem]

غدا ان شاء الله اخي

[ahmedabdelaliem]

اخي عند فتح البرنامج زر حفظ وال option الخاص بالحفظ فقط هما المفعلين

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

بالتوفيق

[Omar 6.0]

يمكن الاستفادة من الخاصية 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]

الله يعطيكم العافيه يا شاب المشكله كانت من عندي في نافذة الصلاحيات

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

وشكرا لك يا اخ عمر على الافاده

[ahmedabdelaliem]

حياك الله

بالتوفيق