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

[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....


:{

[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.

[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

[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.

[adilson]

pessoal valeu ,funcionou que e uma beleza !!

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