jandres
22 de Julio del 2005

hola:
tengo lo siguiente
private sub cualquiera()
msgbox "cualquier cosa"
end sub
sub principal()
select case
case "uno"
cualquiera
case "dos"
end select
end sub
Lo que quiero es que cuando se ejecute alguno de los case, no salga del programa, si no que continue dentro del select case, hasta que presione la tecla escape, gracias!!!

krizall
22 de Julio del 2005

bueno, creo que en el evento keydown del form o keypress deberias poner este evento

private sub form_keypress(keyascii as integer)
if keyascii=aqui el codigo de la tecla space then
select case "aqui debe ir tu criterio"
case "uno"
cualquiera
case "dos"
otra cosa
end select
end if
end sub

de lo contrario que yo sepa no puedes hacer lo que quieres, que supongo quieres implementar algo que haces en pascal

suerte.