السلام عليكم .اخواني لو ممكن المساعدة بحل هذه المشكلة
جربت كتابة بعض الارقام داخل التاكست بوكسات و لكن بمجرد فتح الفورم تظهر رسالة ( Input string was not in a correct format )
جزاكم الله خيرا
28-12-20, 02:37 AM (آخر تعديل لهذه المشاركة : 28-12-20, 02:37 AM {2} بواسطة 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
(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
الف شكر بارك الله فيك مفيش اخي امكانية تحديد التاكست بكس يلي اريد جعله للارقام فقط لانه فيه تاكسات للاسم على الفورم لا يجوز تطبيق الفنكشن عليها لو سمحت
28-12-20, 03:46 AM (آخر تعديل لهذه المشاركة : 28-12-20, 03:47 AM {2} بواسطة 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