تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إستيضاح حول أسطر msgbox
#1
مرحبا إخوتي
لدي عدة قائمات منسدلة 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 !")
الرد
تم الشكر بواسطة:
#2
(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 لا يوجد فيها تغيير لون الكتابه

لكن ممكن تعمل فورم خاص للرسائل
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#3
(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 لا يوجد فيها تغيير لون الكتابه

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

شكرا أخي
الرد
تم الشكر بواسطة: asemshahen5
#4
(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 لا يوجد فيها تغيير لون الكتابه

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

شكرا أخي

العفو اخي
الرد
#5
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#6
(23-02-20, 11:29 PM)asemshahen5 كتب :

شكرا لك أخي
بارك الله بكم
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  msgbox mostafa12 2 427 15-10-19, 05:17 AM
آخر رد: mostafa12
  إستفسار حول msgbox ndjakoub 3 987 26-07-17, 12:50 PM
آخر رد: ndjakoub
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 871 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  Windows7 Msgbox Kian Tech 4 1,094 14-08-16, 01:48 PM
آخر رد: Kian Tech
  [VB.NET] Date & Time في msgBox visualist2015 3 1,369 24-11-15, 02:00 PM
آخر رد: visualist2015
  [سؤال] برامج بالفييجول بيسك عن msgbox+dialogbox دانيال 3 3,517 25-12-13, 11:20 PM
آخر رد: دانيال

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


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