17-04-20, 03:20 AM
(آخر تعديل لهذه المشاركة : 17-04-20, 03:22 AM {2} بواسطة كريم عبودي.)
(17-04-20, 12:31 AM)aljzazy كتب : في حدث keydown للتكست بوكس 2 ضع الكود التالي
اي بعد اخال نسبة الخصم بالتكست بوكس2 والضغط على انتر
كود :
If e.KeyCode = Keys.Enter Then
Dim a, b, c As Decimal
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a * b / 100
TextBox1.Text = a - c
End If
اساتذتي الكرام هذه الصور مثال لما اريده ولكم جزيل الشكر والتقدير والاحترام وجمعة مباركة
المفروض عندما اكتب الخصم 10 يكون السعر 545.545454
يعني 600/1.10