17-03-20, 02:15 AM (آخر تعديل لهذه المشاركة : 22-03-20, 12:32 AM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
السلام عليكم
اريد عند الضغط على اى تكست موجود فى الفورم يتحول لون خلفية التكست بوكس الى الاصفر
انا جربت هذا الكود ولكن اعطانى خطا
ارجوتعديل الكود اساتذتى الكرام ولكم جزيل الشكر
كود :
Public Function color(frm As Form)
Dim C As Control
For Each C In frm.Controls
If TypeOf C Is TextBox Or TypeOf C Is ComboBox And c_gotFocus() Then
C.BackColor = &HFFFFFF
17-03-20, 03:06 AM (آخر تعديل لهذه المشاركة : 17-03-20, 03:52 AM {2} بواسطة سعود.)
PHP كود :
Private Sub ce(ByVal a As Control) If (TypeOf a Is TextBox) Or (TypeOf a Is Label) Then a.BackColor = vbYellow End If End Sub Private Sub Label1_Click() ce Label1 End Sub Private Sub Text1_Click() ce Text1 End Sub
لقد استعجلت بالجواب فمعذة اخي الكريم . ان تمكنت من معرفة الحل باذن الله اكتبه. وبانتظار الاخوة.
محاولة اخرى
PHP كود :
Private Sub ce(ByVal a As Control, ByVal b As Boolean) If (TypeOf a Is TextBox And b = True) Then a.BackColor = vbYellow Else a.BackColor = vbWhite End If End Sub Private Sub Text1_GotFocus() ce Text1, True End Sub Private Sub Text1_LostFocus() ce Text1, False End Sub Private Sub Text2_GotFocus() ce Text2, True End Sub Private Sub Text2_LostFocus() ce Text2, False End Sub
محاولة اخرى
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Private Sub ce(ByVal a As Control) If (TypeOf a Is TextBox) Or (TypeOf a Is Label) Then a.BackColor = vbYellow End If End Sub Private Sub Label1_Click() ce Label1 End Sub Private Sub Text1_Click() ce Text1 End Sub
لقد استعجلت بالجواب فمعذة اخي الكريم . ان تمكنت من معرفة الحل باذن الله اكتبه. وبانتظار الاخوة.
محاولة اخرى
PHP كود :
Private Sub ce(ByVal a As Control, ByVal b As Boolean) If (TypeOf a Is TextBox And b = True) Then a.BackColor = vbYellow Else a.BackColor = vbWhite End If End Sub Private Sub Text1_GotFocus() ce Text1, True End Sub Private Sub Text1_LostFocus() ce Text1, False End Sub Private Sub Text2_GotFocus() ce Text2, True End Sub Private Sub Text2_LostFocus() ce Text2, False End Sub
محاولة اخرى
اخي العزيز :سعود
السلام عليكم
هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
17-03-20, 07:00 AM (آخر تعديل لهذه المشاركة : 17-03-20, 07:14 AM {2} بواسطة سعود.)
إقتباس :اخي العزيز :سعود
السلام عليكم
هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
وعليكم السلام ورحمة الله وبركاته
اخي الكريم نعم اذا تم العثور على الحدثين GotFocus و LostFocus
لكن هل هذا هو المطلوب للسائل؟؟
PHP كود :
Private Sub ce(ByVal a As Control, ByVal b As Boolean) If (TypeOf a Is TextBox Or TypeOf a Is ComboBox) And (b = True) Then a.BackColor = vbYellow Else a.BackColor = vbWhite End If End Sub Private Sub Combo1_GotFocus() ce Combo1, True End Sub Private Sub Combo1_LostFocus() ce Combo1, False End Sub Private Sub Text1_GotFocus() ce Text1, True End Sub Private Sub Text1_LostFocus() ce Text1, False End Sub Private Sub Text2_GotFocus() ce Text2, True End Sub Private Sub Text2_LostFocus() ce Text2, False End Sub Private Sub Text3_GotFocus() ce Text3, True End Sub Private Sub Text3_LostFocus() ce Text3, False End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اخى الغالى انا اريد ان يتغير لون كل التكست بوكس والكومبو بوكس الموجودين بالفرم لان العدد عندى حوالى 50 تكست على كومبو بوكس لا اريد ان اضع كود خالص لكل تكست بوكس وكل كومبو بوكس اريد اناضع كود واحد لكل الكومبوبوكس والتكست مرة واحدة
إقتباس :اخي العزيز :سعود
السلام عليكم
هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
وعليكم السلام ورحمة الله وبركاته
اخي الكريم نعم اذا تم العثور على الحدثين GotFocus و LostFocus
لكن هل هذا هو المطلوب للسائل؟؟
PHP كود :
Private Sub ce(ByVal a As Control, ByVal b As Boolean) If (TypeOf a Is TextBox Or TypeOf a Is ComboBox) And (b = True) Then a.BackColor = vbYellow Else a.BackColor = vbWhite End If End Sub Private Sub Combo1_GotFocus() ce Combo1, True End Sub Private Sub Combo1_LostFocus() ce Combo1, False End Sub Private Sub Text1_GotFocus() ce Text1, True End Sub Private Sub Text1_LostFocus() ce Text1, False End Sub Private Sub Text2_GotFocus() ce Text2, True End Sub Private Sub Text2_LostFocus() ce Text2, False End Sub Private Sub Text3_GotFocus() ce Text3, True End Sub Private Sub Text3_LostFocus() ce Text3, False End Sub
اخي العزيز : سعود
السلام عليكم ةرحمة وبركاته
لكم مني جزيل الشكل والتقدير
وجزكم الله عني با الجنه يارب
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
السلام عليكم اخى الغالى اخى سعود شكرا على اقتراحك ولكن الكود الذى ارفقتة ليس المطلوب لدى لان انا طلبى ان يشمل الكود جميع التكست بوكس والكومبوبوكس بالكامل بكود واحد مثل الى انا واضعته بالاعلي وايضا يشمل اى تكست بوكس يمكن ان يضاف لاحقا
17-03-20, 10:40 PM (آخر تعديل لهذه المشاركة : 17-03-20, 11:03 PM {2} بواسطة سعود.)
(17-03-20, 06:15 PM)mhareek كتب : جزاك الله خيرا اخى الغالى على المساعدة وسرعة الرد
اخى الغالى انا اريد ان يتغير لون كل التكست بوكس والكومبو بوكس الموجودين بالفرم لان العدد عندى حوالى 50 تكست على كومبو بوكس لا اريد ان اضع كود خالص لكل تكست بوكس وكل كومبو بوكس اريد اناضع كود واحد لكل الكومبوبوكس والتكست مرة واحدة
واياك اخي الكريم
فعلا اخي الكريم فعلا هذا هو المنطق .
المتبقي الان كيف نجعل هذا كله في حدث او اجراء واحد.
ان توصلت لحل باذن الله اكتبه وكلنا ننتظر من لديه المعلومة.
وجدت الشرح التالي ولم اكمله الى الان: How to create Control Event Handler in Visual Basic 6.0
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
معذرة لم اتوصل الى حل الى الان للاسف الشديد.
بانتظار الاخوة الاكارم.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير