FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Pessoal preciso de uma sugestão!
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Pessoal preciso de uma sugestão!
Posted: Mon Jun 02, 2008 12:46 PM

Pessoal tenho uma WINDOW aberta com varios botões dentro dela representando as mesas de um restaurante. Para acessar estas mesas tenho que clicar sobre o botão referente. A minha pergunta é:

Como digitar um numero na WINDOW e o sistema localizar a mesa, na verdade estou precisando só da parte da digitação, não sei como fazer em uma WINDOW para digitar um valor. Será que tenho que colocar um GET?

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 446
Joined: Mon Dec 26, 2005 09:11 PM
Re: Pessoal preciso de uma sugestão!
Posted: Mon Jun 02, 2008 03:49 PM
SGS wrote:Pessoal tenho uma WINDOW aberta com varios botões dentro dela representando as mesas de um restaurante. Para acessar estas mesas tenho que clicar sobre o botão referente. A minha pergunta é:

Como digitar um numero na WINDOW e o sistema localizar a mesa, na verdade estou precisando só da parte da digitação, não sei como fazer em uma WINDOW para digitar um valor. Será que tenho que colocar um GET?


De www.geocities.com/sisgem (opcion: "productos") baja la aplicación llamada "Anfitrion". Es posible que allí encuentres una forma para hacer lo que deseas.
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Pessoal preciso de uma sugestão!
Posted: Mon Jun 02, 2008 04:36 PM

Creo que con oDlg:bkeydown:={|nKey|TrataTecla(nKey)} puedes capturar el valor ASCII de cada tecla y luego ejecutar una acción según su valor. Algo así como esto:


Function TrataTecla(nKey)


&& Note ASCII values: 65-90 are Capital A through Z.
&& : 97-122 are lowercase a through z.
&& : 48-57 are numbers 0-9.
&& : 13 used below is for a RETURN key hit.

//
IF nKey > 47 .AND. nKey < 58
MsgInfo(UPPER(CHR(nKEY)))
ENDIF
//
DO CASE

CASE nKEY == VK_CONTROL
MsgInfo("Esto es una prueba")

CASE nKEY == VK_SPACE
MsgInfo("Este es el espaciador")

END CASE
//
RETURN NIL

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Pessoal preciso de uma sugestão!
Posted: Mon Jun 02, 2008 05:03 PM

obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion