Acceso a formulario
Hola, tengo hecha una aplicación en VB 5 que tiene varios formularios. Lo que pretendo es acceder a uno de ellos pulsando una tecla y desde cualquiera de los otros. ¿Alguien sabe como hacerlo de una manera sencilla?
Gracias.
Gracias.
1 Respuesta
Respuesta de andresmaga
1
Por ejemplo, si querés usar las teclas de función:
Pegá esta rutina en cada uno de ellos:
'primero establecé la propiedad
keypreview de cada formulario a true
private sub Form_KeyDown(keycode as integer)
select case keycode
'f1 a f12
case 112: form1.show
case 113: form2.show
case 114: form3.show
case 115: form4.show
case 116: form5.show
case 117: form6.show
case 118: form7.show
case 119: form8.show
case 120: form9.show
case 121: form10.show
case 122: form11.show
case 123: form12.show
end sub
podés usar cualquier tecla, si tenés alguna duda dee algún código poné esta rutina:
private sub form_keydown(keycode as integer)
msgbox "Keycode:" & keycode
end sub
private sub form_keypress(keyascii as integer)
msgbox "Keyascii:" & keyascii
end sub
Pegá esta rutina en cada uno de ellos:
'primero establecé la propiedad
keypreview de cada formulario a true
private sub Form_KeyDown(keycode as integer)
select case keycode
'f1 a f12
case 112: form1.show
case 113: form2.show
case 114: form3.show
case 115: form4.show
case 116: form5.show
case 117: form6.show
case 118: form7.show
case 119: form8.show
case 120: form9.show
case 121: form10.show
case 122: form11.show
case 123: form12.show
end sub
podés usar cualquier tecla, si tenés alguna duda dee algún código poné esta rutina:
private sub form_keydown(keycode as integer)
msgbox "Keycode:" & keycode
end sub
private sub form_keypress(keyascii as integer)
msgbox "Keyascii:" & keyascii
end sub
