تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس
#1
السلام عليكم قمت بكتابة الكود في الاسفل في حدث  Keypress   لمنع كتابة الاحرف وكتابة الارقام فقط  مثل 3.6   وتمت العملية بنجاح ولكني اريد عمل Module   من هذا الكود لاستخدامه في حوالي 30 فورم  دون ان اقوم بكتابة الكود بشكل متكرر  واستدعائة من ال   Module          


If e.KeyChar = "0" Or e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" Or e.KeyChar = "9" Or e.KeyChar = "." Or e.KeyChar = "" Then
            Exit Sub
        Else
            e.KeyChar = ""
        End If
    End Sub
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#2
تقوم بوضع هذا الكود في الموديل
كود :
Public Sub onlyNumber(ByVal e As KeyPressEventArgs)
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub




داخل التيكست بوكس KeyPress




كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       onlyNumber(e)
   End Sub
الرد }}}
تم الشكر بواسطة: asemshahen5
#3
شكرا اخي
يعمل ولكن عند عمل Run يعطي البرنامج يوجد اخطاء وعند اعطاء استمرار يعمل
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
(06-12-19, 04:44 PM)momani33 كتب : شكرا اخي
يعمل ولكن عند عمل Run   يعطي البرنامج يوجد اخطاء وعند اعطاء  استمرار يعمل

ما هو الخطا الظاهر لك
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
there where build errors.would you like to continue and run the last successful build ?

عند الضغط على yes يعمل البرنامج بشكل عادي
الرد }}}
تم الشكر بواسطة: asemshahen5



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


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