[عاشق الرسول]

اريد أن يمنع البرنامج من الحساب إذا كان الناتج بين TEXTBOX1 , TEXTBOX2 بالسالب
وجزاكم الله خيراً

---

أرجو المساعدة

[princelovelorn]

السلام عليكم ورحمة الله وبركاته

ما رأيك في التحقق أولا من قيمة الحقلين

بمعنى إن كان قيمة TEXTBOX1   أكبر من قيمة  TEXTBOX2  البرنامج يكمل العملية

وإن كان قيمة TEXTBOX1   أقل من قيمة  TEXTBOX2 البرنامج يوقف العملية

كمثال الكود التالي

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Val(TextBox1.Text) < Val(TextBox2.Text) Then
           ' الناتج سيكون بالسالب
           MsgBox(" العملية غير صحيحة ")
           Exit Sub
       Else
           ' الناتج سيكون بالموجب
           MsgBox(" العملية صحيحة ")

           ' ضع العلميات الحسابية التي تريدها هنا
           TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
       End If
   End Sub

تمنياتي لك بالتوفيق والنجاح