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

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

دالة ادخال ارقام فقط في مربع النص - atefkhalf2004 - 19-08-23

ارغب في تعلم  
عمل دالة  تسمح ادخال ارقام فقط في مربع النص
عند كتابة الدالة في الحدث  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
معرفتش  اكتبها و اكتبها وفين

RE: دالة ادخال ارقام فقط في مربع النص - asmarsou - 19-08-23

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

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

RE: دالة ادخال ارقام فقط في مربع النص - Alexander Max2 - 19-08-23

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

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

كود :
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


RE: دالة ادخال ارقام فقط في مربع النص - atefkhalf2004 - 19-08-23

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

RE: دالة ادخال ارقام فقط في مربع النص - Alexander Max2 - 19-08-23

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

RE: دالة ادخال ارقام فقط في مربع النص - atefkhalf2004 - 20-08-23

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

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

RE: دالة ادخال ارقام فقط في مربع النص - Alexander Max2 - 20-08-23

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

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

OnlyNumbers(e)

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

وجرب...

RE: دالة ادخال ارقام فقط في مربع النص - atefkhalf2004 - 20-08-23

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