منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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