منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

وشكرا مقدما

تفضل اخي

بالتوفيق

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

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

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

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

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

بالتوفيق

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

fahad764

ahmedabdelaliem

ahmedabdelaliem

Omar 6.0

fahad764

ahmedabdelaliem