15-09-20, 09:24 PM
(15-09-20, 08:39 PM)Anas Mahmoud كتب : بقي ان انوه انه لايجب عليك ابدا استخدام val ، انتهى وقتها للابد
لانها لاتعطيك اي افادة بان النص قابل للتحويل لرقم ام لا
والاصح بدلا من Cdec استخدام Decimal.Parse لانها مختصة بال نصوص String ، ولانها تتيح TryParse التي تمكنك من التحقق من النص المدخل
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim deposit As Decimal
If Decimal.TryParse(TextBox1.Text, deposit) = False Then
MsgBox("ادخل رقم سليم")
Return
End If
Form2.TextBox1.Text = deposit.ToString("c")
Form2.Total += deposit
Form2.TextBox2.Text = Form2.Total.ToString("c")
Form2.Show()
End Sub
تسلم يا غالي
بارك الله فيك ونفعك بعلمك