FoxPro/Visual FoxPro - Como colocar un cuadro de texto como contraseña en

 
Vista:

Como colocar un cuadro de texto como contraseña en

Publicado por Gustavo (12 intervenciones) el 30/04/2001 17:20:30
Estoy trabajando en Foxpro for Windows version 2.6 y quiero que mi formulario que pide una contraseña, que en el cuadro de texto al escribir aparezca **** (asteriscos), si me pueden ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como colocar un cuadro de texto como contraseña

Publicado por wences (457 intervenciones) el 30/04/2001 19:24:48
Utiliza la propiedad passwordchar del textbox y con eso esta listo....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como colocar un cuadro de texto como contraseña

Publicado por wences (457 intervenciones) el 30/04/2001 20:06:16
Perdon eso seria en VFP , en fpw 2.6 no recuerdo el como se hace ,pero si no tenemos una propiedad como el passwordchar , deberiamos usar la conversion en cada pulsacion de teclas por otra un * en pantalla ... añadir un codigo que cada vez que se pulse una tecla ( que no sea borrado o flecha atras ), repintase el contenido ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como colocar un cuadro de texto como contraseña

Publicado por Gustavo (12 intervenciones) el 30/04/2001 20:18:02
y como se hace wences
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como colocar un cuadro de texto como contraseña

Publicado por ROD (184 intervenciones) el 30/04/2001 20:50:17
Usa esta Función lo unico que hacer es remplazar cada caracter por un caracter que tu indiques.
Funciona en Clipper5

nVar:=UPPER(GetCrip(11,44,var))

FUNCTION GetCrip(nFila,nCol,valor)
LOCAL salida,nTecla,cTecla
LOCAL RetVar:=SPACE(0)
LOCAL LenCad:=LEN(valor)
LOCAL aAux:=ARRAY(LenCad)
LOCAL g:=GetNew(nFila,nCol,{ |p| IF(PCOUNT()==0,valor,valor:=p) } )

* FUERZA LA SOBREESCRITURA

IF READINSERT()
READINSERT(.T.)
ENDIF

g:SetFocus() // DA EL FOCO AL OBJETO G

IF g:TypeOut
salida:=.T.
ELSE
salida:=.F.
ENDIF
//continua
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como colocar un cuadro de texto como contraseña

Publicado por ROD (184 intervenciones) el 30/04/2001 20:51:00
WHILE !salida
IF g:TypeOut // PARA SALIR DEL GET NO ES NECESARIO PULSAR
EXIT // INTRO
ENDIF
nTecla:=INKEY(0)

DO CASE
CASE nTecla==ESCAPE
g:Undo()
aAux:=ARRAY(LenCad)
EXIT
CASE nTecla==INTRO
EXIT
CASE nTecla==BORRARI
g:BackSpace()
aAux[g:Pos]:=CHR(32)
CASE nTecla==FLECHAD
g:Right()
CASE nTecla==FLECHAI
g:Left()
OTHERWISE
* CUALQIER VALOR QUE TECLEEMOS

IF nTecla>=32 .AND. nTecla<=255
cTecla:=CHR(nTecla)
aAux[g:Pos]=cTecla
g:OverStrike("*")
ENDIF

ENDCASE
ENDDO

//Continua.........
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como colocar un cuadro de texto como contraseña

Publicado por ROD (184 intervenciones) el 30/04/2001 20:51:37
//Continua.........

g:Assign() // ASIGNA BUFFER A LA VARIABLE
g:Reset() // VACIA BUFFER
g:KillFocus() // MATA EL FOCUS

* VUELCA VALORES DEL ARRAY A LA VAR A DEVOLVER

FOR n:=1 TO LEN(valor)
IF aAux[n]=NIL
aAux[n]=SPACE(1)
ENDIF

RetVar+=aAux[n]
NEXT
RETURN RetVar

Ojala te sirva.

Atte ROD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Pero esto p/ Foxpro version 2.6 for windows

Publicado por Gustavo (12 intervenciones) el 01/05/2001 00:01:30
porque que yo sepa setfocus(), typeout no son funciones del foxpro for windows version 2.6
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar