UMA MÃOZINHA COM O "MENU TO"

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Darlan
Usuário Nível 1
Usuário Nível 1
Mensagens: 20
Registrado em: 01 Mai 2005 22:27

UMA MÃOZINHA COM O "MENU TO"

Mensagem por Darlan »

Aí Galera !!

Não sei como posso me embananar com as coisas mais simples...
Depois do sistema estar 99% pronto, estou pedalando com o MENU TO...
Alguém sabe como posicionar o prompt do menu to ?
Ex: quando retornar ao menu eu quero que fique marcada(posicionada)
na 3 opção e não na primeira... Obs.: estou retornando com um
ESCAPE (27)... O caso é que o MENU TO não obedece direito... as vezes
fica na opção 2 ou 4... Já tentei de tudo... usei o KEYBOARD CHR() para
pular uma opção a direita ou esquerda, mas não anda mais que 1 opção...

Desde já, agradeço a força !!! Essa é vergonhosa...

Darlan (Mafra-SC)
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

Mensagem por Daniel »

Darlan fica assim

Código: Selecionar todos

op:= 3 // vc declara a variavel com o valor 3
While .t.
     @ 10, 20 Say '1-> Opcao 1'
     @ 11, 20 Say '2-> Opcao 2'
     @ 12, 20 Say '3-> Opcao 3'
     @ 14, 20 Say '4-> Opcao 4'
     Menu To op
     If op == 1
        teste()
     Elseif op == 2
        teste1()
     ElseIf op == 3
        teste2()
     ElseIf op == 4
        teste3()
     Else
        Exit
     EndIf
     op:= 3 // aki volta para possicao 3 de novo
End
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Darlan
Usuário Nível 1
Usuário Nível 1
Mensagens: 20
Registrado em: 01 Mai 2005 22:27

Valeu !!!

Mensagem por Darlan »

Beleza Daniel !!!

Deu na pinta !!! Funcionou 10 !!!

Eu já estava enjoado de tanto keyboard chr() espalhado
nos meus prgs... :)))

Fico te devendo essa !!!

UM ABRAÇO !!!

Darlan (Mafra-SC)
Responder