Restringir valores permitidos en un textbox

En ocasiones, nos conviene que el usuario ingrese solo caracteres permitidos al insertar datos en un formulario, es por ello que en esa ocasión pongo a su disposición una pequeña condición que nos permite, hacer esa restricción.



'Solo numeros en un texbox
If InStr(1, "0123456789," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

'Solo letras minusculas sin tildes ni letra 'ñ' en un texbox
If InStr(1, "abcdefghijokmnopqrstuvwxyz," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

'Solo letras mayusculas sin tildes ni letra 'ñ' en un texbox
If InStr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

'Solo letras mayusculas  y minusculas sin tildes ni letra 'ñ' en un texbox
If InStr(1, "abcdefghijokmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

'Solo letras mayusculas y minusculas con tildes en un texbox
If InStr(1, "abcdefghijokmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZáéíóú," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

'Solo letras mayusculas y minusculas con tildes y numeros en un texbox
If InStr(1, "abcdefghijokmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZáéíóú0123456789," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

En resumen, habrás notado que simplemente hay que colocar los caracteres que son  permitidos. Esta condición tiene que estar dentro del evento KeyPress del Textbox que deseas restringir.

Por ejemplo:

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

'Solo numeros en un texbox
If InStr(1, "0123456789," & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If

End Sub


--
Nota: La información contenida en esta publicación, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en la presente publicación.