Urgente... Problema con el editbox
Estoy realizando un programa con un form para leer códigos de barra; para el cual creé un editbox, y agregué el código en el evento keypress,
con if nkeycode=13, además quiero que el código de barra me deje introducirlo de forma manual. El problema es que no consigo que después de apretar enter en el editbox o leerlo con el lector el foco vuelva al mismo editbox para leer otro código (ya probé con thisform.edit1. Setfocus, pero no funciona).
Desde ya muchas gracias a quién me pudiera solucionar este problema.
con if nkeycode=13, además quiero que el código de barra me deje introducirlo de forma manual. El problema es que no consigo que después de apretar enter en el editbox o leerlo con el lector el foco vuelva al mismo editbox para leer otro código (ya probé con thisform.edit1. Setfocus, pero no funciona).
Desde ya muchas gracias a quién me pudiera solucionar este problema.
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Agrega la propiedad "lSalir" al formulario y en el evento KEYPRESS del TEXTBOX agrega la línea:
IF nKeyCode = 27 && Tecla <Esc>
THISFORM.lSalir = .T.
Endif
Y en el evento VALID del TEXTBOX agrega la siguiente línea:
RETURN IIF( THISFORM.lSalir, 1, 0 )
De esa forma podrás salir del TEXTBOX solo cuando presiones la tecla <Esc>
... bueno, eso digo yo.
Víctor.
IF nKeyCode = 27 && Tecla <Esc>
THISFORM.lSalir = .T.
Endif
Y en el evento VALID del TEXTBOX agrega la siguiente línea:
RETURN IIF( THISFORM.lSalir, 1, 0 )
De esa forma podrás salir del TEXTBOX solo cuando presiones la tecla <Esc>
... bueno, eso digo yo.
Víctor.
