[العيدروس]

السلام عليكم .اخواني لو ممكن المساعدة بحل هذه المشكلة 
جربت كتابة بعض الارقام داخل التاكست بوكسات و لكن بمجرد فتح الفورم تظهر رسالة  ( Input string was not in a correct format ) 
جزاكم الله خيرا

[ADAM12]

و عليكم السلام و رحمة الله
استبدل الاسطر لديك بهذه 

كود :

Dim First_Total As Decimal = 0.0
       Dim Second_Total As Decimal = 0.0
       Dim Third_Total As Decimal = 0.0

       If Not TextBox1.Text = "" And Not TextBox2.Text = "" And Not TextBox3.Text = "" Then
           First_Total = TextBox1.Text
           Second_Total = TextBox2.Text
           Third_Total = TextBox3.Text
       End If
       
     
       Me.TextBox4.Text = String.Format("{0:N2}", First_Total - Second_Total + Third_Total)

[العيدروس]

بارك الله فيك اخي ADAM12 فعلا ضبطت معي واختفت رسالة الخطا الهي يجازيك كل خير ان شاء الله

[ADAM12]

(28-12-20, 02:55 AM)العيدروس كتب : بارك الله فيك اخي ADAM12 فعلا ضبطت معي واختفت رسالة الخطا الهي يجازيك كل خير ان شاء الله

تستاهل كل خير أخي 
تفضل بإضافة هذه الأكواد  للسماح باستخدام الأرقام فقط بالتكست بوكس 
مع ملاحظة أنو الفنكشن سيتم تطبيقه على على تكست بوكس موجود بالفورم بشكل اوتوماتيكي 

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       For Each ctrl In Me.Controls
           If (TypeOf ctrl Is TextBox) Then _
              AddHandler DirectCast(ctrl, TextBox).KeyPress, AddressOf AllowNumeric
       Next
   End Sub

   Private Sub AllowNumeric(ByVal o As [Object], ByVal e As KeyPressEventArgs)
       If Not Char.IsNumber(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) AndAlso Not e.KeyChar = "." Then
           e.Handled = True
       End If
   End Sub

[العيدروس]

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

[ADAM12]

و فيك بارك الله أخي 

طبعا هنالك العديد من الطرق أولها تضمين البوكسات الخاصة بالارقام داخل كنترول آخر كأن يكون بانل أو GROUPBOX
و أسهلها أنك تعطي التكست بوكس الخاص بالارقام اسماءا تحتوي مثلا على العبارة NUM و تغير على الشرط بالــ form load
ليصيح هكذا 

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       For Each ctrl In Me.Controls
           If (TypeOf ctrl Is TextBox) Then
               If ctrl.NAME.Contains("NUM") Then
                   AddHandler DirectCast(ctrl, TextBox).KeyPress, AddressOf AllowNumeric
               End If
           End If
       Next
   End Sub

[العيدروس]

بارك الله فيك اخي ADAM12 و فعلا استفدت من هذه الاكواد جعلها بميزان حسناتك ان شاء الله

[ADAM12]

(28-12-20, 04:11 AM)العيدروس كتب : بارك الله فيك اخي ADAM12 و فعلا استفدت من هذه الاكواد جعلها بميزان حسناتك ان شاء الله

آمين أخي و إياك و الحمد لله الذي وفقني لذلك