text des button ermitteln

[jpd]

Hi Puristen,

wie kann ich aus diesen code den aktuellen text des button ermitteln?

Code: Alles auswählen

m=0
dist_x=40
dist_y=40


z=40

If OpenWindow(1111, 366, 176, 500, 200,  #PB_Window_SystemMenu | #PB_Window_TitleBar , "buttonID") 
    If CreateGadgetList(WindowID()) 
      For y=1 To 10
        m=m+1
        ButtonGadget(m, dist_x*y, dist_y, z, z,Str(Random(m))) 
      Next y
    EndIf
EndIf
Repeat 
  
  Event = WaitWindowEvent() 
  
  WindowID = EventWindowID() 
  
  GadgetID = EventGadgetID() 
    Debug GadgetID
   
  EventType = EventType()
  
  
Until Event = #PB_Event_CloseWindow 

Danke

jpd

[Green Snake]

dies geht mittels GetGadgetText(#GadgetNummer)

und das m=m+1 kannst du dir sparen.
du kannst da einfach den wert von y nehmen

[jpd]

Hi Green Snake,

danke für die prompte antwort,

aber das mit GetGadgetText(#GadgetNummer)

funktioniert nicht , oder das kann gut möglich sein ich verwende dies falsch!

ich habe folgende zeile hinzugefügt

GadgetID = EventGadgetID()
Debug GadgetID
Debug GetGadgetText(GadgetID)

und bekomme folgende fehlermeldung ...
#Gadget object not initialized

kann überhaubt getgadgettext(#gadgetnummer) für ein button verwendet werden?

Danke
JPD

[edel]

Ja, denn deine Schleife beginnt bei 1 nicht 0 (kommt auf das Event an).
Du solltest natuerlich auch immer erst "Event" abfragen,
ob ueberhaupt irgendwo ein Button gedrueckt wurde

Code: Alles auswählen

    if Event = #PB_Event_Gadget
      GadgetID = EventGadgetID() 
      Debug GadgetID
      Debug GetGadgetText(GadgetID)
    endif

[jpd]

super Hallodri,

bingo

würde mann genauer die sache analysieren.....

aber wenn man kein ausweg findet...

gibt es ja dieses super forum!

Danke
JPD