Pessoal preciso de uma sugestão!

Pessoal preciso de uma sugestão!

Postby MGA » 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

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: Pessoal preciso de uma sugestão!

Postby Armando Picon » Mon Jun 02, 2008 3: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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Postby Manuel Aranda » Mon Jun 02, 2008 4: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
User avatar
Manuel Aranda
 
Posts: 603
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby MGA » Mon Jun 02, 2008 5:03 pm

obrigado
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Jorge Jaurena and 49 guests