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

ارغب في تعلم
عمل دالة تسمح ادخال ارقام فقط في مربع النص
عند كتابة الدالة في الحدث keypress
تسمح بكتابة الارقام فقط

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

        End If
    End Function

لكن معرفتش اكمل
ايضا لا يوجد بها return
معرفتش اكتبها و اكتبها وفين

راجع الموضوع التالي ربما يفيدك

http://vb4arb.com/vb/showthread.php?tid=44346

لكتابة الارقام فقط تحتاج اجراء وليس دالة

للبساطة استخدم الكود التالي
وعدل عليه بما يناسب مشروعك ..

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

    onlyNumbers(e)

End Sub

Public Sub OnlyNumbers(e As KeyPressEventArgs)

    If Char.IsDigit(e.KeyChar) = False And AscW(e.KeyChar) <> 8 Then

        e.Handled = True

    End If

End Sub

عايز اعمل دالة
اكنب المعامل لها هو مربع نص ١ او اي مربع نص
ليس مربع نص١
شكرا

لو شغلت دماغك شوية
كان عرفت أن هذا الاجراء أهم بكثير من أي دالة بتعمل نفس الوظيفة
فقط انسخ اسمها (onlyNumbers(e)) وضعه في حدث (KeyPress) لأي تكتست بوكس وستعمل بدون أن تحتاج ذكر اسمها ..

حضرتك امكانيات
برجاء التعديل ليكون الكود سليم
والله لو عارف لكنت عملت

لتنال كل الثواب
شكرا

الكود السابق كود جاهز للاستخدام، ضعه في أي مكان في مشروعك ..

فقط انسخ النداء

OnlyNumbers(e)

وضعه في حدث الــ (KeyPress) لأي أداة (TextBox -- ComboBox -- RichTextBox)
أو أي أداة لها خلية وحيدة وتشبهها..

وجرب...

شكرا لك
يا استاذنا

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

atefkhalf2004

asmarsou

Alexander Max2

atefkhalf2004

Alexander Max2

atefkhalf2004

Alexander Max2

atefkhalf2004