[VB.NET] إستيضاح حول أسطر msgbox - نسخة قابلة للطباعة

[VB.NET] إستيضاح حول أسطر msgbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إستيضاح حول أسطر msgbox (/showthread.php?tid=33522)

إستيضاح حول أسطر msgbox - Fadi Mzannar - 23-02-20

مرحبا إخوتي
لدي عدة قائمات منسدلة 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 !")

RE: إستيضاح حول أسطر msgbox - alsalamoni - 23-02-20

(23-02-20, 08:15 PM)Fadi Mzannar كتب : مرحبا إخوتي
لدي عدة قائمات منسدلة 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 !")

ال MsgBox او MessageBox لا يوجد فيها تغيير لون الكتابه

لكن ممكن تعمل فورم خاص للرسائل

RE: إستيضاح حول أسطر msgbox - Fadi Mzannar - 23-02-20

(23-02-20, 09:40 PM)alsalamoni كتب :
(23-02-20, 08:15 PM)Fadi Mzannar كتب : مرحبا إخوتي
لدي عدة قائمات منسدلة 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 !")

ال MsgBox او MessageBox لا يوجد فيها تغيير لون الكتابه

لكن ممكن تعمل فورم خاص للرسائل

شكرا أخي

RE: إستيضاح حول أسطر msgbox - alsalamoni - 23-02-20

(23-02-20, 09:49 PM)Fadi Mzannar كتب :
(23-02-20, 09:40 PM)alsalamoni كتب :
(23-02-20, 08:15 PM)Fadi Mzannar كتب : مرحبا إخوتي
لدي عدة قائمات منسدلة 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 !")

ال MsgBox او MessageBox لا يوجد فيها تغيير لون الكتابه

لكن ممكن تعمل فورم خاص للرسائل

شكرا أخي

العفو اخي

RE: إستيضاح حول أسطر msgbox - asemshahen5 - 23-02-20

إصنع مسج بوكس خاصة بك .

RE: إستيضاح حول أسطر msgbox - Fadi Mzannar - 25-02-20

(23-02-20, 11:29 PM)asemshahen5 كتب :
إصنع مسج بوكس خاصة بك .

شكرا لك أخي
بارك الله بكم