एफ # डिफ़ॉल्ट मूल्य में निर्भरता संपत्ति

Question

से मेल नहीं खाती है, मैं एक सी # निर्भरता संपत्ति को परिवर्तित करने की कोशिश कर रहा हूं जो कॉम्बोबॉक्स में दर्ज की गई अधिकतम लंबाई को F # में सीमित करता है। कार्यक्रम एक एमवीवीएम प्रोग्राम है जो मॉडल और व्यूमोडेल के लिए एफ # और दृश्य के लिए सी # का उपयोग करता है।

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); 
        } 
       }; 
      } 
     } 
    } 

एफ # कोड यह है:: काम कर रहे सी # कोड यह है

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) 

समस्या मैं कर रहा हूँ कि XAML त्रुटि मैं है:

डिफ़ॉल्ट मान प्रकार संपत्ति के प्रकार से मेल नहीं खाता MaxLength

मैं क्या कर रहा हूँ एनजी?

Answer 1

आप इस

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) 

की कोशिश कर सकते द्वारा अपने कोड में मुख्य अंतर यह है कि एक UIPropertyMetadata(0, PropertyChangedCallback OnMaxLengthChanged)PropertyChangedCallback में OnMaxLengthChanged परिवर्तित करता है।

लेकिन मुझे यह अजीब लगता है कि आप .Loaded की सदस्यता लेते हैं, हर बार जब आप अधिकतम मूल्य बदलते हैं। मुझे संदेह है कि आप केवल पहली बार सब्सक्राइब करना चाहते हैं?