المشاركات : 90
المواضيع 30
الإنتساب : Mar 2019
السمعة :
2
الشكر: 95
تم شكره 72 مرات في 36 مشاركات
شكرًا جزيلا استاذ ابراهيم ايبو الله يبارك بيك???
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(08-03-19, 10:52 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
لاشكر على واجب
ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ
بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
Select Case e.KeyChar
Case "0" To "9", ".", ControlChars.Back
e.Handled = False
If TextBox1.Text = "0" Then
TextBox1.Text = "0"
ElseIf TextBox2.Text = "0" Then
TextBox2.Text = "0"
End If
Case Else
e.Handled = True
End Select
End Sub
احسنت اخي إبراهيم ايبو
هو كذا المبرمج يتخيل أشياء ربما تحصل وربما لا تحصل ،، وعلى المبرمج حلها قبل حصولها وهو الأفضل ...
ولكن ماذا لو قام المستخدم بنسخ عدد اربعه ارقام ولصقها في التكست بوكس ؟؟؟؟؟؟
أتوقع إضافة شرط 2 < قبل تنفيذ كودك لحكر الموضوع
كود :
If TextBox1.Text.Length > 2 TextBox1.Text = "" : Exit Sub
ثم وضع كودك ،،
If TextBox1.Text.Length = 2 Then ........
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
تسلم اخي إبراهيم ممكن تستفيد مني بمعلومة وممكن استفيد منك بعشرة .
المعرفة ليست لشخص واحد ..
والعلم بحر
بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما