تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb خط MsgBox أبو خالد الشكري 4 321 24-11-23, 01:16 PM
آخر رد: أبو خالد الشكري
Exclamation [VB.NET] فكرة برمجية لنقل أسطر قاعدة البيانات بشكل مستمر sniperjawadino 2 1,493 13-05-21, 08:32 PM
آخر رد: sniperjawadino
  msgbox mostafa12 2 1,333 15-10-19, 05:17 AM
آخر رد: mostafa12
  إستفسار حول msgbox ndjakoub 3 2,318 26-07-17, 12:50 PM
آخر رد: ndjakoub
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 1,989 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  Windows7 Msgbox Kian Tech 4 2,024 14-08-16, 01:48 PM
آخر رد: Kian Tech
  [VB.NET] Date & Time في msgBox visualist2015 3 2,454 24-11-15, 02:00 PM
آخر رد: visualist2015
  [سؤال] برامج بالفييجول بيسك عن msgbox+dialogbox دانيال 3 4,758 25-12-13, 11:20 PM
آخر رد: دانيال

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


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