Rechter muisklik

Als je wil reageren op de rechtermuisklik kan dat in volgende twee stappen:

PUBLIC SUB SchermObject_MouseDown() 
  '
  IF Mouse.Right
    ' Doe iets
  ENDIF 
  '
END

Veelgebruikt is extra informatie of een extra optie geven voor het met de muis aangewezen object.

Om de gebruiker in te lichten vul je de “tooltip” in van het aangewezen object, zodat de extra mogelijkheid uitgelegd wordt alvorens geklikt is.

Voorbeeld: een rooster met gegevens van werknemers (Tableview met Employee data):

Twee andere procedures moeten bestaan;

  • newDataAvailable() AS BOOLEAN ‘ checkt of er nieuwe data is
  • doReloadData() ‘ haalt nieuwe data af en vult ze in de tabel
PUBLIC SUB tbvwEmpl_MouseDown() 'tbvwEmpl_DblClick()
  '
  IF Mouse.Right
    IF newDataAvailable()
      tbvwEmpl.Clear()
      doLoadData()
    ELSE 
      Message.Info("Up to date already")
    ENDIF  
  ENDIF 
  '
END

This entry was posted in Gambas2. Bookmark the permalink.