Code: Alles auswählen
If OpenWindow(0,0,0,100,100,"Übung 2",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ListViewGadget(1,10,10,90,80)
eintrag = GetGadgetState(1);Eintrag ist immer -1
GadgetToolTip(1,"Bitte mit links klicken")
For zahl = 1 To 5
AddGadgetItem(1,#PB_Any,"Item "+Str(zahl))
Next
EndIf
Repeat
EventID = WaitWindowEvent()
EventType()
If EventType() = #PB_EventType_LeftClick
MessageRequester("Test","Sie haben "+Str(eintrag)+" ausgewählt!",0);Nur zum Test.
EndIf
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
Code: Alles auswählen
If OpenWindow(0,0,0,100,100,"Übung 2",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ListViewGadget(1,10,10,90,80)
GadgetToolTip(1,"Bitte mit links klicken")
For zahl = 1 To 5
AddGadgetItem(1,#PB_Any,"Item "+Str(zahl))
Next
Repeat
EventID = WaitWindowEvent()
EventType = EventType()
EventGadget = EventGadget()
Select EventID
Case #PB_Event_Gadget
Select EventGadget
Case 1
Select EventType
Case #PB_EventType_LeftClick
MessageRequester("Test","Sie haben "+Str(GetGadgetState(1))+" ausgewählt!",0);Nur zum Test.
EndSelect
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
EndIfCode: Alles auswählen
If OpenWindow(0,0,0,100,100,"Übung 2",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
ListViewGadget(1,10,10,90,80)
GadgetToolTip(1,"Bitte mit links klicken")
For zahl = 1 To 5
AddGadgetItem(1,#PB_Any,"Item "+Str(zahl))
Next
EndIf
Repeat
EventID = WaitWindowEvent()
EventType()
If EventType() = #PB_EventType_LeftClick
eintrag = GetGadgetState(1) ; <----- hier gehört die Abfrage hin!
MessageRequester("Test","Sie haben "+Str(eintrag)+" ausgewählt!",0);Nur zum Test.
EndIf
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf Code: Alles auswählen
MessageRequester("Test","Sie haben "+GetGadgetItemText(1, GetGadgetState(1), 0)+" ausgewählt!",0)
Stimmt ja.