petite question : comment basculer d'un StringGadget a un StringGadget(#PB_String_Password) ?
Je voudrais qu'une fois le mot de passe inscrit dans son champ, on puisse le voir et ne plus le voir selon le bouton "hide".
Voici le code :
Code : Tout sélectionner
OpenWindow(0, 0, 0, 749, 515, "SPH", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Global Repertoire$
calcul=0
FrameGadget(3, 11, 360, 726,33, "", #PB_Frame_Single)
;titre
TextGadget(4, 20, 370,90,20,"Password :")
;password
StringGadget(5, 80, 366, 570, 20, "")
;invisible
ButtonGadget(6, 656, 366, 30, 20, "Hide", #PB_Button_Toggle)
;cls
ButtonGadget(7, 693, 366, 40, 20, "Clear")
Procedure Afficher_fichiers()
SetGadgetText(2, "") ; Vider la liste des fichiers
Repertoire$ = GetGadgetText(1) ; Voir quel est le répertoire sélectionné
SetGadgetText(2, Repertoire$) ; Remplir la liste avec le répertoire
EndProcedure
Repeat
Evenement = WindowEvent()
If Evenement = #PB_Event_Gadget
window_event = WaitWindowEvent(5) ;changing the progressbar's will always cause this to catch an event
While window_event <> 0
If window_event = #PB_Event_CloseWindow : Break 2: EndIf
window_event = WindowEvent()
Wend
EndIf
Delay(5)
Until Evenement = #PB_Event_CloseWindow
End
;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;