新增 App.xaml 和 App.xaml.fs 將所有內容繫結在一起
<!-- All boilerplate for now -->
<Application
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
<Application.Resources>
</Application.Resources>
</Application>
這是背後的程式碼:
namespace Spirograph
open System
open System.Windows
open System.Windows.Controls
module Main =
[<STAThread; EntryPoint>]
let main _ =
// Create the app and the model with the "business logic", then create the
// main window and link its Canvas to the model so the model can access it.
// The main window is linked to the app in the Run() command in the last line.
let app = App()
let model = new Model()
let mainWindow = new MainWindow(app, model)
model.MyCanvas <- (mainWindow.FindName("myCanvas") :?> Canvas)
// Make sure the window is on top, and set its size to 2/3 of the dimensions
// of the screen.
mainWindow.Topmost <- true
mainWindow.Height <-
(System.Windows.SystemParameters.PrimaryScreenHeight * 0.67)
mainWindow.Width <-
(System.Windows.SystemParameters.PrimaryScreenWidth * 0.67)
app.Run(mainWindow) // Returns application's exit code.
App.xaml 是這裡的所有樣板,主要用於顯示可以宣告應用程式資源(如圖示,圖形或外部檔案)的位置。隨附的 App.xaml.fs 將 Model 和 MainWindow 結合在一起,將 MainWindow 的大小調整為可用螢幕大小的三分之二,然後執行它。
構建時,請記住確保每個 xaml 檔案的 Build 屬性都設定為 Resource。然後,你可以執行偵錯程式或編譯為 exe 檔案。請注意,你無法使用 F#直譯器執行此命令:FsXaml 包和直譯器不相容。
你有它。我希望你可以將此作為自己應用程式的起點,並且這樣做可以將你的知識擴充套件到此處所示的範圍之外。任何意見和建議將不勝感激。