تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة خطأ Input string was not in a correct format
#1
السلام عليكم .اخواني لو ممكن المساعدة بحل هذه المشكلة 
جربت كتابة بعض الارقام داخل التاكست بوكسات و لكن بمجرد فتح الفورم تظهر رسالة  ( Input string was not in a correct format ) 
جزاكم الله خيرا


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 80.72 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة:
#2
و عليكم السلام و رحمة الله
استبدل الاسطر لديك بهذه 

كود :
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)
الرد
تم الشكر بواسطة: سعود , العيدروس
#3
بارك الله فيك اخي ADAM12 فعلا ضبطت معي واختفت رسالة الخطا الهي يجازيك كل خير ان شاء الله
الرد
تم الشكر بواسطة: ADAM12
#4
(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
الرد
تم الشكر بواسطة: العيدروس
#5
الف شكر بارك الله فيك مفيش اخي امكانية تحديد التاكست بكس يلي اريد جعله للارقام فقط لانه فيه تاكسات للاسم على الفورم لا يجوز تطبيق الفنكشن عليها لو سمحت
الرد
تم الشكر بواسطة:
#6
و فيك بارك الله أخي 

طبعا هنالك العديد من الطرق أولها تضمين البوكسات الخاصة بالارقام داخل كنترول آخر كأن يكون بانل أو 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
الرد
تم الشكر بواسطة: العيدروس
#7
بارك الله فيك اخي ADAM12 و فعلا استفدت من هذه الاكواد جعلها بميزان حسناتك ان شاء الله
الرد
تم الشكر بواسطة: ADAM12
#8
(28-12-20, 04:11 AM)العيدروس كتب : بارك الله فيك اخي ADAM12 و فعلا استفدت من هذه الاكواد جعلها بميزان حسناتك ان شاء الله

آمين أخي و إياك و الحمد لله الذي وفقني لذلك
الرد
تم الشكر بواسطة: العيدروس , العيدروس



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم