منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احتاج تركيب كود - نسخة قابلة للطباعة

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

احتاج تركيب كود - hglogtd - 12-02-18

السلام عليكم 


يعطيكم العافيه 


ابي اركب كود وما ضبط معي 


RadioButton1 و RadioButton2

بالنسبة RadioButton1 تمام 

وبالنسبة RadioButton2 احتاج انفذ شرط اذا textbox1 اقل من textbox2 يعطي رسالة لا يسمح الرصيد 

او ينفذ المحاسبة



كود :
       If RadioButton1.Checked = True Then
           RadioButton2.Enabled = False

           Amount_remainigTextBox.Text = Val(Amount_remainigTextBox.Text) - Val(Discount_amountTextBox.Text)
           MsgBox("تم تسجيل التنازل")
           Exit Sub
       End If

       If RadioButton2.Checked = True Then
           RadioButton1.Enabled = False



       ElseIf textbox1.Text = Val(textbox1.Text) < Val(textbox2.Text) Then
           MsgBox("مبلغ الخصم أعلى من المبلغ المتوفر")
       Else
           MsgBox("ok")
           (textbox1.Text = Val(textbox1.Text) - Val(textbox2.Text)
           MsgBox("تم التحويل")



       End If


RE: احتاج تركيب كود - محمود صالح - 12-02-18

غير ElseIf الى if فقط 
مع وضع end if اخرى

RE: احتاج تركيب كود - hglogtd - 12-02-18

شكرا لك انحلت المشكله