PureBasic

Bonjour,

J'aimerais faire une application du genre "Save AS"

Ci joint le début de mon code:

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Variables

  Dossiersource$="Bureau"
  Extention$=""
  Dossiercible$=""

;}
;{ Gadgets
Enumeration
  #Text_0
  #ExplorerTree_3
  #Text_4
  #Text_5
  #Button_7
  #Button_8
  #Button_9
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}



Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 330, 350, "Selection du dossier cible", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)
    TextGadget(#Text_0, 20, 15, 220, 20, " Veuillez choisir le dossier cible")
     
    ExplorerTreeGadget(#ExplorerTree_3, 20, 40, 290, 230,"")
    TextGadget(#Text_4, 115, 280, 195, 20, Dossiersource$, #PB_Text_Border) 
    TextGadget(#Text_5, 20, 280, 70, 20, "Dossier :", #PB_Text_Border)
    ButtonGadget(#Button_7, 132, 315, 80, 20, "OK")
    ButtonGadget(#Button_8, 20, 315, 100, 20, "Nouveau dossier")
    ButtonGadget(#Button_9, 221, 315, 90, 20, "Quitter")
  EndIf
  
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
      ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Text_0
      ElseIf EventGadget = #ExplorerTree_3
        Dossiersource$=GetGadgetText(3)
        Debug Dossiersource$
      ElseIf EventGadget = #Text_4
      ElseIf EventGadget = #Text_5
      ElseIf EventGadget = #Button_7
      ElseIf EventGadget = #Button_8
      ElseIf EventGadget = #Button_9
        End
      EndIf
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}

; IDE Options = PureBasic 4.60 (Windows - x86)
; CursorPosition = 44
; FirstLine = 18

J'aimerais mettre la valeur de la variable: Dossiersource$ dans le TextGadget#4, puis après un clic dans ExplorerTreeGadget mettre cette valeur dans la variable Dossiersource$.

Pouvez vous m'aider???

Merci

Bonjours
Vite fait
Regarde ceci .c'est un peu plus simple

Code : Tout sélectionner

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Variables

  Dossiersource$="Bureau"
  Extention$=""
  Dossiercible$=""

;}
;{ Gadgets
Enumeration
  #Text_0
  #ExplorerTree_3
  #Text_4
  #Text_5
  #Button_7
  #Button_8
  #Button_9
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}



Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 330, 350, "Selection du dossier cible", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)
    TextGadget(#Text_0, 20, 15, 220, 20, " Veuillez choisir le dossier cible")
     
    ExplorerTreeGadget(#ExplorerTree_3, 20, 40, 290, 230, "*.*",#PB_Explorer_GridLines |#PB_Explorer_AutoSort)
    TextGadget(#Text_4, 115, 280, 195, 20, Dossiersource$, #PB_Text_Border) 
    TextGadget(#Text_5, 20, 280, 70, 20, "Dossier :", #PB_Text_Border)
    ButtonGadget(#Button_7, 132, 315, 80, 20, "OK")
    ButtonGadget(#Button_8, 20, 315, 100, 20, "Nouveau dossier")
    ButtonGadget(#Button_9, 221, 315, 90, 20, "Quitter")
  EndIf
  
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select EventGadget()
      ; ///////////////////
    
;       EventGadget = EventGadget()
;       EventType = EventType()
;       If EventGadget = #Text_0
;       ElseIf EventGadget = #ExplorerTree_3
;         Dossiersource$=GetGadgetText(3)
;         Debug Dossiersource$
;       ElseIf EventGadget = #Text_4
;       ElseIf EventGadget = #Text_5
;       ElseIf EventGadget = #Button_7
;       ElseIf EventGadget = #Button_8
;       ElseIf EventGadget = #Button_9
;         End
;       EndIf
        Case #Text_4
        
        Case #Text_5
        
        Case #Button_7
        
        Case #Button_8
        
        Case #Button_9
        
        Case #ExplorerTree_3
         Select EventType
          Case #PB_EventType_LeftClick
          SetGadgetText(#Text_4,GetGadgetText(#ExplorerTree_3))
         EndSelect  

 EndSelect     
Until event = #PB_Event_CloseWindow
;
;}

; IDE Options = PureBasic 4.60 (Windows - x86)
; CursorPosition = 44
; FirstLine = 18

Tu te compliques trop. Maintenant je nai pas trop le temps, mais je pense que c'est a peu prés ce que tu veux.

Bonne soirée

Merci je vais essayer .

PureBasic

[Résolu ]Application du genre "Save AS"

[Résolu ]Application du genre "Save AS"

Re: Application du genre "Save AS"

[Résolu]Re: Application du genre "Save AS"