Que des lettres dans une textbox en vb.net
Résolu
neograph
-
bladizina2005 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
bladizina2005 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'essaie actuellement de programmer le jeu du pendu sous vb.net, et j'aimerai que lors de la saisie du mot à trouver, l'utilisateur ne puisse entrer que les lettres de a à z, donc aucun chiffre
j'ai déjà essayé avec IsNumeric mais si je mélange les chiffres et les lettres, cela ne fonctionne plus
avez vous une idée ?
Merci d'avance :)
j'essaie actuellement de programmer le jeu du pendu sous vb.net, et j'aimerai que lors de la saisie du mot à trouver, l'utilisateur ne puisse entrer que les lettres de a à z, donc aucun chiffre
j'ai déjà essayé avec IsNumeric mais si je mélange les chiffres et les lettres, cela ne fonctionne plus
avez vous une idée ?
Merci d'avance :)
A voir également:
- Que des lettres dans une textbox en vb.net
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Code ascii des lettres - Guide
- Chiffre en lettre - Télécharger - Outils professionnels
- 15000 dinars en lettres - Forum Windows
- Mon clavier n'écrit plus les lettres ✓ - Forum Clavier
6 réponses
re:
Plus simplement :
Cdt
Lupin
Plus simplement :
Private Sub tbx_Valeur1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tbx_Valeur1.KeyDown If Not ((e.KeyCode >= Keys.A) And (e.KeyCode <= Keys.Z)) Then e.SuppressKeyPress = True End If e.Handled = True End Sub
Cdt
Lupin
Bonjour,
Essayer ceci :
Cdt
Lupin
Essayer ceci :
Private Sub TextBox2_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBox2.KeyDown
Try
If Not (NumericSeulement(e.KeyValue)) Then
e.Handled = False
e.SuppressKeyPress = True
End If
Catch ex As Exception
Debug.Print(ex.Message)
End Try
End Sub
Private Function NumericSeulement(ByVal pKeyCode As Int32) As Boolean
Try
Select Case pKeyCode
Case 96 To 105
Return True
Case Else
Return False
End Select
Catch ex As Exception
Debug.Print(ex.Message)
End Try
End Function
Cdt
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Private Sub TxtPrenom_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPrenom.KeyPress
'empecher d ecrire autre chose que des lettres
If Char.IsControl(e.KeyChar) = False Then
If Char.IsDigit(e.KeyChar) Then
'Else
MsgBox("Champ pour lettres seulement", MsgBoxStyle.Exclamation)
e.Handled = True
End If
End If
End Sub
'empecher d ecrire autre chose que des lettres
If Char.IsControl(e.KeyChar) = False Then
If Char.IsDigit(e.KeyChar) Then
'Else
MsgBox("Champ pour lettres seulement", MsgBoxStyle.Exclamation)
e.Handled = True
End If
End If
End Sub