Public Sub FiltroTeclas(SiEspacio As Boolean)
If SiEspacio = True Then
Select Case Key.Code
Case 65 To 90
Case 46 'punto
Case 241 'letra ñ - nueva linea
Case 209 'letra ñ - nueva linea
Case Key.BackSpace
Case Key.Left
Case Key.Delete
Case Key.Right
Case Key.Tab
Case Key.BackTab
Case Key.Space
Case Key.Down
Case Key.Home
Case Key.End
Case Else
Print Key.Code
Stop Event
End Select
Else
Print "sin espacio"
Select Case Key.Code
Case 65 To 90
Case 241 'letra ñ - nueva linea
Case 209 'letra ñ - nueva linea
Case Key.BackSpace
Case Key.Left
Case Key.Delete
Case Key.Right
Case Key.Tab
Case Key.BackTab
' Case Key.Space ' espacio eliminado para que no se pongan dos nombres o apellidos
Case Key.Home
Case Key.End
Case Else
Print Key.Code
Stop Event
End Select
Endif
End
If SiEspacio = True Then
Select Case Key.Code
Case 65 To 90
Case 46 'punto
Case 241 'letra ñ - nueva linea
Case 209 'letra ñ - nueva linea
Case Key.BackSpace
Case Key.Left
Case Key.Delete
Case Key.Right
Case Key.Tab
Case Key.BackTab
Case Key.Space
Case Key.Down
Case Key.Home
Case Key.End
Case Else
Print Key.Code
Stop Event
End Select
Else
Print "sin espacio"
Select Case Key.Code
Case 65 To 90
Case 241 'letra ñ - nueva linea
Case 209 'letra ñ - nueva linea
Case Key.BackSpace
Case Key.Left
Case Key.Delete
Case Key.Right
Case Key.Tab
Case Key.BackTab
' Case Key.Space ' espacio eliminado para que no se pongan dos nombres o apellidos
Case Key.Home
Case Key.End
Case Else
Print Key.Code
Stop Event
End Select
Endif
End