PureBasic

Bonsoir

Je souhaiterai afficher un dossier et uniquement ce dossier dans une fenetre sous format grande icon. Sachant que dans ce dossier il n'y a que des raccourcis. Ceci sans passer par le web gadget ou execute c:/. Vu que je veux qu'il y est accès que à ce dossier.

Et aussi est ce que sur PB4 on peut gerer les raccourcis, juste savoir leurs noms et l'adresse du fichier qu'il demarre.

En gros comme le programme de jacobus dans la partie droite cf image :

merci

Je ne comprends pas ton affaire, tu veux faire ce que fait WebGadget mais tu ne veux pas utiliser WebGadget ?????????????

Si tu change d'avis :

Code : Tout sélectionner

Enumeration
  #Window_0
  #Web_0
EndEnumeration
Global  site.s=GetSpecialFolderLocation(25)

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 969, 731, "Bureau",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      WebGadget(#Web_0, 0, 0, 970, 730, site)
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
  Event = WaitWindowEvent()
  GadgetID = EventGadget()

  If Event = #PB_Event_Gadget

    If GadgetID = #Web_0
      SetGadgetText(#Web_0,site)
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End

Et bien quand j'utilise un web gadget j'ai la barre de gestion de windows qui se met... Voilà le problème en image :

Personne ne sait comment faire pour ne pas avoir la barre bleu a gauche dans le webgadget quand je met comme adresse : c:/ ??

Je n'ai pas cette barre bleu mais je suis en IEPLORE version 7, alors essaye de télécharger cette version !

pour ne pas avoir la barre bleu il te suffit de paramétrer ton ordi !!

1- tu ouvre une fenêtre
2-menu outils--> option des dossiers
3-"utiliser les dossiers classique de windows"

voila

Dobro a écrit :pour ne pas avoir la barre bleu il te suffit de paramétrer ton ordi !!

1- tu ouvre une fenêtre
2-menu outils--> option des dossiers
3-"utiliser les dossiers classique de windows"

voila

ce que tu me dis est inquietant dobro car cela veut dire que des gens qui utiliseront mon programme auront peut etre la barre bleu qui au passage risque de ruiner l'interface.
C'est dans le registre pour modifier ça ?

Pourquoi ne pas utiliser ExplorerListGadget?

Code : Tout sélectionner

Folder.s = "C:\Documents and Settings\All Users\Bureau\"

OpenWindow(0, 0, 0, 640, 160, "Explorer List Gadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CreateGadgetList(WindowID(0))
    ExplorerListGadget(0, 0, 0, 640, 160, Folder + "*.lnk", #PB_Explorer_MultiSelect)
      ChangeListIconGadgetDisplay(0, #PB_ListIcon_LargeIcon) 
   
  Repeat
  
    wEvent = WindowEvent()
    If wEvent
    
      Select wEvent
      
        Case #WM_CLOSE
          Quit = #True

      EndSelect
    
    EndIf
    Delay(10)
    
  Until Quit = #True
  
End

cederavic a écrit :Pourquoi ne pas utiliser ExplorerListGadget?

Code : Tout sélectionner

Folder.s = "C:\Documents and Settings\All Users\Bureau"

OpenWindow(0, 0, 0, 640, 160, "Explorer List Gadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CreateGadgetList(WindowID(0))
    ExplorerListGadget(0, 0, 0, 640, 160, Folder + "*.lnk", #PB_Explorer_MultiSelect)
      ChangeListIconGadgetDisplay(0, #PB_ListIcon_LargeIcon) 
   
  Repeat
  
    wEvent = WindowEvent()
    If wEvent
    
      Select wEvent
      
        Case #WM_CLOSE
          Quit = #True

      EndSelect
    
    EndIf
    Delay(10)
    
  Until Quit = #True
  
End

merci tu es mon sauveur lol

Comme le dit Cederavic

Pourquoi ne pas utiliser ExplorerListGadget?

C'est ce que j'ai utilisé. Gadget très utile et pratique.

Si tu ajoutes l'option sans bordure dans les paramètres, tu peux l'intégrer facilement à ton interface car il accepte SetGadgetColor()

PureBasic

[Resolu]fenetre raccourcis

[Resolu]fenetre raccourcis