VB: Autoriser Uniquement des Chiffres (pas de Lettres) À Être Entré Dans la zone de texte

J'ai une zone de texte qui contrôle l'intervalle d'un contrôle Timer. Comment puis-je filtrer les lettres? Est-il possible de restreindre l'entrée de chiffres seulement (comme si vous saisissez une lettre ou un espace, rien ne se passe)? Est-il une propriété de la zone de texte qui peut accomplir cela? Merci!

OriginalL'auteur David | 2009-11-15

  1. 6

    Est le remplacement de la zone de texte avec un autre contrôle d'une option? Dans mon expérience, j'ai trouvé le contrôle NumericUpDown plus facile de travailler avec si vous souhaitez restreindre l'entrée de valeurs numériques.

    Il a aussi mignon flèches haut et bas, mais le meilleur de tous, il ne nécessite pas de code supplémentaire.

    Aussi la limite de la confusion de l'utilisateur. Ils ne reçoivent pas surpris quand ils ne peuvent pas il vous suffit de taper quoi que ce soit.

    OriginalL'auteur MiseryIndex

  2. 3

    Ignore tout, mais les chiffres

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    e.Handled = Not Char.IsDigit(e.KeyChar)
End Sub
    Que faire si le droit de l'utilisateur-cliquez sur la zone de texte et coller du texte?

    OriginalL'auteur Mitch Wheat

  3. 2

    Filtrage des touches à peine garantit que l'utilisateur devra saisir un nombre valide. Un intervalle de temps de 0 est probablement pas bon. Vous ne serez pas de filtrage d'entrée lorsque l'utilisateur appuie sur Ctrl+V. Et en tant que programmeur, je suis partie à des programmes qui acceptent 2E3 comme des entrées valides.

    La Validation de l'événement a été fait pour résoudre ce problème. Déposer une couple de zones de texte dans un formulaire et un ErrorProvider:

      Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
    If TextBox1.Text.Length = 0 Then Exit Sub
    Dim value As Double
    If Not Double.TryParse(TextBox1.Text, value) or value <= 15 or value > 1E6 Then
      TextBox1.SelectAll()
      ErrorProvider1.SetError(TextBox1, "Not a valid number")
      e.Cancel = True
    Else
      TextBox1.Text = value.ToString("N0")
      ErrorProvider1.SetError(TextBox1, "")
      Timer1.Interval = CInt(value)
    End If
  End Sub

    OriginalL'auteur Hans Passant

  4. 0

    e.Manipulés = Pas De Char.Appel isdigit

    cela ne compile pas que c'est...

    OriginalL'auteur Lala

  5. 0

    Vous pouvez filtrer les touches spécifiques. Cette méthode permet seulement des nombres, de supprimer, de reculer, flèche gauche, flèche droite et

    Private Sub txtBox_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles yourTxtboxName.KeyDown
    Try

            If Not (e.KeyValue = 8 Or e.KeyValue = 46 Or e.KeyValue = 48 Or e.KeyValue = 49 Or e.KeyValue = 50 Or e.KeyValue = 51 Or e.KeyValue = 52 Or e.KeyValue = 53 Or e.KeyValue = 54 Or _
               e.KeyValue = 55 Or e.KeyValue = 56 Or e.KeyValue = 57 Or e.KeyValue = 96 Or e.KeyValue = 97 Or e.KeyValue = 98 Or e.KeyValue = 99 Or _
              e.KeyValue = 100 Or e.KeyValue = 101 Or e.KeyValue = 102 Or e.KeyValue = 103 Or e.KeyValue = 104 Or e.KeyValue = 105 Or e.KeyValue = 37 Or e.KeyValue = 39) Then

                e.SuppressKeyPress() = True

            End If
    Catch ex As Exception
           'error handling
    End Try

    OriginalL'auteur th30perator