que des lettres dans une textbox en vb.net Résolu/Fermé

Question

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 :)

Configuration: Windows 7 / Firefox 8.0

neograph · Answer

Up !

Utilisateur anonyme · Answer

Bonjour,  

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

Utilisateur anonyme · Answer

re:

J'ai fait l'inverse

tu dois mettre :

Case 65 To 90

Cdt

Lupin

neograph · Answer

parfait ! Ca marche ! Merci infiniment :)

Utilisateur anonyme · Answer

re:

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

bladizina2005 · Answer

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

Que des lettres dans une textbox en vb.net

6 réponses

Discussions similaires