Proprietà di dipendenza in F # Il valore predefinito non corrisponde a

Question

Sto tentando di convertire una proprietà di dipendenza C# che limita la lunghezza massima del testo immesso in un controllo ComboBox a F #. Il programma è un programma MVVM che utilizza F # per il modello e viewmodel e C# per la vista. il codice di lavoro C# è questo:

public class myComboBoxProperties 
    { 
     public static int GetMaxLength(DependencyObject obj) 
     { 
      return (int)obj.GetValue(MaxLengthProperty); 
     } 

     public static void SetMaxLength(DependencyObject obj, int value) 
     { 
      obj.SetValue(MaxLengthProperty, value); 
     } 

     // Using a DependencyProperty as the backing store for MaxLength. This enables animation, styling, binding, etc... 
     public static readonly DependencyProperty MaxLengthProperty = 
      DependencyProperty.RegisterAttached("MaxLength", 
      typeof(int), 
      typeof(myComboBoxProperties), 
      new UIPropertyMetadata(OnMaxLengthChanged)); 

     private static void OnMaxLengthChanged(DependencyObject obj, DependencyPropertyChangedEventArgs args) 
     { 
      if (obj is ComboBox) 
      { 
       ComboBox comboBox = (ComboBox)obj; 

       comboBox.Loaded += (sender, e) => 
       { 
        TextBox textBox = comboBox.Template.FindName("PART_EditableTextBox", comboBox) as TextBox; 

        if (textBox != null) 
        { 
         textBox.SetValue(TextBox.MaxLengthProperty, args.NewValue); 
        } 
       }; 
      } 
     } 
    } 

Il codice F # è questo:

type myComboBoxProperties() = 

    static let OnMaxLengthChanged (myobj1 : DependencyObject, args : DependencyPropertyChangedEventArgs) = 

     let comboBox = myobj1 :?> ComboBox 

     comboBox.Loaded.Subscribe (fun _ -> 
            let textBox : TextBox = comboBox.Template.FindName("PART_EditableTextBox", comboBox) :?> TextBox 
            match textBox with 
            | null ->() 
            |_ -> textBox.SetValue(TextBox.MaxLengthProperty, args.NewValue)) 

    static let MaxLengthProperty = DependencyProperty.RegisterAttached("MaxLength", typeof<int>, typeof<myComboBoxProperties>, new UIPropertyMetadata(OnMaxLengthChanged)) 

    static member GetMaxLength (myobj : DependencyObject) = myobj.GetValue(MaxLengthProperty) :?> int 

    static member SetMaxLength (myobj : DependencyObject, value : int) = myobj.SetValue(MaxLengthProperty, value) 

Il problema che sto avendo è che l'errore XAML che ottengo è:

tipo di valore predefinito non corrisponde al tipo di immobile MaxLength

Cosa sto facendo wro ng?

Answer 1

Si potrebbe provare questo

open System.Windows 
open System.Windows.Controls 

type MyComboBoxProperties() = 

    static let OnMaxLengthChanged (myobj1 : DependencyObject) (args : DependencyPropertyChangedEventArgs) = 

    let comboBox = myobj1 :?> ComboBox 

    comboBox.Loaded.Add (
     fun _ -> 
     let textBox : TextBox = comboBox.Template.FindName("PART_EditableTextBox", comboBox) :?> TextBox 
     match textBox with 
     | null ->() 
     |_ -> textBox.SetValue(TextBox.MaxLengthProperty, args.NewValue) 
    ) 

    static let MaxLengthProperty = 
    DependencyProperty.RegisterAttached(
     "MaxLength", 
     typeof<int>, 
     typeof<MyComboBoxProperties>, 
     UIPropertyMetadata(0, PropertyChangedCallback OnMaxLengthChanged) 
    ) 

    static member GetMaxLength (myobj : DependencyObject) = myobj.GetValue(MaxLengthProperty) :?> int 

    static member SetMaxLength (myobj : DependencyObject, value : int) = myobj.SetValue(MaxLengthProperty, value) 

La differenza chiave per il codice è questo UIPropertyMetadata(0, PropertyChangedCallback OnMaxLengthChanged) che converte in un OnMaxLengthChangedPropertyChangedCallback.

Ma mi sembra strano che tu abbia sottoscritto lo .Loaded anche ogni volta che cambia il valore massimo. Sospetto che ti piaccia iscriversi solo la prima volta?