Changing the Pointer when the mouse hovers an object(Visual F#)

To change the mouse pointer when the mouse hovers an object, use the Cursor property. All form controls in Visual F# has Cursor property. To use the Cursor property, use the following syntax:

view plainprint?

1. Objectvariable.Cursor<-Cursors.CursorStyle  

Objectvariable.Cursor<-Cursors.CursorStyle

For example:

view plainprint?

1. exitbutton.Cursor<-Cursors.UpArrow  

exitbutton.Cursor<-Cursors.UpArrow

Some CursorStyles values are NoMove2D,Cross and PanSouth. To understand the usage of the Cursor property, try the following example: 1. Click Start>All Programs>Microsoft Visual Studio 2008>Microsoft Visual Studio 2008. 2. Click File>New>Project>Select Visual F# in the project types>Select F# application in the Visual Studio installed templates category. 3. Click the Project menu>Add reference>Click the .Net tab>Locate then double-click System.Windows.Forms. Do step 3 again and this time, select System.Drawing from the .Net tab. 4. Enter the following code after the line “// Learn more about F# at http://fsharp.net “:

view plainprint?

1. // Learn more about F# at http://fsharp.net  
2. //specify the namespace memory location  
3. //of the classes that will be needed in our application  
4. open System  
5. open System.Drawing  
6. open System.Windows.Forms  
7. //create our controls  
8. let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)  
9. let myform=new Form(Text="Use Cursors",AutoScaleDimensions=new System.Drawing.SizeF(60.0F, 13.0F),ClientSize=new System.Drawing.Size(207, 133),StartPosition=FormStartPosition.CenterScreen)  
10. let llabel1=new Label(Text="Hand Cursor",AutoSize=true,Location=new System.Drawing.Point(20, 80))  
11. let llabel2=new Label(Text="AppStarting Cursor",AutoSize=true,Location=new System.Drawing.Point(120,80))  
12. //add the controls into our form  
13. myform.Controls.Add(llabel1)  
14. myform.Controls.Add(llabel2)  
15. //add a mousehover and mouseleave events to our controls  
16. //when the mouse hovers our labels, its cursor style,forecolor, and font size will change  
17. //when the mouse leaves our control, the cursor style, label forecolor, and font size will  
18. //return back to default  
19. llabel1.MouseHover.Add(fun disphandcursor->  
20.                   llabel1.ForeColor<-Color.Red  
21.                   llabel1.Cursor<-Cursors.Hand  
22.                   let ffont=new System.Drawing.Font("Microsoft Sans Serif",12.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)  
23.                   llabel1.Font<-ffont)  
24. llabel1.MouseLeave.Add(fun changefontsize->  
25.                   llabel1.ForeColor<-Color.Empty  
26.                   let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)  
27.                   llabel1.Font<-ffont)  
28. llabel2.MouseHover.Add(fun dispappcursor->  
29.                   llabel2.ForeColor<-Color.Red  
30.                   llabel2.Cursor<-Cursors.AppStarting  
31.                   let ffont=new System.Drawing.Font("Microsoft Sans Serif",12.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)  
32.                   llabel2.Font<-ffont)  
33. llabel2.MouseLeave.Add(fun retainsfontsize->  
34.                   llabel2.ForeColor<-Color.Empty  
35.                   let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)  
36.                   llabel2.Font<-ffont)                
37. myform.Show()  
38. //executes our application  
39. Application.Run(myform)  

// Learn more about F# at http://fsharp.net
//specify the namespace memory location
//of the classes that will be needed in our application
open System
open System.Drawing
open System.Windows.Forms
//create our controls
let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
let myform=new Form(Text="Use Cursors",AutoScaleDimensions=new System.Drawing.SizeF(60.0F, 13.0F),ClientSize=new System.Drawing.Size(207, 133),StartPosition=FormStartPosition.CenterScreen)
let llabel1=new Label(Text="Hand Cursor",AutoSize=true,Location=new System.Drawing.Point(20, 80))
let llabel2=new Label(Text="AppStarting Cursor",AutoSize=true,Location=new System.Drawing.Point(120,80))
//add the controls into our form
myform.Controls.Add(llabel1)
myform.Controls.Add(llabel2)
//add a mousehover and mouseleave events to our controls
//when the mouse hovers our labels, its cursor style,forecolor, and font size will change
//when the mouse leaves our control, the cursor style, label forecolor, and font size will
//return back to default
llabel1.MouseHover.Add(fun disphandcursor->
                  llabel1.ForeColor<-Color.Red
                  llabel1.Cursor<-Cursors.Hand
                  let ffont=new System.Drawing.Font("Microsoft Sans Serif",12.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
                  llabel1.Font<-ffont)
llabel1.MouseLeave.Add(fun changefontsize->
                  llabel1.ForeColor<-Color.Empty
                  let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
                  llabel1.Font<-ffont)
llabel2.MouseHover.Add(fun dispappcursor->
                  llabel2.ForeColor<-Color.Red
                  llabel2.Cursor<-Cursors.AppStarting
                  let ffont=new System.Drawing.Font("Microsoft Sans Serif",12.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
                  llabel2.Font<-ffont)
llabel2.MouseLeave.Add(fun retainsfontsize->
                  llabel2.ForeColor<-Color.Empty
                  let ffont=new System.Drawing.Font("Microsoft Sans Serif",9.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
                  llabel2.Font<-ffont)              
myform.Show()
//executes our application
Application.Run(myform)

5. Click the run icon to execute your application. You should now see an output similar to the following screen shot:

TabControl(Visual F#)

TabControl is a control that can be used to organize information. It can be utilized as a good alternative to menustrip control. To Create a TabControl in Visual F#, use the folowing syntax:

view plainprint?

1. let tabcontrolobjvariable=new TabControl()  

let tabcontrolobjvariable=new TabControl()

For example:

view plainprint?

1. let tabcontrol=new TabControl()  

let tabcontrol=new TabControl()

To add a page to your tab control, use the Create an object from the TabPage class using the following syntax:

view plainprint?

1. Let tabpageobjvariable=new TabPage()  

Let tabpageobjvariable=new TabPage()

For example:

view plainprint?

1. Let tabpage=new TabPage()  

Let tabpage=new TabPage()

For a simple example on using TabControl, follow these steps:

1. Click Start>All Programs>Microsoft Visual Studio 2008>Microsoft Visual Studio 2008.
2. Click File>New>Project>Select Visual F# in the project types>Select F# application in the Visual Studio installed templates category.
3. Click the Project menu>Add reference>Click the .Net tab>Locate then double-click System.Windows.Forms. Do step 3 again and this time, select System.Drawing from the .Net tab.
4. Enter the following code after the line “// Learn more about F# at http://fsharp.net “:

view plainprint?

1. // Learn more about F# at http://fsharp.net  
2. //use the F# library  
3. open System  
4. //use the drawing classes  
5. open System.Drawing  
6. //specifies the location of the form class  
7. open System.Windows.Forms  
8. //specifies the font face and style  
9. let ffont=new Font("Arial", 9.75F,FontStyle.Italic, GraphicsUnit.Point)  
10. //creates a form  
11. let tabform=new Form(Text="Use TabControl",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font,ClientSize=new System.Drawing.Size(250,250),FormBorderStyle=FormBorderStyle.FixedSingle)  
12. //creates a tab control set its TabSizeMode to fixed  
13. let tabcontrol=new TabControl(SizeMode=TabSizeMode.Fixed,Location=new System.Drawing.Point(20, 20),Size=new System.Drawing.Size(214, 192))  
14. //creates a new tab page  
15. let page1=new TabPage(Text="First Tab",Cursor=Cursors.Hand)  
16. //creates a new label  
17. let page1label=new Label(Text="This is page1",Font=ffont,Location=new System.Drawing.Point(20, 20))  
18. //creates another tab page  
19. let page2=new TabPage(Text="Second Tab",Cursor=Cursors.Hand)  
20. //creates another label  
21. let page2label=new Label(Text="This is page2",Font=ffont,Location=new System.Drawing.Point(20, 20))  
22. //adds the tabcontrol to our form  
23. tabform.Controls.Add(tabcontrol)  
24. //adds the tab pages to our tab control  
25. tabcontrol.Controls.Add(page1)  
26. //adds the label to the first page  
27. page1.Controls.Add(page1label)  
28. //adds the second page to our tab control  
29. tabcontrol.Controls.Add(page2)  
30. //adds the second label to our tab control  
31. page2.Controls.Add(page2label)  
32. tabform.Show()  
33. //executes our application  
34. Application.Run(tabform)  

// Learn more about F# at http://fsharp.net
//use the F# library
open System
//use the drawing classes
open System.Drawing
//specifies the location of the form class
open System.Windows.Forms
//specifies the font face and style
let ffont=new Font("Arial", 9.75F,FontStyle.Italic, GraphicsUnit.Point)
//creates a form
let tabform=new Form(Text="Use TabControl",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font,ClientSize=new System.Drawing.Size(250,250),FormBorderStyle=FormBorderStyle.FixedSingle)
//creates a tab control set its TabSizeMode to fixed
let tabcontrol=new TabControl(SizeMode=TabSizeMode.Fixed,Location=new System.Drawing.Point(20, 20),Size=new System.Drawing.Size(214, 192))
//creates a new tab page
let page1=new TabPage(Text="First Tab",Cursor=Cursors.Hand)
//creates a new label
let page1label=new Label(Text="This is page1",Font=ffont,Location=new System.Drawing.Point(20, 20))
//creates another tab page
let page2=new TabPage(Text="Second Tab",Cursor=Cursors.Hand)
//creates another label
let page2label=new Label(Text="This is page2",Font=ffont,Location=new System.Drawing.Point(20, 20))
//adds the tabcontrol to our form
tabform.Controls.Add(tabcontrol)
//adds the tab pages to our tab control
tabcontrol.Controls.Add(page1)
//adds the label to the first page
page1.Controls.Add(page1label)
//adds the second page to our tab control
tabcontrol.Controls.Add(page2)
//adds the second label to our tab control
page2.Controls.Add(page2label)
tabform.Show()
//executes our application
Application.Run(tabform)

5. Click the run icon to execute your application. You should now see an output similar to the following screen shot: