Masquer le texte de l'Edit d'une fenetre Message_Input

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour,

Je voudrais savoir s'il est possible de remplacer, par des étoiles (*) le texte dans l'Edit d'une fenetre Message_Input, comme dans l'Edit d'un objet Form avec l'instruction Secret_On.

Merci par avance.

Bonjour Francis-mr et bienvenue parmis nous,

pour répondre à ta question, je dirais que ce n'est pas possible car SECRET_ON N à besoin d'un numéro d'objet pour fonctionner. Ors MESSAGE_INPUT... n'est pas une commande (objet) mais une fonction qui n'a pas de numéro.

A+

Sujet: Masquer le texte de l'edit. Lun 26 Nov 2012 - 20:38

Bonsoir.

La solution est de créer une forme modale, comportant un edit justement, sur lequel il est possible d'appliquer secret_on.

Bonsoir et bienvenue à Panoramic Francis-mr, Smile

Je crois qu'il faut faire un truc dans ce genre là pour avoir ce que tu cherches:

Code:: dim a$
label mdp,action,etoile
button 50:caption 50,"Mot de passe":on_click 50,mdp
form 100:hide 100:left 100,100:top 100,100:width 100,286:height 100,140:caption 100,"Donnée à Entrer"
command_target_is 100
alpha 110:left 110,10:top 110,10:caption 110,"Indiquez votre code"
edit 120:left 120,10:top 120,30:width 120,250:on_change 120,etoile
button 130:left 130,50:top 130,60:caption 130,"OK":on_click 130,action
button 140:left 140,135:top 140,60:caption 140,"Cancel":on_click 140,action
end

mdp:
show 100
a$="":text 120,"":set_focus 120:secret_on 120
return

action:
if clicked(130)=1 then message "mot de passe "+a$+" accepté"
if clicked(140)=1 then hide 100
return

etoile:
a$=text$(120)
return

A+

Salut tout le monde, je fais un passage et je mets une version simplifiée du code de Bignono pour saisir le mot de passe mais c'est le même principe

Code:: dim a$
label action

width 0, 290: height 0, 130 : caption 0,"Entrer le mot de passe"
edit 120:left 120,10:top 120,20:width 120,250:secret_on 120
button 130:left 130,80:top 130,50:caption 130,"OK":on_click 130,action
end

action:
if clicked(130)=1 then a$=text$(120) : message "mot de passe "+a$+" accepté"
a$="":text 120,"":set_focus 120
return

Et une n-ième proposition:

Code:: ' mot_de_passe.bas

label ident, passnon, passoui

dim id$, pwd$, pwdok%

button 1 : top 1,10 : left 1,10 : caption 1,"Identifier" : on_click 1,ident

form 1000 : hide 1000 : caption 1000,"Identification" : width 1000,400
alpha 1001 : parent 1001,1000 : top 1001,20 : left 1001,10 : caption 1001,"Identifiant:"
edit 1002 : parent 1002,1000 : top 1002,20 : left 1002,150 : width 1002,200
alpha 1003 : parent 1003,1000 : top 1003,50 : left 1003,10 : caption 1003,"Mot de passe:"
edit 1004 : parent 1004,1000 : top 1004,50 : left 1004,150 : width 1004,200
secret_on 1004
button 1005 : parent 1005,1000 : top 1005,80 : left 1005,10 : caption 1005,"Abandon"
on_click 1005,passnon
button 1006 : parent 1006,1000 : top 1006,80 : left 1006,280 : caption 1006,"Validation"
on_click 1006,passoui

end

ident:
pwdok% = 0
inactive 0
show 1000
return

passnon:
hide 1000
active 0
to_foreground 0
id$ = ""
pwd$ = ""
pwdok% = 0
return

passoui:
if text$(1002)="" then return
if text$(1004)="" then return
hide 1000
active 0
to_foreground 0
id$ = text$(1002)
pwd$ = text$(1004)
pwdok% = 1

message "id="+id$+" pwd="+pwd$ : ' ligne à supprimer

return

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour et merci à tous pour vos réponses.

Les différentes solutions proposées vont me permettre de résoudre mon problème.
Votre aide est d'une très grande efficacité, bravo

Bonne journée

» Copier / coller du texte à partir de la fenêtre de commandes
» Bordure de Fenêtre
» Calculer la vitesse d'un PC
» Handle de fenêtre non valide
» Problème de fenêtre modale.