MouseMove Event in Windows Form Using F#

Introduction

This article explains the MouseMove Event and how to draw various types of shapes in a Windows Forms application using the MouseMove Event. The MouseMove event is raised on an event of the specified selected control.

MouseMove Event

The MouseMove Event is used when the mouse pointer is moved to a selected area of the control or an event occurs when the mouse pointer moves inside the element.

MouseMove Event Members

• X: The X-CORDINATE of the mouse click.
• Y: The Y-CORDINATE of the mouse click.
• Button: Indicates which mouse button was pressed.
• Delta: Indicates a signed count of the number of detents the mouse wheel has rotated.
• Clicks: Indicates the number of times the mouse button was pressed and released.

Now  I will show you how to use the MouseMove Event in a Windows Forms application. Use the following procedure to create a sample of that.

Step 1

Open Visual Studio then select "Create New Project" -->"F# Console Application".

Step 2

Now go to the Solution Explorer, on the right side of the application. Right-click on "References" and select "Add references".

Step 3

After selecting "Add References", in the framework template you need to select "System.Windows.Forms" and System.Drawing while holding down the Ctrl key and click on "Ok".

Step 4

Write the following code for moving the mouse in an Arc shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let drawarcform = new Form(Text="Draw Arc MouseMoves")
drawarcform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgrphics=drawarcform.CreateGraphics()
drawarcform.Controls.Add(exitbutton)
drawarcform.MouseMove.Add(fun move->crgrphics.DrawArc(Pens.Violet,new Rectangle(move.X,move.Y,15,15),200.0f,-200.0f))
exitbutton.Click.Add(fun close->drawarcform.Close())
Application.Run(drawarcform)

Step 5

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 6

Write the following code for moving the mouse in a Rectangle shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let drawrectangleform = new Form(Text="Draw Rectangle MouseMoves")
drawrectangleform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgraphics=drawrectangleform.CreateGraphics()
drawrectangleform.Controls.Add(exitbutton)
drawrectangleform.MouseMove.Add(fun move->crgraphics.DrawRectangle(Pens.DarkBlue,new Rectangle(move.X,move.Y,10,10)))
exitbutton.Click.Add(fun close>drawrectangleform.Close())
Application.Run(drawrectangleform) 

Step 7

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 8

Write the following code to move the mouse in an Ellipse shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let drawellipseform = new Form(Text="Draw Ellipse MouseMoves")
drawellipseform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)  
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgraphics=drawellipseform.CreateGraphics()  
drawellipseform.Controls.Add(exitbutton)
drawellipseform.MouseMove.Add(fun move->crgraphics.DrawEllipse(Pens.Black,new Rectangle(move.X,move.Y,15,15)))
exitbutton.Click.Add(fun close->drawellipseform.Close())
Application.Run(drawellipseform)  

Step 9

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 10

Write the following code to move the mouse in a DrawLine shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let drawlineform = new Form(Text="DrawLines MouseMoves")
drawlineform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgraphics=drawlineform.CreateGraphics()
drawlineform.Controls.Add(exitbutton)
drawlineform.MouseMove.Add(fun move->gr.DrawLine(Pens.Red,move.X,move.Y,move.X+5,move.Y+5))
exitbutton.Click.Add(fun close->drawlineform.Close())
Application.Run(drawlineform)  

Step 11

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 12

Write the following code to move the mouse in a FillArc shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let drawfillpieform = new Form(Text="Draw FilPie MouseMouse")
drawfillpieform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"  
exitbutton.BackColor<-Color.Ivory
let crgraphics=drawfillpieform.CreateGraphics()
drawfillpieform.Controls.Add(exitbutton)
drawfillpieform.MouseMove.Add(fun move->crgraphics.FillPie(Brushes.MidnightBlue,new Rectangle(move.X,move.Y,15,15),170.0f,170.0f))
exitbutton.Click.Add(fun close->drawfillpieform.Close())
Application.Run(drawfillpieform)  

Step 13

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 14

Write the following code to move the mouse in an FillEllipse shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let fillellipseform = new Form(Text="Draw FillEllipse MouseMove")
fillellipseform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgraphics=fillellipseform.CreateGraphics()
fillellipseform.Controls.Add(exitbutton)
fillellipseform.MouseMove.Add(fun move->crgraphics.FillEllipse(Brushes.Red,new Rectangle(move.X,move.Y,15,15)))
exitbutton.Click.Add(fun close->fillellipseform.Close())
Application.Run(fillellipseform)  

Step 15

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Step 16

Write the following code to move the mouse in a FillRectangle shape in the F# editor.

open System
open System.Windows.Forms
open System.Drawing
let fillrecform = new Form(Text="Draw FillRectangle MouseMove")
fillrecform.BackColor<-Color.Gray
let exitbutton=new Button(Top=200,Left=200)
exitbutton.Text<-"Exit"
exitbutton.BackColor<-Color.Ivory
let crgraphics=fillrecform.CreateGraphics()
fillrecform.Controls.Add(exitbutton)
fillrecform.MouseMove.Add(fun move->crgraphics.FillRectangle(Brushes.Indigo,new Rectangle(move.X,move.Y,15,15)))
exitbutton.Click.Add(fun close->fillrecform.Close())
Application.Run(fillrecform)  

Step 17

Debug the application by pressing F5 to execute the Windows Forms application. After debugging the application the output will be as in the following figure:

Summary

This article explained the MouseMove Event and how to draw various types of shapes and fill the shapes in a Windows Forms application using the MouseMove Event.