[atefkhalf2004]

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

[asmarsou]

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

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

[Alexander Max2]

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

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

كود :

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

[atefkhalf2004]

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

[Alexander Max2]

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

[atefkhalf2004]

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

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

[Alexander Max2]

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

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

OnlyNumbers(e)

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

وجرب...

[atefkhalf2004]

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