Visual Basic - Ayuda muy urgente con KeyPress

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda muy urgente con KeyPress

Publicado por Heavy (5 intervenciones) el 01/09/2002 18:05:21
Por favor, necesito hacer un programa en el que, en un formulario Excel, se pidan datos de forma cíclica entre dos cuadros de texto mientras se pulse la tecla F1, y que al pulsar ESC se salga del formulario. Me han dicho que es con la función KeyPress, pero no se como se usa.
Por favor, es muuuy urgente.GRACIAS.
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:Ayuda muy urgente con KeyPress

Publicado por e-reinicia.net (guille) (248 intervenciones) el 01/09/2002 18:09:46
En la función no, en el evento keypress del objeto que desees.
El caracter pulsado será keyascii.
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:Ayuda muy urgente con KeyPress, no entiendo :(

Publicado por Heavy (5 intervenciones) el 01/09/2002 18:18:01
Mira, yo tngo un bucle que se debe de estar repitiendo hasta la pulsación de la tecla ESC, y que para aceptar linea debes de pulsar F1, pero no se como es. El bucle es el siguiente:

Do
centro = ((LimiInfe + LimiSupe) / 2)
If materiales(centro) = TxtDatos3 Then
nummate = nummate + 1
importe = Val(importemat(centro)) * (TxtDatos4)
importepts = importepts + importe
importeuros = importeuros + (importe / 167)

TxtDatos = nummate
TxtDatos5 = importe
TxtDatos2 = importepts
TxtDatos1 = importeuros
Else
If (materiales(centro) > TxtDatos3) Then
LimiSupe = centro - 1
Else
LimiInfe = centro + 1
End If
End If
Loop Until (materiales(centro) = TxtDatos3) Or (LimiInfe > LimiSupe) Or (LimiInfe = LimiSupe)
---->En esta última linea es todavía provisional, ahí s donde me dijeron que debo colocar el KeyPress, pero no se como es
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:Ayuda muy urgente con KeyPress, no entiendo :(

Publicado por Miguel (40 intervenciones) el 02/09/2002 09:56:20
para lo del escape:

en el evento keydown del form:

if keycode = 27 then
unload me
end if

y para lo de F1 en el mismo evento:

if keycode vbkeyf1 then

codigo para aceptar la linea

end if

Tienes q poner la propiedad del form keypreview a true.

espero q te sirva. saludos.
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