Controlar cuando se pulsa Mayúsculas + Enter

[freegirl]

Hola,

tengo que controlar cuando un usuario pulsa mayúsculas + enter y cuando pulsa sólo enter en cierto control.

He probado varios códigos, pero no he encontrado la manera de que me controle la combinación mayúsculas + enter.

El último código que tengo es éste pero no me funciona:

Código:

  Private Sub miControl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles miControl.KeyDown
        If e.Modifiers = Keys.Shift AndAlso e.Modifiers = Keys.Enter Then
          funcionY()
        ElseIf e.KeyCode = Keys.Enter Then
          funcionX
        End If
    End Sub

Siempre me ejecuta la función X, aunque pulse la combinación de teclas.

¿Como puede hacer para controlarlo?

Gracias de antemano.

saludos

[GeoAvila]

Iniciado por freegirl

Hola,

tengo que controlar cuando un usuario pulsa mayúsculas + enter y cuando pulsa sólo enter en cierto control.

He probado varios códigos, pero no he encontrado la manera de que me controle la combinación mayúsculas + enter.

El último código que tengo es éste pero no me funciona:

Código:

  Private Sub miControl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles miControl.KeyDown
        If e.Modifiers = Keys.Shift AndAlso e.Modifiers = Keys.Enter Then
          funcionY()
        ElseIf e.KeyCode = Keys.Enter Then
          funcionX
        End If
    End Sub

Siempre me ejecuta la función X, aunque pulse la combinación de teclas.

¿Como puede hacer para controlarlo?

Gracias de antemano.

saludos

estabas algo cerca..

Código:

        If (e.Modifiers = Keys.Shift) And (e.KeyCode = Keys.Enter) Then
            funciony()
        ElseIf e.KeyCode = Keys.Enter Then
            funcionx()
        End If

nos vemos..

[freegirl]

Hola,

gracias por la respuesta. Pero ya probé eso anteriormente y tampoco funcionaba.

Al final ya encontré la solución:

Ejemplo

Código:

Private Sub miControl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles miControl.KeyDown

If e.Modifiers = Keys.Shift Then
    If e.KeyCode = Keys.Enter Then funcionY ()
  Else
    If e.KeyCode = Keys.Enter Then funcionX ()
End If

End Sub

saludos

[GeoAvila]

Iniciado por freegirl

Hola,

gracias por la respuesta. Pero ya probé eso anteriormente y tampoco funcionaba.

Al final ya encontré la solución:

Ejemplo

Código:

Private Sub miControl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles miControl.KeyDown

If e.Modifiers = Keys.Shift Then
    If e.KeyCode = Keys.Enter Then funcionY ()
  Else
    If e.KeyCode = Keys.Enter Then funcionX ()
End If

End Sub

saludos

que raro a mi me funcionó perfectamente pero bueno.. felicidades..

nos vemos..