[Gelöst] Geklicktes Imagegadget ermitteln?

Anfängerfragen zum Programmieren mit PureBasic.
TheNewOne
Beiträge: 60
Registriert: 06.04.2011 14:33

[Gelöst] Geklicktes Imagegadget ermitteln?

Beitrag von TheNewOne »

Hallo zusammen,
ich habe da mal eine Frage. Ich habe einige ImageGadgets, und nun möchte ich ermitteln auf welches ImageGadget der Benutzer geklickt hat.

Code: Alles auswählen

Select EventType()
  Case #PB_EventType_LeftClick
EndSelect
Also damit kann ich da den Klick ermitteln, aber wie kann ich jetzt wissen auf welches genau geklickt wurde?
Vielleicht kann mir ja jemand helfen. :)
Zuletzt geändert von TheNewOne am 07.07.2013 23:36, insgesamt 1-mal geändert.
Win7, 64bit, PB 4.60
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Geklicktes Imagegadget ermitteln?

Beitrag von RSBasic »

Code: Alles auswählen

EnableExplicit

Define EventID
Define EventGadget

CreateImage(1, 100, 100)

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ImageGadget(1, 50, 50, 0, 0, ImageID(1), 0)
  ImageGadget(2, 200, 50, 0, 0, ImageID(1), 0)
  ImageGadget(3, 50, 200, 0, 0, ImageID(1), 0)
  ImageGadget(4, 200, 200, 0, 0, ImageID(1), 0)
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      EventGadget = EventGadget()
      Debug "Gadget: " + Str(EventGadget)
      Select EventGadget
        Case 1
          
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
TheNewOne
Beiträge: 60
Registriert: 06.04.2011 14:33

Re: Geklicktes Imagegadget ermitteln?

Beitrag von TheNewOne »

Vielen Dank RSBasic :D
Win7, 64bit, PB 4.60
Antworten