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

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

تقوم بوضع هذا الكود في الموديل

كود :

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

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

momani33

alshandodi

momani33

alshandodi

momani33