Página 1 de 1

Colocar o cursor no get apos o texto inserido ?????

Enviado: 19 Mai 2008 05:18
por adilson
Amigos Bom Dia !

Gostaria de colocar o curso no get logo apos o texto inserido na variavel
(tentei varias coisas mas nao consegui o mesmo aparece no inicio da variavel...)


Seria Tipo Assim :



while .t.
vnome=space(30)
vnome="PC TOLEDO "+space(30-len(vnome))
@10,05 say "Nome ...: " get vnome pict "@!"
read
...
enddo

se alguem puder dar um Help

obrigado e abraços a todos....


:{

Re: Colocar o cursor no get apos o texto inserido ?????

Enviado: 19 Mai 2008 08:20
por Pablo César
Adilson essa é fácil, simule a tecla que faz para movimentar o cursor até o final da sua string, assim veja:

while .t.
vnome=space(30)
vnome=PADR("PC TOLEDO ",30)
KEYBOARD CHR(006) // tecla END
@10,05 say "Nome ...: " get vnome pict "@!"
read
...
enddo

Veja se é isso que você queria.

Re: Colocar o cursor no get apos o texto inserido ?????

Enviado: 19 Mai 2008 08:37
por alaminojunior
Testado e aprovado !

Código: Selecionar todos

do while .t.
   vnome:= "PC TOLEDO"
   vnome:= vnome + space(30-len(vnome))
   keyboard repl(chr(4),len(trim(vnome)))
   @ 10,05 say "Nome ...: " get vnome pict "@!"
   read
enddo

Enviado: 19 Mai 2008 09:18
por Maligno
Melhor seria, a meu ver, se fosse utilizada a cláusula WHEN, já que o campo alvo poderia ser o segundo da lista, por exemplo. Usando o comando KEYBOARD ou a função que já existe pronta na classe GET, feita exatamente para esse fim.

Re: Colocar o cursor no get apos o texto inserido ?????

Enviado: 19 Mai 2008 10:00
por adilson
pessoal valeu ,funcionou que e uma beleza !!

mais uma vez obrigado a todos...
:)Pos