none
Anular la tecla Enter en un Textbox - Segunda parte RRS feed

  • Pregunta

  • Hola de nuevo:

    Antes plantee la pregunta de como  Anular la tecla Enter en un Textbox y la respuesta fue satisfactoria y el tema zanjado.

    La cosa es que ahora el problema se me repite cuando acepto un MsgBox con Enter, asi que la pregunta nueva seria

    Cómo puedo Anular la tecla Enter en un MsgBox, es decir, como si no existiera en el teclado y por tanto nadie la pudiera pulsar.

    En el MsgBox tengo esto:

     Public Sub EsCorrecto() 

            Dim msbTexto As String, msbTitu As String, msbOpc As Integer

            msbTexto = "Consideras que" & vbCrLf & "ES CORRECTO ?"
            msbTitu = "Guardar Proyecto"
            msbOpc = vbYesNo + vbQuestion + vbDefaultButton2 + 16384

            Select Case MsgBox(msbTexto, msbOpc, msbTitu)
                Case vbYes      ' Si
                    Guardar()
                Case vbNo       ' No
                    Repetir()
            End Select

    End Sub

    tanto en Si como en No, al aceptar con Enter luego tengo errores. Como elimino el que acepten con Enter.

    Gracias

    martes, 3 de julio de 2012 17:45

Todas las respuestas

  • Porque no tratas de que cuando pulse la tecla enter que simplemente no haga nada?

    No se si funcionaría, es lo primero que se me ocurrio... O en ves de no hacer nada que haga otra cosa...

    If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then

    End If

    martes, 3 de julio de 2012 18:19
  • Pero es que la tecla Enter ya hace algo: Acepta uno de los dos botones como al hacer clicK en uno de ellos.

    Ademas, como lo pondrías dentro del Select Case?

    If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then

    End If

    me da error en If e.KeyChar = variable no declarada

    martes, 3 de julio de 2012 18:31
  • Ah perdón, para que no te de el error de variable no declarada, tiene que ir dentro del evento KeyPress
    martes, 3 de julio de 2012 18:36