PureBasic

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

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

Chris a écrit :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

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 ?

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

PureBasic

Probleme avec ExplorerCombo editable ???

Probleme avec ExplorerCombo editable ???