Página 1 de 1
APARECER OUTRO CARACTER NO GET QDO DIGITADO
Enviado: 06 Dez 2004 11:16
por CDV
Bom dia.
Alguem sabe uma forma de que quando eu digito uma senha em um
GET, aparecer outro caracter como por exemplo um "*" a cada caracter
digitado.
Obrigado.
Enviado: 06 Dez 2004 11:29
por storm
Colega, eu, normalmente faço assim:
function psenha( nTamanho , nLi, nCi )
local cValor:="",nK:=0
while (nK <> 27) .and. (nK <> 13)
@nLi, nCi say Padr( Repl('*',Len(cValor)) , nTamanho , " ")
nK := Inkey(0)
if (nk>=32) .and. (nk <=255) .and. (len(cValor) < nTamanho )
cValor += chr(nk)
elseif (nK = 8) .and. (len(cValor) > 1 )
cValor := left( cValor , len(cValor) - 1 );
endif
enddo
return if( nK = 27 , spac( nTamanho ) , Padr(cValor,nTamanho," ") )
Uso dessa forma acima, mas tem gente que faz um loop, de gets, sobrepondo a ultima posição. Ou também, tem gente que utiliza uma função chamada GetPassword, que é um tipo de procedure que funciona como get.