26-05-20, 03:44 AM
(آخر تعديل لهذه المشاركة : 26-05-20, 03:50 AM {2} بواسطة معاند الحظ.)
اخي استبدل الكود الخاص بحدث الضغط على زر بوتون 7 بالتالي
اخي الكريم
المشكلة هو ان استخدام الدالة val يعيد الارقام الموجودة قي التكست بوكس الى ان يجد قيمة غير رقمية كالفاصلة
اي انه يعيد فقط الارقام التي قبل الفاصلة وهي في حالتك الرقم 3
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
If TextBox7.Text = "" Then
TextBox7.Text = 0
End If
TextBox7.Text = CDbl(TextBox7.Text) + 3000
End Sub
اخي الكريم
المشكلة هو ان استخدام الدالة val يعيد الارقام الموجودة قي التكست بوكس الى ان يجد قيمة غير رقمية كالفاصلة
اي انه يعيد فقط الارقام التي قبل الفاصلة وهي في حالتك الرقم 3