Binding validation erreur malgrés ValidatesOnExceptions=True

Version imprimable

Bonjour, j'ai un problème avec la validation de donnée avec un binding simple d'une classe.
J'ai simplifié un maximum le code que je vous montre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Class Personne Private _Nom As String Public Property Nom As String Get Return _Nom End Get Set(ByVal value As String) _Nom = value If value.Length > 7 Then Throw New ArgumentException("Trop de 7 car") End If End Set End Property
Dans le xaml
Code:

1 2 <TextBox Height="53" Name="TextBox1" Width="248" Text="{Binding Path=Nom, ValidatesOnExceptions=True}" />
Que je rajoute Implements INotifyPropertyChanged ou IEditableObject ne change rien à l'erreur.

Si je depasse les 7 caractères dans la textbox j'ai une erreur :

Citation:

L'exception System.ArgumentException n'a pas été gérée par le code utilisateur
Message=Trop de 7 car
Source=Test et Essais
StackTrace:
à WpfApplication1.Personne.set_Nom(String value) dans C:\Users\bip\Documents\Visual Studio 2010\Projects\Test et Essais\Test et Essais\MainWindow.xaml.vb:ligne 29
InnerException:

14/01/2011, 13h10
Thomas Lebrun

Tu as l'erreur en débug je suppose ? Du coup, si tu appuies sur F5, tu devrais retourner à ton application et voir le cadre rouge apparaitre :)

Super Merci !!!

En plus cette méthode , provient de ton livre.
J'avais fais avec une autre méthode mais je trouvais vraiment dommage de ne pas trouver pourquoi mon code ne fonctionnait pas.

Code:

1
2
3
4
5
6
7
8
 
<DataGridTextColumn.Binding >
     <Binding Path="Condt" UpdateSourceTrigger="PropertyChanged">
            <Binding.ValidationRules>
                   <local:TailleString  MaxLenght="10"/>
             </Binding.ValidationRules>
      </Binding>
</DataGridTextColumn.Binding >

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Imports System.Text
Imports System.Globalization
 
 
Friend Class TailleString
    Inherits ValidationRule
    Property MaxLenght As Integer
 
    Public Overrides Function Validate(ByVal value As Object, ByVal cultureInfo As CultureInfo) As ValidationResult
        If value.ToString.Length > MaxLenght Then
            Return New ValidationResult(False, "La longueur de la chaine est suppérieure à " & MaxLenght & "!")
        Else
            Return ValidationResult.ValidResult
        End If
    End Function
End Class

Encore merci.

PS : Il est bien ton livre mais tout le code est en C# et pas en VB.net, donc il faut que je me tappe toutes les conversions !