Picturebox Control(Visual F#)

Picturebox is a control used to display an image on your form. To create a picturebox, use the following syntax:

view plainprint?

1. let pictureboxobjvariable=new PictureBox()  

let pictureboxobjvariable=new PictureBox()

for instance:

view plainprint?

1. let picbox=new PictureBox()  

let picbox=new PictureBox()

To specify the url of an image to display in the picturebox, use the Image property.

Syntax:

view plainprint?

1. pictureboxobjvariable.ImageLocation<-"url of an existent image"  

pictureboxobjvariable.ImageLocation<-"url of an existent image"

for instance:

view plainprint?

1. picbox.ImageLocation<-"C:\myimage.png"  

picbox.ImageLocation<-"C:\myimage.png"

Just make sure that myimage.jpg exist on your computer. Follow the steps below for a simple example on using a picturebox. 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. //use the f# standard library  
2. // Learn more about F# at http://fsharp.net  
3.   
4. open System  
5. //use this to enable the intellisense. Very helpful in coding your application  
6. open System.Drawing   
7. //specify the location of the Form classes  
8. open System.Windows.Forms   
9. //create a form named imageform  
10. let imageform=new Form(Text="Use PictureBox",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font)  
11. //creates a horizontal scrollbar  
12. let hscroll=new HScrollBar(Location=new System.Drawing.Point(10, 230),Width=270)  
13. //creates a tooltip  
14. let tip=new ToolTip(IsBalloon=true,ToolTipIcon=ToolTipIcon.Info)  
15. //creates a picturebox named picbox  
16. //set the sizemode to autosize to adjust the size of the picturebox  
17. //depending on the size of your image  
18. //sets the picturebox borderstyle to fixed single  
19. let picbox=new PictureBox(SizeMode=PictureBoxSizeMode.AutoSize,BorderStyle=BorderStyle.FixedSingle,Top=5)  
20. picbox.ImageLocation<-("C:\suzzane.png")  
21. //adds the picturebox on your form  
22. imageform.Controls.Add(picbox)  
23. imageform.Controls.Add(hscroll)  
24. //adds the scrollbar to our form  
25. //displays a tooltip when the mouse hovers the scrollbar  
26. hscroll.MouseHover.Add(fun desc->tip.SetToolTip(hscroll,"Drag the scroll box to move the image"))  
27. //change the horizontal position of the image when the scrollbox is moved  
28. hscroll.Scroll.Add(fun move->picbox.Left<-Convert.ToInt32(hscroll.Value.ToString()))  
29. imageform.Show()  
30. Application.Run(imageform)  
31. //executes your application  

//use the f# standard library
// Learn more about F# at http://fsharp.net

open System
//use this to enable the intellisense. Very helpful in coding your application
open System.Drawing 
//specify the location of the Form classes
open System.Windows.Forms 
//create a form named imageform
let imageform=new Form(Text="Use PictureBox",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font)
//creates a horizontal scrollbar
let hscroll=new HScrollBar(Location=new System.Drawing.Point(10, 230),Width=270)
//creates a tooltip
let tip=new ToolTip(IsBalloon=true,ToolTipIcon=ToolTipIcon.Info)
//creates a picturebox named picbox
//set the sizemode to autosize to adjust the size of the picturebox
//depending on the size of your image
//sets the picturebox borderstyle to fixed single
let picbox=new PictureBox(SizeMode=PictureBoxSizeMode.AutoSize,BorderStyle=BorderStyle.FixedSingle,Top=5)
picbox.ImageLocation<-("C:\suzzane.png")
//adds the picturebox on your form
imageform.Controls.Add(picbox)
imageform.Controls.Add(hscroll)
//adds the scrollbar to our form
//displays a tooltip when the mouse hovers the scrollbar
hscroll.MouseHover.Add(fun desc->tip.SetToolTip(hscroll,"Drag the scroll box to move the image"))
//change the horizontal position of the image when the scrollbox is moved
hscroll.Scroll.Add(fun move->picbox.Left<-Convert.ToInt32(hscroll.Value.ToString()))
imageform.Show()
Application.Run(imageform)
//executes your application

5. Click the run icon to execute your application. You should now see an output similar to the following screen shot: If you want a more in depth explanation on this controls, visit the MSDN website at msdn.microsoft.com or the Microsoft F# Development Center at http://msdn.microsoft.com/en-us/fsharp/default.aspx

Using a timer control in Visual F#

Timer controls are used to automatically execute an action after a specified time has elapsed. To create a timer control in F#, use the following syntax:

view plainprint?

1. let timerobjvariable=new Timer()  

let timerobjvariable=new Timer()

For instance:

view plainprint?

1. let timer=new Timer()  

let timer=new Timer()

For a simple example on using a timer control, 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 this to enable the intellisense. Very helpful in coding your application  
5. open System.Drawing   
6. //specify the location of the Form classes  
7. open System.Windows.Forms  
8. //creates a form  
9. let timerform=new Form(Text="Use Timer",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font)  
10. //use the random function to generate random numbers  
11. let exitbutton=new Button(Text="Exit", Location=new System.Drawing.Point(200, 220))  
12. let random=new Random()  
13. //create a timer object and set its interval to 1 second  
14. //by default timer are disabled so you'll need to enable it  
15. let timer1=new Timer(Interval=1000,Enabled=true)  
16. //assigns a random backcolor to our form   
17. //change it every 1 second  
18. timer1.Tick.Add(fun time->timerform.BackColor<-Color.FromArgb(random.Next(0,255),random.Next(0,255),random.Next(0,255)))  
19. //adds the exit button to our form  
20. timerform.Controls.Add(exitbutton)  
21. //when the exit button is clicked  
22. exitbutton.Click.Add(fun quit->  
23. //stops the time  
24. timer1.Stop()  
25. //close the form  
26. timerform.Close())                     
27. //show our form  
28. timerform.Show()  
29. //execute our application  
30. Application.Run(timerform)  

// Learn more about F# at http://fsharp.net
//use the F# library
open System
//use this to enable the intellisense. Very helpful in coding your application
open System.Drawing 
//specify the location of the Form classes
open System.Windows.Forms
//creates a form
let timerform=new Form(Text="Use Timer",StartPosition=FormStartPosition.CenterScreen,AutoScaleMode=AutoScaleMode.Font)
//use the random function to generate random numbers
let exitbutton=new Button(Text="Exit", Location=new System.Drawing.Point(200, 220))
let random=new Random()
//create a timer object and set its interval to 1 second
//by default timer are disabled so you'll need to enable it
let timer1=new Timer(Interval=1000,Enabled=true)
//assigns a random backcolor to our form 
//change it every 1 second
timer1.Tick.Add(fun time->timerform.BackColor<-Color.FromArgb(random.Next(0,255),random.Next(0,255),random.Next(0,255)))
//adds the exit button to our form
timerform.Controls.Add(exitbutton)
//when the exit button is clicked
exitbutton.Click.Add(fun quit->
//stops the time
timer1.Stop()
//close the form
timerform.Close())                   
//show our form
timerform.Show()
//execute our application
Application.Run(timerform)

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



If you want a more in depth explanation on this controls, visit the MSDN website at msdn.microsoft.com or the Microsoft F# Development Center at http://msdn.microsoft.com/en-us/fsharp/default.aspx