اول مشاركة سوال فى التكست بوكس

أخي الكريم بالنسبة لإدخال أرقام فقط فليس لدي علم إن كان هناك طريقة مباشرة ولكني عملت هذا الإجراء البسيط الذي يسمح باستخدام الأرقام ومفتاح المسح الخلفي (Backspace ) وعلامة الفاصلة العشرية

    Public Sub NoABC(ByVal inText As TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim aa, ii As Integer
        If IsNumeric(e.KeyChar) = False Then
            aa = Asc(e.KeyChar)
            If aa = 8 Then Exit Sub
            If aa = 46 Then
                For ii = 1 To Len(inText.Text)
                    If Asc(Mid(inText.Text, ii, 1)) = 46 Then
                        e.Handled = True
                        Exit Sub
                    End If
                Next
                e.Handled = False
                Exit Sub
            End If
            e.Handled = True
            Exit Sub
        End If
    End Sub

وطريقة استخدامه أن تضع في حدث KeyPress مثلا TextBox1

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

    End Sub

أما بالنسبة لعدد الأرقام فتستطيع التحكم بها من خاصية MaxLength

و أتمنى من الإخوة الكرام إذا هناك طريق مختصر أن يفيدونا

والله سبحانه أجل وأعلم

بارك الله فيك بن ملعاط وجعله فى ميزان حسناتك

وانتظر باقى الاخوه لو هناك طرق اسهل او افضل

بارك الله فيكم

للرفع يا اخوانى

حسناً ، اليك الطريقة الأسهل:

 Private Sub txtNum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNum.KeyPress
        If Char.IsDigit(e.KeyChar) = False Then
            e.Handled = True
            MessageBox.Show("You can't enter non numeric values")
        End If
    End Sub

شكر لك اخى الكريم محمد عبد العليم لكن هل اضيف الكود فى TXt BOX ؟

ام فى الفورم نفسها ؟

أخي الكريم ما ستستخدمه من رد الأخ محمد عبد العليم هو التالي

وتضعه في حدث KeyPress

If Char.IsDigit(e.KeyChar) = False Then
           e.Handled = True
           MessageBox.Show("You can't enter non numeric values")
End If

وفق الله الجميع

بارك الله فيك