ازاى اخلى التيكست بوكس ميقبلش الا ارقام

ضع هذا الكود في حدث KeyPress

Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress
        If (Char.IsDigit(e.KeyChar)) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub

مشكووووووووووور

  Private Sub temp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp.TextChanged
        Try
            Dim s As Double = Val(sender.Text)
            If Not Double.TryParse(sender.Text, s) Then
                ErrorProvider1.SetError(sender, "Enter Valid Number")
                temp_ = False
            Else
                temp_ = True
                ErrorProvider1.Clear()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

بالإمكان اختصار الكود في حدث ضغط الزر إلى

e.Handled = Not Char.IsDigit(e.KeyChar)