دالة لجعل مربع النص لا يقبل حروف

دالة لجعل مربع النص لا يقبل حروف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17328)

دالة لجعل مربع النص لا يقبل حروف - atefkhalf2004 - 16-09-16

هذا ما فكرت فيه لكن كله عيب
ارغب في عند اضافة اي مربغ نص يتم عمل الدالة
شكرا

Public Function onlynumeric(ByVal e As String)
        If Not IsNumeric(e) Then
            e = ""
            MsgBox("Please enter numbers only.", vbInformation)

        End If
    End Function

RE: دالة لجعل مربع النص لا يقبل حروف - LoveVb - 16-09-16

تفضل

كود :

       Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        e.Handled = Char.IsLetter(e.KeyChar)

    End Sub

RE: دالة لجعل مربع النص لا يقبل حروف - atefkhalf2004 - 16-09-16

هذا كود لمربغ نص محدد
انا ارغب في عمل دالة تصلح لاي مربع نص

RE: دالة لجعل مربع النص لا يقبل حروف - adel2012 - 16-09-16

السلام عليكم ورحمة الله وبركاته
الكود

كود :

Public Function PressOnlyNumeric(ByVal intKeyValue As System.Windows.Forms.KeyPressEventArgs) ' Integer

       Dim chKiy As Char

       chKiy = intKeyValue.KeyChar

       If Not (Char.IsDigit(chKiy) Or chKiy = "." Or Char.IsControl(chKiy)) Then

           MsgBox("غير مسموح بإدخال الحرف .. فضلاً إدخل أرقام فقط", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "إدخال خاطئ")

           intKeyValue.Handled = True ' إلغاء الحرف المضغوط

       End If

   End Function

ولتنفيذ هضا الإجراء والإستفادة منه نكتب الكود التالي في حدث KeyPress لأي textbox ..

PressOnlyNumeric(e) ' إدخال أرقام فقط

اقراء هذه الموضوع في هذا الرباط ستجد ما يفيدك في موضوعك
http://arabteam2000-forum.com/index.php?/topic/109718-%D8%AF%D8%B1%D8%B3-%D9%81%D9%8A-%D8%A7%D9%84%D8%A5%D8%AC%D8%B1%D8%A7%D8%A1%D8%A7%D8%AA-%D8%A7%D9%84%D9%81%D8%B1%D8%B9%D9%8A%D8%A9-%D8%A7%D9%84%D8%B9%D8%A7%D9%85%D8%A9/

RE: دالة لجعل مربع النص لا يقبل حروف - أبو عمر - 16-09-16

جرب هذا الكود لكن اي تكست على الفورم لا يقبل الا ارقاما فقط
وفي حال اردت ان تكتب في بعض مربعات النص عليك استصناءها

PHP كود :

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox And Not IsNumeric(ctrl.Text) Then
                ctrl.BackColor = Color.LightPink
                ctrl.Text = ""
                Exit For
            End If
        Next ctrl
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub 

بالتوفيق

RE: دالة لجعل مربع النص لا يقبل حروف - atefkhalf2004 - 16-09-16

thanks
شكرا لكم

RE: دالة لجعل مربع النص لا يقبل حروف - أبو عمر - 17-09-16

خليها Default = true
Private OnlyNumbers As Boolean = True