Evitar el uso de la tecla Suprimir

[ema21del9]

Recien me he dado cuenta que poniendo KeyAscii 0 en el evento KeyPress de cualquier control no impide el uso de la tecla Suprimir, esta sigue funcionando, y es un peligro para mi aplicacion, hay algun forma de hacer que esta tecla no tenga ningun efecto?

[Marcelote]

Claro que la hay, como lo estás haciendo, pero en el evento KeyDown, no en el KeyPress:

Código:

Private Sub txtTest_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
        KeyCode = 0
    End If
End Sub

Un saludo.

[ema21del9]

Lo acabo de probar y la tecla suprimir sigue borrando los caracteres.

[Marcelote]

Iniciado por ema21del9

Lo acabo de probar y la tecla suprimir sigue borrando los caracteres.

Yo lo he probado y sí me ha funcionado, pero podría ser por otra cosa:
Utliza también la constante vbKeyClear por si tu teclado es la que genera:

Código:

    If KeyCode = vbKeyDelete or KeyCode = vbKeyClear Then
        KeyCode = 0
    End If

no te referirás a la tecla de borrar en retroceso, ¿verdad?
No, no creo pues esa se controla en KeyPress.

Mira a ver lo que te he dicho arriba.

Un saludo.

[David]

Sólo como comentario adicional.

Si lo que deseas es impedir que se escriba/borre un TextBox, sólo tienes que cambiar su propiedad Locked a True.

[ema21del9]

Ya funciona, muchas gracias.

[Marcelote]

Me alegro mucho.

Iniciado por David el Grande

Sólo como comentario adicional.

Si lo que deseas es impedir que se escriba/borre un TextBox, sólo tienes que cambiar su propiedad Locked a True.

De hecho es lo que se debe usar si el fin es el que entiende David el Grande. Lo pensé, pero luego pense que querías evitar o transformar sólo esa tecla (yo lo he necesitado en algunos casos de entrada formateada)
Un saludo a los dos