[حريف برمجة]

(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 ........