Hola a todos.

En un programa en el que doy ordenes por teclado uso el evento "Form_KeyRelease()" para interceptar la teclas pulsadas y actuar en consecuencia con algo así:

Código:

If Key.Code = Key.Enter Or Key.Code = Key.Return Then
  ' Orden a ejecutar.
End

El caso es que al pulsar "Enter" ademas de hacer lo que esta estipulado en el código también se "activa" un botón del formulario y se produce un evento click en este, cosa que no deseo que ocurra.
El botón en cuestión es el primer botón del primer contenedor del formulario (un panel) que esta creado por código.
¿Existe una forma de evitar el que al pulsar enter se active el botón?

Estoy probando con esto a ver si logro evadir el evento

Código:

Private sText As String

Public Sub Form_KeyPress()

  If Key.Code = Key.Enter Or Key.Code = Key.Return Then
    sText &= "Enter\n"
    TextArea1.Text = sText
    Stop Event
  Endif

End

Public Sub Form_KeyRelease()

  If Key.Code <> Key.Enter And Key.Code <> Key.Return And Key.Code <> Key.Backspace Then
    sText &= Chr(Key.Code) & "\n"
  Endif

End

Puedes también probar a bloquear el botón en cuestión durante el evento.

Código:

Public Sub Form_KeyPress()
 
  If Key.Code = Key.Enter Or Key.Code = Key.Return Then
    object.lock(button1)
    sText &= "Enter\n"
    TextArea1.Text = sText
    Stop Event
    object.unlock(button1)
  Endif
 
End

No lo he probado, pero es una idea.

Saludos

Echa un vistazo a este código. Puede ayudarte.

Archivos adjuntos

---

KeyTest-0.0.1.tar.gz (Tamaño: 22.77 KB Descargas: 1)

Puedes también probar a bloquear el botón en cuestión durante el evento.

Si, podría ser, lo probare.
Existe una dificultad mas ya que el control es creado en tiempo de ejecución, así que tendria que recorrer el contenedor para bloquear el primer botón, o también (tal vez mejor) bloquear directamente el contenedor.
Gracias.

---

Echa un vistazo a este código. Puede ayudarte.

Gracias.

No lo he probado, pero es una idea.

Finalmente, lo solucione pasando "teclas" de Form_KeyRelease a Form_KeyPress y allí pongo "Stop Event" si es necesario, gracias a los ejemplos de Cogier y Shordi, he podido ver que, salvo casos especiales, es mejor usar el evento Form_KeyPress
Luego, como siempre sucede con estas cosas, lo de bloquear el botón me sirvió para solucionar otro problema nuevo relacionado con unos ToolButtons que asignan verdadero o falso a unas variables y tambien usaba teclas de funcion para lo mismo pero cuando asignaba el valor al boton se volvia a disparar el evento así que Lock y Unlock llegaron justo a la fiesta.