تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال عن تلوين مربع نص
#1
السلام عليكم
اريد عند الضغط على اى تكست موجود فى الفورم  يتحول لون خلفية التكست بوكس الى الاصفر
انا جربت هذا الكود   ولكن اعطانى خطا      
ارجوتعديل الكود اساتذتى الكرام   ولكم جزيل الشكر

كود :
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
       
         End If
     Next C
End Function
  اعتقد الخطاء فى     جملة  c_gotfocus            

كيف اضعها واين 

ارجو المساعدة جزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2

PHP كود :
Private Sub ce(ByVal a As Control)
If (
TypeOf a Is TextBox) Or (TypeOf a Is LabelThen
a
.BackColor vbYellow
End 
If
End Sub
Private Sub Label1_Click()
ce Label1
End Sub
Private Sub Text1_Click()
ce Text1
End Sub 







  لقد استعجلت بالجوابSmile فمعذة اخي الكريم .
ان تمكنت من معرفة الحل باذن الله اكتبه.
وبانتظار الاخوة.


محاولة اخرى


PHP كود :
Private Sub ce(ByVal a As ControlByVal b As Boolean)
If (
TypeOf a Is TextBox And TrueThen
a
.BackColor vbYellow
Else
a.BackColor vbWhite
End 
If
End Sub
Private Sub Text1_GotFocus()
ce Text1True
End Sub
Private Sub Text1_LostFocus()
ce Text1False
End Sub
Private Sub Text2_GotFocus()
ce Text2True
End Sub
Private Sub Text2_LostFocus()
ce Text2False
End Sub 
محاولة اخرى 
[صورة مرفقة: portscanner.png]
الرد
#3
Question 
(17-03-20, 03:06 AM)سعود كتب :

PHP كود :
Private Sub ce(ByVal a As Control)
If (
TypeOf a Is TextBox) Or (TypeOf a Is LabelThen
a
.BackColor vbYellow
End 
If
End Sub
Private Sub Label1_Click()
ce Label1
End Sub
Private Sub Text1_Click()
ce Text1
End Sub 







  لقد استعجلت بالجوابSmile فمعذة اخي الكريم .
ان تمكنت من معرفة الحل باذن الله اكتبه.
وبانتظار الاخوة.


محاولة اخرى


PHP كود :
Private Sub ce(ByVal a As ControlByVal b As Boolean)
If (
TypeOf a Is TextBox And TrueThen
a
.BackColor vbYellow
Else
a.BackColor vbWhite
End 
If
End Sub
Private Sub Text1_GotFocus()
ce Text1True
End Sub
Private Sub Text1_LostFocus()
ce Text1False
End Sub
Private Sub Text2_GotFocus()
ce Text2True
End Sub
Private Sub Text2_LostFocus()
ce Text2False
End Sub 
محاولة اخرى 

اخي العزيز :سعود
السلام عليكم
 هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة: سعود
#4
إقتباس :اخي العزيز :سعود
السلام عليكم
 هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
وعليكم السلام ورحمة الله وبركاته
اخي الكريم نعم اذا تم العثور على الحدثين GotFocus  و   LostFocus
لكن هل هذا هو المطلوب للسائل؟؟

PHP كود :
Private Sub ce(ByVal a As ControlByVal b As Boolean)
If (
TypeOf a Is TextBox Or TypeOf a Is ComboBox) And (TrueThen
a
.BackColor vbYellow
Else
a.BackColor vbWhite
End 
If
End Sub
Private Sub Combo1_GotFocus()
ce Combo1True
End Sub
Private Sub Combo1_LostFocus()
ce Combo1False
End Sub
Private Sub Text1_GotFocus()
ce Text1True
End Sub
Private Sub Text1_LostFocus()
ce Text1False
End Sub
Private Sub Text2_GotFocus()
ce Text2True
End Sub
Private Sub Text2_LostFocus()
ce Text2False
End Sub
Private Sub Text3_GotFocus()
ce Text3True
End Sub
Private Sub Text3_LostFocus()
ce Text3False
End Sub 


الملفات المرفقة
.zip   focus_Test.zip (الحجم : 1.82 ك ب / التحميلات : 6)
[صورة مرفقة: portscanner.png]
الرد
#5
جزاك الله خيرا اخى الغالى على المساعدة وسرعة الرد


اخى الغالى انا اريد ان يتغير لون كل التكست بوكس والكومبو بوكس الموجودين بالفرم لان العدد عندى حوالى 50 تكست على كومبو بوكس لا اريد ان اضع كود خالص لكل تكست بوكس وكل كومبو بوكس اريد اناضع كود واحد لكل الكومبوبوكس والتكست مرة واحدة
الرد
تم الشكر بواسطة: asemshahen5 , سعود
#6
(17-03-20, 07:00 AM)سعود كتب :
إقتباس :اخي العزيز :سعود
السلام عليكم
 هل يمكن تطبيق الفكره على ComboBox بدل من text ؟؟
تحياتي
وعليكم السلام ورحمة الله وبركاته
اخي الكريم نعم اذا تم العثور على الحدثين GotFocus  و   LostFocus
لكن هل هذا هو المطلوب للسائل؟؟

PHP كود :
Private Sub ce(ByVal a As ControlByVal b As Boolean)
If (
TypeOf a Is TextBox Or TypeOf a Is ComboBox) And (TrueThen
a
.BackColor vbYellow
Else
a.BackColor vbWhite
End 
If
End Sub
Private Sub Combo1_GotFocus()
ce Combo1True
End Sub
Private Sub Combo1_LostFocus()
ce Combo1False
End Sub
Private Sub Text1_GotFocus()
ce Text1True
End Sub
Private Sub Text1_LostFocus()
ce Text1False
End Sub
Private Sub Text2_GotFocus()
ce Text2True
End Sub
Private Sub Text2_LostFocus()
ce Text2False
End Sub
Private Sub Text3_GotFocus()
ce Text3True
End Sub
Private Sub Text3_LostFocus()
ce Text3False
End Sub 

اخي العزيز : سعود
 السلام عليكم ةرحمة وبركاته
 لكم مني جزيل الشكل والتقدير
وجزكم الله عني با الجنه يارب
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة: سعود
#7
السلام عليكم اخى الغالى اخى سعود شكرا على اقتراحك ولكن الكود الذى ارفقتة ليس المطلوب لدى لان انا طلبى ان يشمل الكود جميع التكست بوكس والكومبوبوكس بالكامل بكود واحد مثل الى انا واضعته بالاعلي وايضا يشمل اى تكست بوكس يمكن ان يضاف لاحقا



ارجو المساعده اخوانى الاحباب وجزاكم الله خيرا
الرد
تم الشكر بواسطة: سعود
#8
(17-03-20, 06:15 PM)mhareek كتب : جزاك الله خيرا اخى الغالى على المساعدة وسرعة الرد


اخى الغالى    انا اريد ان يتغير لون كل التكست بوكس والكومبو بوكس     الموجودين بالفرم لان العدد عندى حوالى 50 تكست على كومبو بوكس     لا اريد ان اضع كود خالص لكل تكست بوكس وكل كومبو بوكس   اريد اناضع كود واحد لكل الكومبوبوكس والتكست   مرة واحدة

واياك اخي الكريم
فعلا  اخي الكريم  فعلا هذا هو المنطق .
المتبقي الان كيف نجعل هذا كله في حدث او اجراء  واحد.
ان توصلت لحل باذن الله اكتبه وكلنا ننتظر من لديه المعلومة.

وجدت الشرح التالي ولم اكمله الى الان:
How to create Control Event Handler in Visual Basic 6.0
[صورة مرفقة: portscanner.png]
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#9
معذرة لم اتوصل الى حل الى الان للاسف الشديد.
بانتظار الاخوة الاكارم.
[صورة مرفقة: portscanner.png]
الرد
تم الشكر بواسطة:
#10
ارجوا التوضيح اخى الغالى ولو وضعت الكود يكون خير اخى الغالى
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم