+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : numericupdowntool (/showthread.php?tid=21807)
numericupdowntool - تناسيم - 20-09-17
السلام عليكم
اريد اظهار رسالة خطأ قبل الحفظ لو قيمة الnumericupdowntool اكبر من 100
فانا اكتب الرسالة الاتية
If RadioButton4.Checked = True And NumericUpDown1.Text > 100 Then
MessageBox.Show("أقصى عدد للاقساط 100", MessageBoxButtons.OK)
Exit Sub
End If
وبالفعل اضع رقم 200 في خانة الاداة والمفترض يعترض ولكنه لا يعترض ويقوم بالحفظ ويحفظها 100 حيث اني اضع حد اقصى =100 في خصائص الاداة
ولكن ما اريده هو اظهار رسالة الخطا التي تنبه اليوزر انه يقوم بحفظ 200 داخل الخانة وعليه تغيير الرقم
RE: numericupdowntool - أبو نوره - 20-09-17
مرحبا اخى
طيب ليه ما تضع حد اعلى في الخاصيه Maximum الخاصه بالاداه NumericUpDown1 وتضمن ان يتجاوز الحد الاقصى
RE: numericupdowntool - تناسيم - 20-09-17
(20-09-17, 01:03 PM)أبو نوره كتب : مرحبا اخى
طيب ليه ما تضع حد اعلى في الخاصيه Maximum الخاصه بالاداه NumericUpDown1 وتضمن ان يتجاوز الحد الاقصى
تمام انا اضع حد اعلى في خاصية maximum الخاصة بالاداة NumericUpDown1 رقم 100 ولكني اريد توضيح هذا لليوزر لو كان يرغب في وضع 101 او 200 مثلا ان ينبهه انه سوف يتم حفظ 100 كحد اقصى لو المدخل اكبر من 100
RE: numericupdowntool - عبقرينو - 20-09-17
السلام عليكم
أخي جرب هذه الطريقة وأتمنى تظبط معاك لأني جربتها قبل ما أرسلها إليك وكانت ناجحة
الطريقة:
If RadioButton4.Checked = True And NumericUpDown1.Text > 100 Then
MsgBox("أقصى عدد للاقساط 100", MessageBoxButtons.OK)
Exit Sub
End If
وممكن تضيف ليها الآتي:
If RadioButton4.Checked = True And NumericUpDown1.Text > 100 Then
MsgBox("أقصى عدد للاقساط 100", MessageBoxButtons.OK)
Exit Sub
Else
MsgBox("تم الحفظ")
End If
مع مراعاة تغيير اللغة يعني كلمة (MsgBox) تكون في الأول بعدين الأقواس ثم "أقصى عدد للاقساط 100" ثم MessageBoxButtons.OK بعدها باقي الكود..
RE: numericupdowntool - أبو نوره - 20-09-17
مرحبا اخى
استخدم الحدث KeyUp
PHP كود :
Private Sub NumericUpDown1_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles NumericUpDown1.KeyUp
If Val(sender.Text) > sender.Maximum Then
MsgBox("سوف يتم حفظ " & sender.Maximum & " كحد اقصى")
End If
End Sub