EventType()
Syntax
EreignisTyp = EventType()Beschreibung
Nach einem WindowEvent() oder WaitWindowEvent() Befehl benutzen Sie diese Funktion, um den Typ des letzten Ereignisses (englisch: "Event") festzustellen.
Die folgenden Gadgets unterstützen EventType():
- CanvasGadget() - Das CanvasGadget hat ein spezielles Set von Ereignis-Typen.
- ComboBoxGadget()
- DateGadget()
- EditorGadget()
- ExplorerListGadget()
- ExplorerTreeGadget()
- ImageGadget()
- ListViewGadget()
- ListIconGadget()
- MDIGadget()
- OpenGLGadget()
- SpinGadget()
- StringGadget()
- WebGadget() - Das WebGadget hat ein spezielles Set von Ereignis-Typen.
(Siehe die jeweilige Gadget-Beschreibung, welche Ereignisse unterstützt werden.)
Parameter
Diese Funktion hat keine Parameter.
Rückgabewert
Die folgenden Werte sind möglich, wenn ein Ereignis des Typs #PB_Event_Gadget (Bibliothek Gadget) oder #PB_Event_SysTray (Bibliothek SysTray) auftritt:#PB_EventType_LeftClick : Klick mit der linken Maustaste #PB_EventType_RightClick : Klick mit der rechten Maustaste #PB_EventType_LeftDoubleClick : Doppelklick mit der linken Maustaste #PB_EventType_RightDoubleClick : Doppelklick mit der rechten Maustaste #PB_EventType_Focus : Fokus erhalten #PB_EventType_LostFocus : Fokus verloren #PB_EventType_Change : Inhalt hat sich geändert. #PB_EventType_DragStart : Der Anwender versucht, eine Drag & Drop Operation zu starten.
Beispiel
If OpenWindow(0, 0, 0, 230, 120, "Eventtypes Beispiel...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 10, 10, 150, 100, "ListIcon", 140, #PB_ListIcon_GridLines) For a= 1 To 4 AddGadgetItem(1, -1, "Line "+Str(a)) Next a Repeat Event = WaitWindowEvent() Select Event Case #PB_Event_Gadget Select EventGadget() Case 1 Select EventType() Case #PB_EventType_LeftClick : Debug "Klick mit der linken Maustaste" Case #PB_EventType_RightClick : Debug "Klick mit der rechten Maustaste" Case #PB_EventType_LeftDoubleClick : Debug "Doppelklick mit der linken Maustaste" Case #PB_EventType_RightDoubleClick : Debug "Doppelklick mit der rechten Maustaste" EndSelect EndSelect EndSelect Until Event = #PB_Event_CloseWindow EndIf
Siehe auch
WaitWindowEvent(), WindowEvent()
Unterstützte OS
Alle