Page 2 sur 4

Re: Les gadgets

Publié : sam. 25/juin/2011 15:09
par SPH
El Papounet a écrit :Je pense déjà qu'en mettant le nom de la constante dans tes tests, et non sa valeur, ça sera plus lisible. :wink:

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... :oops:

Re: Les gadgets

Publié : sam. 25/juin/2011 15:29
par El Papounet
Autant pour moi :lol:

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

Re: Les gadgets

Publié : sam. 25/juin/2011 15:36
par SPH

Re: Les gadgets

Publié : sam. 25/juin/2011 15:44
par 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 :lol:

Re: Les gadgets

Publié : sam. 25/juin/2011 15:47
par SPH
dayvid a écrit :@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 :lol:
Je ne pose pas de question inutile si je connais la reponse. Ca servirais a quoi ?

Re: Les gadgets

Publié : lun. 27/juin/2011 16:39
par 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  

Re: Les gadgets

Publié : lun. 27/juin/2011 17:04
par Kwai chang caine
Moi je ferais comme ça :roll:

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  

Re: Les gadgets

Publié : lun. 27/juin/2011 17:41
par SPH
Merci KCC, je commence a comprendre. C'est genial :P

Re: Les gadgets

Publié : lun. 27/juin/2011 17:45
par 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 ?

Re: Les gadgets

Publié : lun. 27/juin/2011 18:08
par 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

Re: Les gadgets

Publié : lun. 27/juin/2011 18:15
par SPH
Merci :wink:

Re: Les gadgets

Publié : lun. 27/juin/2011 18:58
par 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 ...

Re: Les gadgets

Publié : lun. 27/juin/2011 19:26
par SPH
anissa a écrit :@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...

Re: Les gadgets

Publié : lun. 27/juin/2011 23:24
par Chris
SPH a écrit :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 :mrgreen:

Re: Les gadgets

Publié : mar. 28/juin/2011 7:54
par SPH
Chris a écrit :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 :mrgreen:
Que des screen :mrgreen: