Приложение F# windowsforms с пользовательским классом

У меня есть класс кнопки, производной от Button()
с атрибутом позиции

namespace fgame15

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

module Game15Button =
   type Game15Button(position:Point) as button =
      inherit Button()
      member this.Pozition = position

Это мой основной модуль, который показывает форму
Компилируется без ошибок, но
не отображается форма с кнопкой

namespace fgame15

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

module Main = 
 do
    let form = new Form(BackColor = Color.Pink , Text = "My Window Application")
    let btn=new Button()
    btn.Text <- "Ok"
    form.Controls.Add(btn)
    Application.Run(form)

Распечатывает следующее предупреждение

Warning 1   Main module of program is empty: nothing will happen when it is run

1 ответ

Решение

Если это не ваш последний файл fs в проекте, он не будет выполняться при запуске приложения. Вы можете изменить порядок файлов, используя Alt+Up/Alt+Down в VS или используя контекстное меню для каждого файла.

Другие вопросы по тегам