где следует щелкнуть событие добавить после наследования окна?

Question

В следующем тестовом коде, когда откроется окно, тоже появится всплывающее окно приветствия. Звучит, что запускается код после fun _ -> при открытии окна. Когда я отлаживаю, чтобы увидеть без test001, кажется, что он не запускается один за другим, как не запускать код после fun _ ->:

let test001 = MessageBox.Show("hello")
type Server() as this =
    inherit windows
       do connectionButton.Click.Add (fun _ -> test001
                                            tc.Connect("localhost", 2626) )

Answer 1

Поскольку test001 является значением, оно оценивается только один раз.Вам нужна функция, которая будет вызывать MessageBox каждый раз, когда он вызывается:

let test001() = MessageBox.Show("hello") // test001 is now a function
type Server() as this =
    inherit windows
       do connectionButton.Click.Add (fun _ -> test001() |> ignore
                                               tc.Connect("localhost", 2626))

Answer 2

Вам нужно создать экземпляр Server, как это

Предполагая, Server наследуется от System.Windows.Form

System.Windows.Forms.Application.Run(new Server())