qui peux m'aider a completer mon bout de code svp

[bernard13]

bonjour
qui peux m'aider dans ma boucle de mon bout de code
j'ai crée une fenetre avec une image ( j'utilise ImageGadget)

mais je veux faire quand on clique sur l'image q''un text apparait a droite
ca marche si je met un BoutonImageGadget mais je sais pas coment faire la meme chose avec une imageGadget
dans ma boucle j'ai ecris ceci :

Select EventType()
Case #PB_EventType_LeftClick

afficher()
afficher est ma procedure pour afficher le texte a droite
mais il me manque une commande pour dire ai programme que l'on clique sur l'image la constante de de l'image est #image.
mais j'ai beau lire la doc je trouve pas la commande .

merci de m'aiderr

Code : Tout sélectionner

 Repeat
      event=WaitWindowEvent()
      Select event
       
       
        Case #PB_EventGadget
          Select EventGadgetID()
        
       
          Case #bouton_quitter
              fermer=1
          Select  EventType()
       Case  #PB_EventType_LeftClick       
         
         afficher() 
         EndSelect
               
          EndSelect
        Case #PB_EventCloseWindow
          fermer=1
      EndSelect
    Until fermer=1
    End
    

[Progi1984]

la commande est je crois gadgeteventid() pour plus d'infos la doc !

[bernard13]

gadgeteventid() existe pas

[bernard13]

je cherche le code pour dire au programme que l'on clique sur l'image et que le texte s'affiche a droite

[KarLKoX]

Code : Tout sélectionner

#IMAGE_GADGET_1 = 0
#IMAGE_GADGET_2 = 1

If OpenWindow(0,0,0,245,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ImageGadget") And CreateGadgetList(WindowID(0))
     UseJPEGImageDecoder()
    If LoadImage(0, "D:\Temp\Images\Avatar-Clubic.jpg") 
      ImageGadget(#IMAGE_GADGET_1, 10,10,100,83,UseImage(0))
      ImageGadget(#IMAGE_GADGET_2,130,10,100,83,UseImage(0),#PB_Image_Border)
    EndIf
    Repeat 
     EventID = WaitWindowEvent()
    
     Select EventID
          Case #PB_Event_CloseWindow
               Quit = 1
               
          Case #PB_EventGadget 
          
               GadgetID = EventGadgetID() 
               Select GadgetID
                    Case #IMAGE_GADGET_1
                         Debug "IMAGE_GADGET_1 CLICK"
                         
                    Case #IMAGE_GADGET_2
                         Debug "IMAGE_GADGET_2 CLICK"
               
               EndSelect
               
      EndSelect
      
    Until Quit = 1
  EndIf

[nico]

Ca n'est pas possible tout simplement!

Tu peux toujours utiliser ma lib!

[bernard13]

merci mais c'est pas exactement que je voulais

[bernard13]

j'ai trouver
il fallait simplement mettre case #image:afficher()
puisque mon image est un gadget .

Code : Tout sélectionner

 Repeat 
      event=WaitWindowEvent() 
      Select event 
        
        
        Case #PB_EventGadget 
          Select EventGadgetID() 
          case #image:afficher()
        
          Case #bouton_quitter 
              fermer=1 
        
       
          EndSelect 
        Case #PB_EventCloseWindow 
          fermer=1 
      EndSelect 
    Until fermer=1 
    End 

[nico]

Depuis le temps que t'es inscris, je n'arrive pas à le croire.

[bernard13]

je bosse dur en faisant des exercices
je reprend des exemples que j'ai dans mes livres de visualbasic
je me suis meme crée des fiches que j'ai dans une classeur j'ai 3 classeur pour m'aider

[KarLKoX]

j'ai trouver
il fallait simplement mettre case #image:afficher()
puisque mon image est un gadget .

Code : Tout sélectionner

 Repeat 
      event=WaitWindowEvent() 
      Select event 
        
        
        Case #PB_EventGadget 
          Select EventGadgetID() 
          case #image:afficher()
        
          Case #bouton_quitter 
              fermer=1 
        
       
          EndSelect 
        Case #PB_EventCloseWindow 
          fermer=1 
      EndSelect 
    Until fermer=1 
    End 

C'est exactement ce que j'ai mis ...

[gansta93]

[bernard13]

excuse moi KarLKoX
j'avais pas fais attention la premiere fois .