Page 1 sur 1

[Résolu]besoind d'aide svp merci

Publié : lun. 03/nov./2008 17:05
par jbernard13
bonsoir

juste une question , je me rappelle comment faire ceci :

je voudrais recupere le texte contenu dans un StringGadget et l'envoyer dans un TextGadget

Code : Tout sélectionner

text$= GetGadgetText(#String_Nom )
SetGadgetText(#String_Nom, Text$)
mais apres comment afficher le Text$ dans unTextGadget???
cela fait 3 jours que je cherche sur le forul , j'ai beau relire la doc et fouiller mes exemple mais j'avais un exemple que j'ai perdu et je me rappelle plus....

merci si vous pouvez m'aider

Publié : lun. 03/nov./2008 17:24
par Ar-S
Je ne vois pas ton problème ?

Code : Tout sélectionner

Enumeration
  #Win
  #Text_3
  #MyPseudo
EndEnumeration
Procedure OpenWindow_Win()
  If OpenWindow(#Win, 458, 223, 391, 92, "test", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_SizeGadget)
    If CreateGadgetList(WindowID(#Win))
      TextGadget(#Text_3, 5, 65, 365, 20, "Ecrit un message ci dessus")
      StringGadget(#MyPseudo, 5, 40, 370, 20, "", #PB_String_BorderLess|#ES_CENTER|#WS_BORDER)
    EndIf
  EndIf
EndProcedure

OpenWindow_Win()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Text_3
        Case #MyPseudo
          text$=GetGadgetText(#MyPseudo) ; Tu récupères le texte du stringadget
          SetGadgetText(#Text_3,text$);tu l'envoies au texte gadget
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Win
          CloseWindow(#Win)
          Break
      EndSelect
  EndSelect
ForEver

Publié : lun. 03/nov./2008 17:28
par jbernard13
merci
j'avais oublier la constante pour le textgadget