Que des lettres dans une textbox en vb.net

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

Up !

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

re:

J'ai fait l'inverse

tu dois mettre :

Case 65 To 90

Cdt

Lupin

parfait ! Ca marche ! Merci infiniment :)

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