Visual Basic - Como poner acceso de teclas a una Aplicación??

Life is soft - evento anual de software empresarial
 
Vista:

Como poner acceso de teclas a una Aplicación??

Publicado por Lucy (2 intervenciones) el 08/12/2003 00:51:43
Hola.
Como poner acceso de teclas a una Aplicación??
NECESITO SABER COMO PONER ATAJOS DE LETRAS A MI APLICACION, ES DECIR QUE AL PRESIONAR CTRL + B SE ABRA MI CUADRO DE BUSCAR PRO EJEMPLO O AL PRESIONAR CTRL + N SE PASE A MI SIGUIENTE REGISTRO.... PERO NO SE COMO PONER CÒDIGO COMO ATAJOS... NO SE SI ALGUIEN ME PUEDA AYUDAR.
gRACIA..
BYE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como poner acceso de teclas a una Aplicación??

Publicado por Coy (16 intervenciones) el 08/12/2003 04:05:51
Qué tal, puedes dar "atajos" solo si estas haciendolo con menus ahí hay una casilla de verificacion que te permite realizar esa acción ó si a un botón le quieres dar un "atajo" con ALT sólo pon un ampersand (&) antes de la letra a desear ejemplo: &SIGUIENTE (alt+s)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como poner acceso de teclas a una Aplicación??

Publicado por Mauro (45 intervenciones) el 12/12/2003 23:10:22
en el evento keydown del formulario pone lo siguiente:
dim ctrldown
dim altdown
ctrldown = (shift and vbctrlmask) > 0
altdown = (shift and vbaltmask) > 0
if keydown = vbkeyf4 then
if ctrldown then
instrucciones a realizar si presiona Ctrl + F4
end if
end if
en caso de que presione
alt + f4
seria
if keydown = vbkeyf4 then
if altdown then
instrucciones a realizar si presiona alt + f4
end if
end if
en caso de quieras presionar por ejemplo ctrl + alt + f4
if keydown = vbkeyf4 then
if ctrldown then
if altdown then
instrucciones a relaizar si presiona Ctrl + Alt + f4
end if
end if
end if
espero que te sirva
cualquier cosa escribime nos vemos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar