EventType()

Syntax

EventType = EventType()

After a #PB_Event_Gadget or #PB_Event_WebSocket, use this function to determine of which type the event is. The following gadgets support EventType():

- CanvasGadget() - The CanvasGadget has a special set of event types.
- ComboBoxGadget()
- EditorGadget()
- ImageGadget()
- ListViewGadget()
- ListIconGadget()
- SpinGadget()
- StringGadget()
- WebGadget() - The WebGadget has a special set of event types.

(See the gadget definition to see which events are supported.)

Parameters

None.

Return value

If an event of the type #PB_Event_Gadget (library Gadget) occured, the possible values are:

  #PB_EventType_LeftClick       : Left mouse button click
  #PB_EventType_RightClick      : right mouse button click
  #PB_EventType_LeftDoubleClick : Left mouse button double click
  #PB_EventType_RightDoubleClick: Right mouse button double click
  #PB_EventType_Focus           : Get the focus.
  #PB_EventType_LostFocus       : Lose the focus.
  #PB_EventType_Change          : Content change.

If an event of the type #PB_Event_WebSocket (library WebSocket) occured, the possible values are:

  #PB_EventType_Connected: The WebSocket is now connected to the server
  #PB_EventType_Closed   : The WebSocket connection has been closed
  #PB_EventType_String   : A string has been recieved. Use EventString() to get the string content
  #PB_EventType_Data     : A binary data has been recieved. Use EventData() to get the memory buffer. Once
                           the buffer is no more needed, use FreeMemory() to free it
  #PB_EventType_Error    : An error occured on the WebSocket

Example: Gadget example

  Procedure GadgetEvents()
    Select EventGadget()
      Case 1 
        Select EventType()
          Case #PB_EventType_LeftClick        : Debug "Click with left mouse button"
          Case #PB_EventType_RightClick       : Debug "Click with right mouse button"
          Case #PB_EventType_LeftDoubleClick  : Debug "Double-click with left mouse button"
          Case #PB_EventType_RightDoubleClick : Debug "Double-click with right mouse button"
       EndSelect
    EndSelect
  EndProcedure
  
  If OpenWindow(0, 0, 0, 330, 320, "EventType example...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
     ListIconGadget(1, 10, 10, 310, 300, "ListIcon", 280)
     For k = 1 To 4 
       AddGadgetItem(1, -1, "Line " + k)
     Next
     
     BindEvent(#PB_Event_Gadget, @GadgetEvents())
  EndIf

See Also

EventGadget(), EventType(), EventTimer()

Supported OS

All