Que des lettres dans une textbox en vb.net
Résolu/Fermé
neograph
-
23 nov. 2011 à 20:03
bladizina2005 Messages postés 1 Date d'inscription dimanche 21 juillet 2013 Statut Membre Dernière intervention 21 juillet 2013 - 21 juil. 2013 à 20:53
bladizina2005 Messages postés 1 Date d'inscription dimanche 21 juillet 2013 Statut Membre Dernière intervention 21 juillet 2013 - 21 juil. 2013 à 20:53
A voir également:
- Que des lettres dans une textbox en vb.net
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Trouver une phrase avec des lettres dans le désordre - Forum Loisirs / Divertissements
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
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
bladizina2005
Messages postés
1
Date d'inscription
dimanche 21 juillet 2013
Statut
Membre
Dernière intervention
21 juillet 2013
21 juil. 2013 à 20:53
21 juil. 2013 à 20:53
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