برمجيا كيف اجعل العنصر ممكن او غير ممكن بشروط ؟؟؟؟

[ali2017]

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

 

عندي نموذج ادخال درجات الراسبين  

 

المطلوب اذا كان مربع النص به درجات   يصبح  غير ممكن  ومغلق

واذا كان يساوي صفر  او اقل  يصبح العنصر ممكن لادخال الدرجة 

 

اليكم المرفق

enabled_ctrl.rar

[Shivan Rekany]

الان, ali2017 said:

المطلوب اذا كان مربع النص به درجات   يصبح  غير ممكن  ومغلق

واذا كان يساوي صفر  او اقل  يصبح العنصر ممكن لادخال الدرجة

اتفضل اليك هذا

Private Sub a1_GotFocus()
    If Me.a1 <= 0 Then
            Me.a1.Locked = False
        Else
            Me.a1.Locked = True
    End If
End Sub

 

enabled_ctrl.rar

م.2009.شفان ريكاني

تم تعديل يونيو 9, 2017 بواسطه Shivan Rekany

[ali2017]

اخ شيفان تسلم ايدك    جزاك الله  كل خير على سرعة الرد هذا هو المطلوب

 

 

ولكن  اذا ما اردت التعديل على الدرجة     ما العمل ؟؟ 

[Gamal.Saad]

9 hours ago, ali2017 said:

اخ شيفان تسلم ايدك    جزاك الله  كل خير على سرعة الرد هذا هو المطلوب

ولكن  اذا ما اردت التعديل على الدرجة     ما العمل ؟؟ 

@Shivan Rekany بعد إذن الأستاذ

أقترح عليك يا أستاذ /علي   تضغط على مفتاح الشفت ثم تقوم بالتعديل

أضف الكود هذا إلى البرنامج

Private Sub a1_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift) Then Me.a1.Locked = False
End Sub