-1


位置属性を持つ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
4

1 に答える 1

0

これがプロジェクト内の最後のファイル fs でない場合、アプリの起動時に実行されません。VS で Alt+Up/Alt+Down を使用するか、各ファイルのコンテキスト メニューを使用して、ファイルを並べ替えることができます。

于 2013-11-03T12:47:38.553 に答える