F＃中的DialogResult

Question

試圖從MVVM應用程序中的窗口檢索DialogResult，我偶然發現了上一個問題 。 在實施建議的更改后，示例如下所示：

type DialogCloser() =

    static let DialogResultProperty =
        DependencyProperty.RegisterAttached("DialogResult", typeof<bool>, typeof<DialogCloser>, new PropertyMetadata(DialogResultChanged))

    static member GetDialogResult (a:DependencyObject) =
        a.GetValue(DialogResultProperty) :?> bool

    static member SetDialogResult (a:DependencyObject) (value:string) = 
        a.SetValue(DialogResultProperty, value)

    member this.DialogResultChanged (a:DependencyObject) (e:DependencyPropertyChangedEventArgs) =
        let window = a :?> Window
        match window with
        | null -> failwith "Not a Window"
        | _ -> window.DialogResult <- System.Nullable (e.NewValue :?> bool)

現在DialogResultChanged在聲明之前使用，當然不會在F＃中計算。

我似乎無法找到一個有效的解決方案，任何幫助將不勝感激。

Answer 1

我不是WPF專家，但在這個相關的C＃解決方案中 ， DialogResultsChanged方法是靜態的。 如果你在F＃中將方法定義為靜態，你應該能夠在聲明它之前引用它（使用全名DialogCloser.DialogResultsChanged ），所以類似下面的方法應該可以做到這一點：

type DialogCloser() =

    static let DialogResultProperty =
        DependencyProperty.RegisterAttached
            ( "DialogResult", typeof<bool>, typeof<DialogCloser>, 
              new PropertyMetadata(DialogCloser.DialogResultChanged))

    static member GetDialogResult (a:DependencyObject) =
        a.GetValue(DialogResultProperty) :?> bool

    static member SetDialogResult (a:DependencyObject) (value:string) = 
        a.SetValue(DialogResultProperty, value)

    static member DialogResultChanged 
            (a:DependencyObject) (e:DependencyPropertyChangedEventArgs) =
        let window = a :?> Window
        match window with
        | null -> failwith "Not a Window"
        | _ -> window.DialogResult <- System.Nullable (e.NewValue :?> bool)