Objektorientierte "Hallo Welt" mit Windows Forms in F #

Question

Ich arbeite mich gerade durch "Real World Functional Programming". Ich versuche, Beispiel 1.12 zum Arbeiten zu bringen, ein "Hallo Welt" -Programm mit Windows-Formularen. Dies ist der Code: - „eine zweite Nachrichtenschleife auf einem einzigen Thread zu starten ist keine gültige Operation“ -

open System.Drawing;; 
    open System.Windows.Forms;; 

    type HelloWindow() = 
     let frm = new Form(Width = 400, Height = 140) 
     let fnt = new Font("Times New Roman", 28.0f) 
     let lbl = new Label(Dock = DockStyle.Fill, Font = fnt, 
           TextAlign = ContentAlignment.MiddleCenter) 
     do frm.Controls.Add(lbl) 


     member x.SayHello(name) = 
       let msg = "Hello" + name + "!" 
       lbl.Text <- msg 

     member x.Run() = 
       Application.Run(frm);; 

    let hello = new HelloWindow();; 
    hello.SayHello("you");; 
    hello.Run();; 

Leider ist dies ein Fehler wirft Offensichtlich gibt es ein Fenster, das sich öffnet und nicht endet, und das verwirrte das Programm. Ich kann nicht sehen, wie ich den Fehler beheben kann, kann mir jemand helfen?

Ich habe auch den letzten Codeblock als Eingabe versucht: -

let hello = new HelloWindow() 
    hello.SayHello("you") 
    hello.Run();; 

Aber das hilft nicht. Der Code wird ordnungsgemäß ausgeführt, führt jedoch zu keinem Ergebnis, da die letzte Zeile auskommentiert ist.

Answer 1

Das Beispiel sollte kompiliert und als Windows Form-Anwendung ausgeführt werden. Wenn Sie es in F # Interactive ausführen möchten, müssen Sie frm.Show() statt Application.Run(frm) verwenden.

Sie könnten das Beispiel sowohl in F # Interactive funktioniert und in kompilierten Projekte mit compiler directives:

type HelloWindow() = 
    let frm = new Form(Width = 400, Height = 140) 
    // ... 
    // The same as before 

    member x.Run() = 
     #if INTERACTIVE 
     frm.Show() 
     #else 
     Application.Run(frm) 
     #endif