23-02-20, 08:15 PM
(آخر تعديل لهذه المشاركة : 23-02-20, 08:31 PM {2} بواسطة Fadi Mzannar.)
مرحبا إخوتي
لدي عدة قائمات منسدلة combobox
وفي كل قائمة بيانات محددة
بعد إدخال البيانات و الضغط على زر الحفظ يقوم الكود بفحص البيانات إذا كانت موجودة أصلا في تلك القائمات أم لا
وبعدها يرسل لي رسالة مبرمجة مسبقا وقد وضعت في كل سطر إسم القائمة والنص المدخل حديثا , إلخ
السؤال : هل يمكنني تلوين كل سطر بلون مختلف ؟ وهل يمكنني وضع شرط لكل سطر لكي يتلون أو لا ؟
مشكورين سلفا
لدي عدة قائمات منسدلة combobox
وفي كل قائمة بيانات محددة
بعد إدخال البيانات و الضغط على زر الحفظ يقوم الكود بفحص البيانات إذا كانت موجودة أصلا في تلك القائمات أم لا
وبعدها يرسل لي رسالة مبرمجة مسبقا وقد وضعت في كل سطر إسم القائمة والنص المدخل حديثا , إلخ
السؤال : هل يمكنني تلوين كل سطر بلون مختلف ؟ وهل يمكنني وضع شرط لكل سطر لكي يتلون أو لا ؟
مشكورين سلفا
كود :
Dim c, t, b, p As Object
If Code.SelectedIndex = -1 Then
c = L_Code.Text & " Error: " & Code.Text.Trim.ToUpper
Else
c = L_Code.Text & " Good: " & Code.Text.Trim.ToUpper
End If
If Type.SelectedIndex = -1 Then
t = L_Type.Text & " Error: " & Type.Text.Trim.ToUpper
Else
t = L_Type.Text & " Good: " & Type.Text.Trim.ToUpper
End If
If Brand.SelectedIndex = -1 Then
b = L_Brand.Text & " Error: " & Brand.Text.Trim.ToUpper
Else
b = L_Brand.Text & " Good: " & Brand.Text.Trim.ToUpper
End If
If Properties.SelectedIndex = -1 Then
p = L_Properties.Text & " Error: " & Properties.Text.Trim.ToUpper
Else
p = L_Properties.Text & " Good: " & Properties.Text.Trim.ToUpper
End If
MsgBox("حضرة المستخدم إنتبه هنالك خطأ ! البيانات التي أدخلتها في إحدى الخانات التالية أو أكثر غير موجودة في القوائم المخصصة لها" & vbNewLine & "Good(البيانات صحيحة)" & vbNewLine & "Error(البيانات غير صحيحة)" & vbNewLine & vbNewLine & "(" & c & ") =" & vbNewLine & "(" & t & ") =" & vbNewLine & "(" & b & ") =" & vbNewLine & "(" & p & ") =", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, Title:="Warning !")