F #: использование INotifyPropertyChanged для привязки данных

Ответ 1

Он в основном такой же, как на любом другом языке:

open System.ComponentModel
type MyType() =
  let ev = new Event<_,_>()
  let mutable str = ""
  member x.StringProp
    with get() = str
     and set(str') =
       str <- str'
       ev.Trigger(x, PropertyChangedEventArgs("StringProp"))
  interface INotifyPropertyChanged with
    [<CLIEvent>]
    member x.PropertyChanged = ev.Publish

Ответ 2

https://github.com/Fody/PropertyChanged https://github.com/Fody/PropertyChanged/issues/280

На практике

Вы можете использовать измененный fody proeprty для автоматической реализации

public abstract class ViewModelBase :  INotifyPropertyChanged
    {
        public event PropertyChangedEventHandler PropertyChanged;
    }

Тогда вы можете использовать его следующим образом

type ViewModelTest() =
    inherit ViewModelBase()

    member val Hello = 6 with get, set

    member x.Yes = x.Hello + 1

Сгенерированные декомпилированные коды являются

using System;
using Microsoft.FSharp.Core;

namespace Shrimp.UI.Forms.FSharp
{
    // Token: 0x02000002 RID: 2
    [CompilationMapping(3)]
    [Serializable]
    public class ViewModelTest : ViewModelBase
    {
        // Token: 0x06000001 RID: 1 RVA: 0x00002050 File Offset: 0x00000250
        public ViewModelTest() : this()
        {
            [email protected] = 6;
        }

        // Token: 0x17000001 RID: 1
        // (get) Token: 0x06000002 RID: 2 RVA: 0x00002061 File Offset: 0x00000261
        // (set) Token: 0x06000003 RID: 3 RVA: 0x0000206C File Offset: 0x0000026C
        public int Hello
        {
            get
            {
                return [email protected];
            }
            set
            {
                if ([email protected] == value)
                {
                    return;
                }
                [email protected] = value;
                this.<>OnPropertyChanged(<>PropertyChangedEventArgs.Yes);
                this.<>OnPropertyChanged(<>PropertyChangedEventArgs.Hello);
            }
        }

        // Token: 0x17000002 RID: 2
        // (get) Token: 0x06000004 RID: 4 RVA: 0x000020A4 File Offset: 0x000002A4
        public int Yes
        {
            get
            {
                return this.Hello + 1;
            }
        }

        // Token: 0x04000001 RID: 1
        internal int [email protected];
    }
}