تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو
#1

.rar   SMS30.rar (الحجم : 124.33 ك ب / التحميلات : 22)     السلام عليكم الاخوة الاحباب 




عملت مشروع بسيط لعمل فلتر باستخدام ال Bvuttons



والمطلوب جعل لون ال Button  يصبح احمر في حال  كتبنا Escalation في عمود ال Type



بمعني اذا كان في عمود ال Area  مثلا مذكور الرياض ومقابلة عمود ال Type  موجود Escalation



فيكون ال Button  لونه أحمر 



واذا لا توجد Escalation   يعود ال Button  للون الاصلي اخضر 



الرجاء فحص المرفقات 



مع فائق الشكر 

(25-05-17, 05:13 PM)khaled12345 كتب : السلام عليكم الاخوة الاحباب 



عملت مشروع بسيط لعمل فلتر باستخدام ال Bvuttons



والمطلوب جعل لون ال Button  يصبح احمر في حال  كتبنا Escalation في عمود ال Type



بمعني اذا كان في عمود ال Area  مثلا مذكور الرياض ومقابلة عمود ال Type  موجود Escalation



فيكون ال Button  لونه أحمر 



واذا لا توجد Escalation   يعود ال Button  للون الاصلي اخضر 



الرجاء فحص المرفقات 



مع فائق الشكر 

(25-05-17, 05:13 PM)khaled12345 كتب : السلام عليكم الاخوة الاحباب 



عملت مشروع بسيط لعمل فلتر باستخدام ال Bvuttons



والمطلوب جعل لون ال Button  يصبح احمر في حال  كتبنا Escalation في عمود ال Type



بمعني اذا كان في عمود ال Area  مثلا مذكور الرياض ومقابلة عمود ال Type  موجود Escalation



فيكون ال Button  لونه أحمر 



واذا لا توجد Escalation   يعود ال Button  للون الاصلي اخضر 



الرجاء فحص المرفقات 



مع فائق الشكر 

(25-05-17, 05:13 PM)khaled12345 كتب : السلام عليكم الاخوة الاحباب 



عملت مشروع بسيط لعمل فلتر باستخدام ال Bvuttons



والمطلوب جعل لون ال Button  يصبح احمر في حال  كتبنا Escalation في عمود ال Type



بمعني اذا كان في عمود ال Area  مثلا مذكور الرياض ومقابلة عمود ال Type  موجود Escalation



فيكون ال Button  لونه أحمر 



واذا لا توجد Escalation   يعود ال Button  للون الاصلي اخضر 



الرجاء فحص المرفقات 



مع فائق الشكر 
الرد }}}}
تم الشكر بواسطة:
#2
اخي هل تقوم بالكتابة فى الداتا جريد مباشرة وله للعرض فقط
ثانيا هل تريد اختبار منطقة الرياض كمثال كاملة فى حالة وجود Escalation فى اي صف فيها وله مع كل صف فقط عند الوقوف عليه او بعد التعديل
الرد }}}}
تم الشكر بواسطة:
#3
(26-05-17, 03:32 AM)محمود بكرى كتب : اخي هل تقوم بالكتابة فى الداتا جريد مباشرة وله للعرض فقط
ثانيا هل تريد اختبار منطقة الرياض كمثال كاملة فى حالة وجود Escalation فى اي صف فيها وله مع كل صف فقط عند الوقوف عليه او بعد التعديل

 اخي الحبيب

السلام عليكم وكل عام انتم بخير

1-هي للعرض والكتابة
2- اي عدد من الصفوف حتي لو صف واحد يكون فيه escalation  في عمود ال type امام المدينة

ولتكن الرياض مثلا يكون buton  الرياض باللون الاحمر , يعني لازم تكون كل الصفوف امام الرياض ليس فيها escalation 

حتي يعود ال button  للون الاخضر

وكذلك للمدن الاخري

مع الشكر والاحترام
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق

.rar   SMS31.rar (الحجم : 140.5 ك ب / التحميلات : 27)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Amir_alzubidy
#5
(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق


الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب
الرد }}}}
تم الشكر بواسطة: محمود بكرى , Amir_alzubidy
#6
(26-05-17, 08:30 PM)khaled12345 كتب :
(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق


الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب


السلام عليكم الاخوة الاحباب

بخصوص المشروع المرفق

اريد المساعدة في هذا الامر من فضلكم

المشروع كان عبارة عن تغير لون ال Button  الي اللون الاحمر  لو كان مكتوب في عمود ال Type  كلمة  Escalation

وهو فعلا يعمل ولكن اضفت عدد 2 Button  واحد للتخزين وواحد لعمل Refresh

فحينما اكتب من الفور في الداتا جريد فيو كلمة Escalation

واعمل  save  و refresh  لا يتغير اللون الا اذا اغلقت البرنامج وفتحته مرة اخري

المطلوب ان يتغير لون ال Button   الي اللون الاحمر من غير ما اقفل البرنامج

الرجاء المساعدة مع الشكر

المشروع في المرفقات


الملفات المرفقة
.rar   تغير لون الكومبوبوكس.rar (الحجم : 165.33 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#7
(17-06-17, 12:42 AM)khaled12345 كتب :
(26-05-17, 08:30 PM)khaled12345 كتب :
(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق


الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب


السلام عليكم الاخوة الاحباب

بخصوص المشروع المرفق

اريد المساعدة في هذا الامر من فضلكم

المشروع كان عبارة عن تغير لون ال Button  الي اللون الاحمر  لو كان مكتوب في عمود ال Type  كلمة  Escalation

وهو فعلا يعمل ولكن اضفت عدد 2 Button  واحد للتخزين وواحد لعمل Refresh

فحينما اكتب من الفور في الداتا جريد فيو كلمة Escalation

واعمل  save  و refresh  لا يتغير اللون الا اذا اغلقت البرنامج وفتحته مرة اخري

المطلوب ان يتغير لون ال Button   الي اللون الاحمر من غير ما اقفل البرنامج

الرجاء المساعدة مع الشكر

المشروع في المرفقات


السلام عليكم احبابي

انا في انتظار الرد من حضراتكم للاهمية

مع جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#8
(18-06-17, 01:41 PM)khaled12345 كتب :
(17-06-17, 12:42 AM)khaled12345 كتب :
(26-05-17, 08:30 PM)khaled12345 كتب :
(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق


الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب


السلام عليكم الاخوة الاحباب

بخصوص المشروع المرفق

اريد المساعدة في هذا الامر من فضلكم

المشروع كان عبارة عن تغير لون ال Button  الي اللون الاحمر  لو كان مكتوب في عمود ال Type  كلمة  Escalation

وهو فعلا يعمل ولكن اضفت عدد 2 Button  واحد للتخزين وواحد لعمل Refresh

فحينما اكتب من الفور في الداتا جريد فيو كلمة Escalation

واعمل  save  و refresh  لا يتغير اللون الا اذا اغلقت البرنامج وفتحته مرة اخري

المطلوب ان يتغير لون ال Button   الي اللون الاحمر من غير ما اقفل البرنامج

الرجاء المساعدة مع الشكر

المشروع في المرفقات


السلام عليكم احبابي

انا في انتظار الرد من حضراتكم للاهمية

مع جزيل الشكر

السلام عليكم احبابي

انا في انتظار الرد من حضراتكم للاهمية

مع جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#9
(19-06-17, 11:22 PM)khaled12345 كتب :
(18-06-17, 01:41 PM)khaled12345 كتب :
(17-06-17, 12:42 AM)khaled12345 كتب :
(26-05-17, 08:30 PM)khaled12345 كتب :
(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 
كود :
Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق


الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب


السلام عليكم الاخوة الاحباب

بخصوص المشروع المرفق

اريد المساعدة في هذا الامر من فضلكم

المشروع كان عبارة عن تغير لون ال Button  الي اللون الاحمر  لو كان مكتوب في عمود ال Type  كلمة  Escalation

وهو فعلا يعمل ولكن اضفت عدد 2 Button  واحد للتخزين وواحد لعمل Refresh

فحينما اكتب من الفور في الداتا جريد فيو كلمة Escalation

واعمل  save  و refresh  لا يتغير اللون الا اذا اغلقت البرنامج وفتحته مرة اخري

المطلوب ان يتغير لون ال Button   الي اللون الاحمر من غير ما اقفل البرنامج

الرجاء المساعدة مع الشكر

المشروع في المرفقات


السلام عليكم احبابي

انا في انتظار الرد من حضراتكم للاهمية

مع جزيل الشكر

السلام عليكم الاخوة الاحباب

الحمد لله اتحلت المشكلة فالان حينما اكتب كلمة escalation 

يتغير لون ال Button  الي الاحمر دون اغلاق الفورم

ولكن يبقي لو غيرت كلمة Escalation الي أي كلمة اخري يجب

ان يعود ال button  الي اللون الاخضر وهذا لم يتم للاسف

فبرجاء المساعدة

مع الشكر


الملفات المرفقة
.rar   تغير لون الكومبوبوكس.rar (الحجم : 166.19 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 18 23-09-17, 03:21 AM
آخر رد: e-coder
  مشكلة الفورم الشفاف محمود صالح 5 186 22-09-17, 12:47 AM
آخر رد: Fantastico
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 50 19-09-17, 03:48 PM
آخر رد: أبو نوره
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 806 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  كيفية دمج جدول المبيعات والمشتريات وحساب عدد المشتريات والمبيعات والمثال مرفق كصورة max_1978 3 342 17-09-17, 01:05 AM
آخر رد: Rabeea Qbaha
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 29 16-09-17, 04:24 PM
آخر رد: e-coder
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 136 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  أي نوع من أنواع الاستضافة هو اللي احتاجة؟! أسامة السالمي 4 131 13-09-17, 10:58 PM
آخر رد: السندبااد
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 139 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 87 11-09-17, 06:57 PM
آخر رد: The Light Fire

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


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