Resumen Capturar el evento ALT+tecla

Estimado Hector,

Gracias por tu mensaje. Probando lo que me has comentado he conseguido darle solución a mi problema.

Resulta que si la propiedad UseMnemonic es True, el UserControl recibe el foco al pulsarse la tecla de acceso rápido. Pero no solo esto: justo detrás, se genera un evento KeyUp (y no, curioso pero evidente, un KeyDown) idéntico al de la pulsación, dando igual que antes el foco estuviese en cualquier otra parte. Así que usando esto he conseguido que el control genere los eventos necesarios.

Me alegro de que te hayan gustado mis controles y espero que, además, te resulten útiles. Pásate dentro de unos pocos días, porque voy a poner algunas cosillas más, entre otras el botón que tantos problemas me ha dado, y a actualizar dos o tres controles. Este botón no es un botón 'activo', sino uno normal, aunque plano, pretendiento ser algo más actual que el Command estándar de Visual Basic, que vaya en la línea de los controles que se vienen usando últimamente.

Un saludo y gracias,


    Alvaro Redondo.

----------
From:     Hector de Aragon[SMTP:ham@step.es]
Sent:     martes 13 de mayo de 1997 20:42
To:     vb-esp@ccc.uba.ar
Subject:     Re: (VB-ESP) Capturar el evento ALT+tecla

Alvaro:

Perdona no haber sido un poco más explícito...

He hecho lo siguiente.

Crear Nuevo Control Active X.
Agregar EXE estandar

En el codigo correspondiente al control, he puesto lo siguiente (literalmente)
----------------------------------------------------------------------------
Option Explicit
Public Event AltMasTecla(KeyCode As Integer)

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    If Shift And vbAltMask Then
        RaiseEvent AltMasTecla(KeyCode)
    End If
End Sub
----------------------------------------------------------------
Y en el código del form1 : (Previa inserción de un control en él)

Option Explicit

Private Sub UserControl11_AltMasTecla(KeyCode As Integer)
    MsgBox "Has Pulsado ALT +" + Chr(KeyCode)
End Sub
----------------------------------------------------------------

Espero que esto solucione tu problema.
Un saludo.
 Héctor.

Pd.- He visto algunos controles OCX hechos por tí. Me han gustado
bastante.





Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com