تنشيط مفتاح

[ابو حمادة]

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

الاخوة الاساتذه

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

وجزاكم الله عنا خيرا

Private Sub TextBox1_Change()
If Len(TextBox1) = "سبحان الله" Then Command1.Enabled = True
End Sub

[مختار حسين محمود]

بالشكل ده

Private Sub TextBox1_Change()
    If Me.TextBox1.Text = "سبحان الله" Then Command1.Enabled = True

End Sub

 

[ابو حمادة]

شكرا ليك اخى الكريم علي ردك مختار حسين محمود

هذا هو المطلوب فعلا

زادك الله علما

ا

[ابو حمادة]

استاذي الفاضل

قبلتني مشكله عند تطبيق الكود

لما اكتب ( سبحان الله ) بالفعل بيتم تنشيط المفتاح ولكن اذا تراجعت ومسحت حرف بيفضل المفتاح نشط بمعني اذا كتبت ( سبحان الله ) ومسحت حرف منها تاني كدا مثلا ( سبحان الل ) بيفضل المفتاح نشط اريد اذا مسحت حرف او مسحتها بعد كتابتها يتم الغاء التنشيط

تم تعديل يناير 4, 2016 بواسطه ابو حمادة

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي مختار

أخي الكريم أبو حماده

جرب الكود بهذا الشكل

Private Sub TextBox1_Change()
    If Me.TextBox1.Text = "سبحان الله" Then
        Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If
End Sub

تقبل تحياتي

[ابو حمادة]

الله ينور عليك ويزيدك علما استاذي القدير ياسر خليل أبو البراء

بالفعل الكود تمام

جزاك الله خيرا

واتمني تدخل علي ملف الدوائر الحمرا وتخدمني فيه

 

[ياسر خليل أبو البراء]

أخي الكريم أبو حماده

يعلم الله أني لا أتأخر على أحد إذا كان الأمر بمقدوري لكن وقتي ضيق جداً في هذه الأيام

وإن شاء الله إذا تيسر الأمر لي سأقوم بمحاولة المساعدة في موضوعك

[ابو حمادة]

ربنا يعزك ويقدرك

وجزاك الله خيرا  اخى ياسر

[الصـقر]

اخى الكريم حماده

طلبك تم عمله من اسبوع على الرابط التالى

http://www.officena.net/ib/topic/65903-تعديل-كود-للدوائر-الحمراء/?do=findComment&comment=429313

تقبل تحياتى

-----------------------------------------------------------------------------------------------------------------------------------

 

 

تم تعديل يناير 5, 2016 بواسطه الصـقر