none
Problema con KeyPress Vs 2017 Community

    Pregunta

  • Hola.

    Como mas vale una imagen que varias palabras...

        Private Sub TbxPass_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbxPass.KeyPress
            If e.KeyChar = ChrW(Keys.Enter) Then
                '...
            End If
        End Sub
    

    Como puedo solucionar este inconveniente sin eliminar la referencia (Microsoft ADO Ext. 2.8 for DDL and Security) que es lo que causa el error?

    Gracias por su ayuda.


    Rafael FM

    viernes, 24 de marzo de 2017 11:16

Respuestas

  • La enumeración del teclado virtual de windows es parte de system.windows.forms

    Enter es un miembro de System.Windows.Forms.Keys. Raro es que te de ese mensaje y que no mecione la ambigüedad...

    De todos modos, la línea es semánticamente incorrecta. Pienso que debiera ser

    e.KeyChar = ControlChars.Cr


    • Editado walter_5 viernes, 24 de marzo de 2017 12:24
    • Marcado como respuesta RafaelFM viernes, 24 de marzo de 2017 12:36
    viernes, 24 de marzo de 2017 12:21
  • Gracias Walter_5

    He averiguado que el problema no viene por agregar la referencia (Microsoft ADO Ext. 2.8 for DDL and Security).

    El error sobreviene cuando (Imports.ADOX) que se necesita si:

    Dim ctlg As Catalog = New Catalog()

    Pero que se soluciona con:

    Dim ctlg As ADOX.Catalog = New ADOX.Catalog()

    Gracias de nuevo.


    Rafael FM

    viernes, 24 de marzo de 2017 12:45

Todas las respuestas

  • La enumeración del teclado virtual de windows es parte de system.windows.forms

    Enter es un miembro de System.Windows.Forms.Keys. Raro es que te de ese mensaje y que no mecione la ambigüedad...

    De todos modos, la línea es semánticamente incorrecta. Pienso que debiera ser

    e.KeyChar = ControlChars.Cr


    • Editado walter_5 viernes, 24 de marzo de 2017 12:24
    • Marcado como respuesta RafaelFM viernes, 24 de marzo de 2017 12:36
    viernes, 24 de marzo de 2017 12:21
  • Gracias Walter_5

    He averiguado que el problema no viene por agregar la referencia (Microsoft ADO Ext. 2.8 for DDL and Security).

    El error sobreviene cuando (Imports.ADOX) que se necesita si:

    Dim ctlg As Catalog = New Catalog()

    Pero que se soluciona con:

    Dim ctlg As ADOX.Catalog = New ADOX.Catalog()

    Gracias de nuevo.


    Rafael FM

    viernes, 24 de marzo de 2017 12:45