Para implementar el manejador de teclas
rápidas, nos valemos del evento KeyDown del
formulario. Bastará con añadir a dicho
formulario el siguiente código:
Private Sub Form_KeyDown(KeyCode As
Integer, Shift As Integer)
Dim AccessKey As String
Dim code As Integer
AccessKey =
"GPL"
code =
InStr(AccessKey, Chr$(KeyCode))
If Shift = vbAltMask
And code Then
Tab1.TabIndex = code
End If
End Sub
Como puede verse, en el ejemplo, contamos
con un formulario de tres solapas. Los caption de
las solapas son G y P y L, y el método de
marcado de la tecla abreviada es similar al del
resto de los controles.
No olvides poner la propiedad del control
keypreview a true, para que los eventos de
teclado sean tratados primero por la ventana y
luego por el resto de controles.
Aunque personalmente prefiero el control
sstab, el código puede ser adaptado en pocos
segundos para trabajar con el control tabstrip,
aunque en este caso, hay que tener en cuenta que
las solapas no son contenedores reales y que no
bastará con pasarnos a la solapa
correspondiente. Lo mejor en estos casos es usar
un control contenedor (un frame o un picture) y
hacerlos visibles o invisibles según sea
necesario. Sacado del MSDN (97)
