1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

#light

open System
open System.IO
open System.Windows.Forms
open Printf

// Create a form and set some properties

let form = new Form()

form.Text <- "My First F# Form"
form.Visible <- true

let menu = form.Menu <- new MainMenu()
let mnuFile = form.Menu.MenuItems.Add("&File")

let mnuiOpen = 
  new MenuItem("&Open...", 
               new EventHandler(fun _ _ -> 
                   let d = new OpenFileDialog() in 
                   d.InitialDirectory <- "c:\\";
                   d.Filter <- "txt files (*.txt)|*.txt|All files (*.*)|*.*";
                   d.FilterIndex <- 2;
                   d.RestoreDirectory <- true;
                   if d.ShowDialog() = DialogResult.OK then 
                       match d.OpenFile() with 
                       | null -> printf "Ooops... Could not read the file...\n"
                       | s -> 
                           let r = new StreamReader(s) in 
                           printf "The first line of the file is: %s!\n" (r.ReadLine());
                           s.Close();
               ), 
               Shortcut.CtrlO)

mnuFile.MenuItems.Add(mnuiOpen)

// Added Forms.Timer and form.Show()
let timer = new Windows.Forms.Timer(Interval = 1000)
timer.Tick.Add( fun _ -> Application.DoEvents() ; print_endline <| "tick: " + DateTime.Now.ToString(); )
timer.Start()
form.Show()