منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس (/showthread.php?tid=32396)

سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - momani33 - 06-12-19

السلام عليكم قمت بكتابة الكود في الاسفل في حدث  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


RE: سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - alshandodi - 06-12-19

تقوم بوضع هذا الكود في الموديل
كود :
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


RE: سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - momani33 - 06-12-19

شكرا اخي
يعمل ولكن عند عمل Run يعطي البرنامج يوجد اخطاء وعند اعطاء استمرار يعمل

RE: سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - alshandodi - 06-12-19

(06-12-19, 04:44 PM)momani33 كتب : شكرا اخي
يعمل ولكن عند عمل Run   يعطي البرنامج يوجد اخطاء وعند اعطاء  استمرار يعمل

ما هو الخطا الظاهر لك

RE: سؤال بخصوص عدم كتابة الاحرف في التكست بوكس باستثناء الفاصلة والباك سبيس - momani33 - 06-12-19

there where build errors.would you like to continue and run the last successful build ?

عند الضغط على yes يعمل البرنامج بشكل عادي