Les gadgets

[SPH]

Je pense déjà qu'en mettant le nom de la constante dans tes tests, et non sa valeur, ça sera plus lisible.

Le double-clic dans l'ExplorerListGadget permet le parcours de l'arborescence du disque.
Donc pour récupérer la sélection, à mon avis, il faut le faire par l'interception du simple clic.

Code : Tout sélectionner

Case 8
	If EventType() = #PB_EventType_LeftClick
	; la : quel est le chemin et le nom du fichier ?
		Debug GetGadgetItemText(8, GetGadgetState(8))
	;	End  

	EndIf

Merci mais ca debuggue le nom du fichier et pas le chemin+nom du fichier...

[El Papounet]

Autant pour moi

Avec mes excuses...
http://www.purebasic.fr/english/viewtop ... 13&t=26275

[SPH]

Pas de quoi : http://forums.purebasic.com/english/vie ... 22bbe1144e

[dayvid]

@SPH , tu me surprendra toujours

Avec toi, ont ne sais jamais comment le prendre

si tu te fout de notre poire

ou

si tu es serrieux

Enfin bref

[SPH]

@SPH , tu me surprendra toujours

Avec toi, ont ne sais jamais comment le prendre

si tu te fout de notre poire

ou

si tu es serrieux

Enfin bref

Je ne pose pas de question inutile si je connais la reponse. Ca servirais a quoi ?

[SPH]

J'ai besoin de vos lumieres : j'ouvre une windows 0 et un bouton 1 dedans. Quand je clique sur le bouton, ca ouvre une windows 2. Mais comment fermer la windows 2 sans fermer la 0 et son bouton ?

Code : Tout sélectionner

OpenWindow(0, 100, 220, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ButtonGadget(1, 10,  10, 230, 20, "Bouton standard")

  Repeat
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget

      Select EventGadget()
        Case 1 ; Play
          OpenWindow(2, 500, 280, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
      EndSelect

    EndIf

  Until EventID = #PB_Event_CloseWindow

End  

[Kwai chang caine]

Moi je ferais comme ça

Code : Tout sélectionner

OpenWindow(0, 100, 220, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ButtonGadget(1, 10,  10, 230, 20, "Bouton standard")

 Repeat
  
  EventID = WaitWindowEvent()
   
  If EventID = #PB_Event_Gadget
   
   Select EventGadget()
     
    Case 1 ; Play
     
     OpenWindow(2, 500, 280, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
        
   EndSelect  
   
  ElseIf EventID =#PB_Event_CloseWindow
   
    Select EventWindow()
     Case 0
      Break
     Case 2 
      CloseWindow(2)
    EndSelect  
   
  EndIf

ForEver
 
End  

ou comme ça avec les endselect

Code : Tout sélectionner

OpenWindow(0, 100, 220, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ButtonGadget(1, 10,  10, 230, 20, "Bouton standard")

 Repeat
      
  Select WaitWindowEvent()
    
  Case #PB_Event_Gadget
   
   Select EventGadget()
     
    Case 1 ; Play
     
     OpenWindow(2, 500, 280, 250, 280, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
        
   EndSelect  
   
  Case #PB_Event_CloseWindow
   
    Select EventWindow()
     Case 0
      Break
     Case 2 
      CloseWindow(2)
    EndSelect  
   
  EndSelect

ForEver
 
End  

[SPH]

Merci KCC, je commence a comprendre. C'est genial

[SPH]

Code : Tout sélectionner

  Case #PB_Event_Gadget
  Case #PB_Event_CloseWindow

Ici, il y a 2 style de Case. Il peux y avoir quoi aussi ?

[Ar-S]

Case = Cas en français => Dans le cas ou
Tu peux donc utiliser Case au lieu de If.. ce débat à déjà eu lieu..
Tout ça pour dire que Case toto = 1 ou case machin = ceci ou cela, il y a pas de "style" de Case

[SPH]

Merci

[anissa]

@SPH

Je n'arrive pas à te croire, toi qui était le 1er à faire des remarques sur ce forum? Normalement c'est aux experts de faire des remarques et non pas aux novices ! Par contre, tu es apparemment au top en sprite et games n'est ce pas?? Si tu ne connais rien sur les gadgets cela veut dire que tu n'as jamais utilisé les gadgets même avec d'autres langages? (Si la réponse est oui, C'EST GRAVE ), la première chose à faire pour un nouveau programmeur c'est d'utiliser au moins un gadget puis un deuxième puis un troisième etc... Ce n'est que quand il saura les utiliser presque tous qu'il dira enfin qu'il est prêt à programmer... Bon... bonne chance quand même ...

[SPH]

@SPH

Je n'arrive pas à te croire, toi qui était le 1er à faire des remarques sur ce forum? Normalement c'est aux experts de faire des remarques et non pas aux novices ! Par contre, tu es apparemment au top en sprite et games n'est ce pas?? Si tu ne connais rien sur les gadgets cela veut dire que tu n'as jamais utilisé les gadgets même avec d'autres langages? (Si la réponse est oui, C'EST GRAVE ), la première chose à faire pour un nouveau programmeur c'est d'utiliser au moins un gadget puis un deuxième puis un troisième etc... Ce n'est que quand il saura les utiliser presque tous qu'il dira enfin qu'il est prêt à programmer... Bon... bonne chance quand même ...

Je te le dis : en 25 ans de programmation, je n'ai JAMAIS utiliser le moindre gadget. Je suis debutant total sur les gadgets mais je suis pro sur certains autres domaines. C'est comme ca : chacun ses points forts...

[Chris]

Je te le dis : en 25 ans de programmation, je n'ai JAMAIS utiliser le moindre gadget. Je suis debutant total sur les gadgets mais je suis pro sur certains autres domaines. C'est comme ca : chacun ses points forts...

Personnellement, j'ai un peu de mal à te croire, mais bon...Après tout, pourquoi pas?

Les types qui programment les machines et les robots dans les usines n'ont probablement jamais créé une fenêtre ou utilisé les gadgets.
Ça reste quand même des programmeurs.

Mais alors, t'as fait quoi, avec PB pendant tout ce temps?
T'as quand même pas passé cinq ans à programmer sur la console

[SPH]

Mais alors, t'as fait quoi, avec PB pendant tout ce temps?
T'as quand même pas passé cinq ans à programmer sur la console

Que des screen