كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 25-05-17
[attachment=14337][attachment=14338]السلام عليكم الاخوة الاحباب
عملت مشروع بسيط لعمل فلتر باستخدام ال 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 للون الاصلي اخضر
الرجاء فحص المرفقات
مع فائق الشكر
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - محمود بكرى - 26-05-17
اخي هل تقوم بالكتابة فى الداتا جريد مباشرة وله للعرض فقط
ثانيا هل تريد اختبار منطقة الرياض كمثال كاملة فى حالة وجود Escalation فى اي صف فيها وله مع كل صف فقط عند الوقوف عليه او بعد التعديل
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 26-05-17
(26-05-17, 03:32 AM)محمود بكرى كتب : اخي هل تقوم بالكتابة فى الداتا جريد مباشرة وله للعرض فقط
ثانيا هل تريد اختبار منطقة الرياض كمثال كاملة فى حالة وجود Escalation فى اي صف فيها وله مع كل صف فقط عند الوقوف عليه او بعد التعديل
اخي الحبيب
السلام عليكم وكل عام انتم بخير
1-هي للعرض والكتابة
2- اي عدد من الصفوف حتي لو صف واحد يكون فيه escalation في عمود ال type امام المدينة
ولتكن الرياض مثلا يكون buton الرياض باللون الاحمر , يعني لازم تكون كل الصفوف امام الرياض ليس فيها escalation
حتي يعود ال button للون الاخضر
وكذلك للمدن الاخري
مع الشكر والاحترام
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - محمود بكرى - 26-05-17
السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث
كود :
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 سوف يحمر الزر
المرفق
[attachment=14341]
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 26-05-17
(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 سوف يحمر الزر
المرفق
الف الف مليون شكر اخي الحبيب محمود بكرى
كله تمام وتسلم ايديك يارب
وكل عام وانتم بالف خير يارب
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 17-06-17
(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 الي اللون الاحمر من غير ما اقفل البرنامج
الرجاء المساعدة مع الشكر
المشروع في المرفقات
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 18-06-17
(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 الي اللون الاحمر من غير ما اقفل البرنامج
الرجاء المساعدة مع الشكر
المشروع في المرفقات
السلام عليكم احبابي
انا في انتظار الرد من حضراتكم للاهمية
مع جزيل الشكر
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 19-06-17
(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 الي اللون الاحمر من غير ما اقفل البرنامج
الرجاء المساعدة مع الشكر
المشروع في المرفقات
السلام عليكم احبابي
انا في انتظار الرد من حضراتكم للاهمية
مع جزيل الشكر
السلام عليكم احبابي
انا في انتظار الرد من حضراتكم للاهمية
مع جزيل الشكر
RE: كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو - khaled12345 - 20-06-17
(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 الي اللون الاخضر وهذا لم يتم للاسف
فبرجاء المساعدة
مع الشكر
|