-- Gambas.JochenGeorges - 24 Dec 2004

Как использовать MouseDown, MouseMove и 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