permettre à des nombres, des points et de revenir en arrière et effacer dans la zone de texte

j'ai le code suivant:

Private Sub TxtPStof_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPStof.KeyPress
    e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".")

End Sub

qui permet uniquement de chiffres et de . dans ma zone de texte, cependant j'ai aussi besoin d'être en mesure de supprimer les valeurs à l'aide de la touche retour arrière ou sur le bouton supprimer.

Est-ce possible?

Merci! 🙂

OriginalL'auteur Christoph | 2012-06-28

  1. 6

    Alors que je suis totalement d'accord avec la réponse de Konrad Rudolph

    (C'est vraiment une affaire malpropre pour gérer la saisie de l'utilisateur dans l'événement KeyPress)

    Je tiens à donner une réponse à votre question.

    MSDN dans le KeyPress docs états qui The KeyPress event is not raised by noncharacter keys. Cela signifie que vous n'obtenez pas la touche Suppr, mais seulement la touche retour arrière. Vous pourriez gérer cette situation avec ce petit changement à votre gestionnaire d'événements

    Private Sub TxtPStof_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPStof.KeyPress 

    if e.KeyChar <> ControlChars.Back then
        e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") 
    end if

End Sub
    Merci steve, je sais que je suis un peu brouillon, mais c'était le moyen le plus rapide de le faire pour moi, et le programme ne sera pas utilisé par plusieurs ppl, à seulement 1 personne vraiment, il n'est donc pas un problème pour moi, même si c'est salissant. je vais être à la recherche dans la validation de l'événement plus tard quand j'aurai plus de temps. Merci pour toute l'aide

    OriginalL'auteur Steve

  2. 8

    C'est la mauvaise approche.

    Il est universellement reconnu que le fait de restreindre l'entrée de l'utilisateur est mauvais pour l'expérience utilisateur, et vous toujours ne parviennent pas à gérer des cas particuliers (qu' Ctrl+V, par exemple? Ah, on a oublié à ce sujet. Tout le monde le fait).

    Au lieu de cela, .NET offre la Valider événement pour la validation de la saisie de l'utilisateur. Vous devez intercepter que événement, pas la pression de touche. Ne permettre aux utilisateurs d'entrer du texte; toutefois, ils veulent; en particulier, leur permettre de faire des erreurs (par exemple, erreur de frappe) sans interruption – qui serait extrêmement préjudiciable et pas utile.

    Puis, une fois qu'ils sont finis (parce que le focus d'entrée laisse le contrôle de la), faire une validation de la saisie d'un seul coup.

    OriginalL'auteur Konrad Rudolph

  3. 0
    If Char.IsLetterOrDigit(e.KeyChar) Or e.KeyChar = ControlChars.Back Or e.KeyChar = "." Then

        e.Handled = False

Else

        e.Handled = True

End If
    C'est l'odeur de code: If x Then variable = False Else variable = True devrait être réécrit comme variable = Not x.

    OriginalL'auteur Pankti

  4. 0

    ce code fonctionne très bien pour moi.

     If Not ((Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or Asc(e.KeyChar) = 46 Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 127) Then
        e.KeyChar = ""
        e.Handled = False
    End If

    OriginalL'auteur slek

  5. 0

    essayez celui-ci:

        If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
        If Not (Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 46) Then e.Handled = True
    End If

    OriginalL'auteur ilan

  6. 0
    Private Sub textbox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles textbox.KeyPress
    If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back Then
        e.Handled = True

    End If
End Sub

    Cela devrait faire ce que vous voulez qu'il fasse.

    Pouvez-vous s'il vous plaît ajouter quelques explications, pourquoi utiliser ce code?

    OriginalL'auteur bloodfeast

  7. -1

    Mettre cela sur événement keypress. Cela permet points et chiffres uniquement

    If Asc(e.KeyChar) <> 8 Then
            If Asc(e.KeyChar) < 46 Or Asc(e.KeyChar) > 57 Or (Asc(e.KeyChar) < 48 And Asc(e.KeyChar) > 46) Then
                e.Handled = True
      End If
End If

    OriginalL'auteur Edward Nazareno