-- Gambas.JochenGeorges - 24 Dec 2004

How to use MouseDown, MouseMove and MouseUp


mouseevents.png
' Gambas class file

PUBLIC SUB da1_MouseDown()
  Draw.Begin(da1)
    Draw.Ellipse(Mouse.X, Mouse.Y, 9, 9)
  Draw.End
END

PUBLIC SUB da2_MouseMove()
  Draw.Begin(da2)
    Draw.Ellipse(mouse.X, mouse.Y, 9, 9)
  Draw.End
END

PUBLIC SUB da3_MouseUp()
  Draw.Begin(da3)
    Draw.Ellipse(Mouse.X, Mouse.Y, 9, 9)
  Draw.End
END