Probleme avec ExplorerCombo editable ???

[SpaceMan]

salut à vous chers basiciens !
comme l'explique le titre du poste j'ai un probleme avec l'ExplorerComboGadget qui fonctionne de façon alléatoire
je veux juste qu'apres avoir saisi le nom d'un rep et appuyé sur Entrée, qu'il m'affiche ce rep dans ExplorerCombo et son contenu dans l'ExplorerListGadget mais là

Code : Tout sélectionner

Enumeration 
  #Window_0 
EndEnumeration 
Enumeration 
  #ExplorerList_1 
  #Button_2 
  #HyperLink_3 
  #ExplorerCombo_4 
EndEnumeration 
Global TxtExplorerCombo$ 

Define.l Event, EventWindow, EventGadget, EventType, EventMenu 
Procedure OpenWindow_Window_0() 
  If OpenWindow(#Window_0, 619, 2, 394, 299, "Explorer", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar) 
    If CreateGadgetList(WindowID(#Window_0)) 
       ExplorerListGadget(#ExplorerList_1, 2, 26, 390, 227, "c:\") 
       ButtonGadget(#Button_2, 0, 260, 395, 20, "Delete") 
       ExplorerComboGadget(#ExplorerCombo_4, 2, 2, 390, 100, "c:\", #PB_Explorer_Editable)
    EndIf 
  EndIf 
EndProcedure 

OpenWindow_Window_0() 
;SetGadgetText(#ExplorerCombo_4, "C:\TBXP Appli\") 
txtExplorerCombo$ = GetGadgetText(#ExplorerCombo_4)
Repeat 
  Event = WaitWindowEvent() 
  Select Event 
  
    Case #PB_Event_Gadget 
      EventGadget = EventGadget() 
      EventType = EventType() 
      If EventGadget = #ExplorerList_1 
      ElseIf EventGadget = #Button_2 
      ElseIf EventGadget = #HyperLink_3 
      ElseIf EventGadget = #ExplorerCombo_4 
        txtExplorerCombo$ = GetGadgetText(#ExplorerCombo_4) 
        SetGadgetText(#ExplorerList_1, TxtExplorerCombo$) 
      EndIf 

    Case #PB_Event_CloseWindow 
      EventWindow = EventWindow() 
      If EventWindow = #Window_0 
         CloseWindow(#Window_0) 
         Break 
      EndIf 
  EndSelect 
ForEver

Merci

[Chris]

Pour utiliser le ComboExplorer comme tu veux le faire, il faut saisir le chemin complet dans le combo.

Par exemple : "C:\Program Files" puis Entree

[SpaceMan]

Pour utiliser le ComboExplorer comme tu veux le faire, il faut saisir le chemin complet dans le combo.

Par exemple : "C:\Program Files" puis Entree

Merci Chris
mais si je dois par exemple accéder au disque D:\ là ça ne marche pas
edité
c'est bizarre quand j'exécute ce code sur mon pc ca ne marche pas mais au bureau ça marche

[SpaceMan]

voici les résultats que j'obtiens quand j'essaie de saisir un chemin dans l'ExplorerComboGadget:
C:\ est affiché par défaut
je saisis D:\ puis entrée -------> rien ne se passe
je saisis D:\Compressor Xpert -------> là c'est ok !
je veux revenir au disque C:\ -------> rien ne se passe
quelqu'un peut confirmer ?

[SpaceMan]

On dirait que vous utilisez pas ce gadget moi je ne comprends plus rien