Discussion :

[noftal]

Bonjour,
Dans un formulaire, j'ai un contrôle de type NumericUpDown et un contrôle personnalisé de type StarRate (équivalent à un NumUpDown mais affiche des étoiles de 1 à 5 pour attribuer une note)

Je suis toujours en train de fiabiliser ce contrôle personnalisé que j'évoquais ici

Mon StarRate a une property Value qui doit fonctionner comme le NumericUpDown (NUD).

Voici le code de cette property :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Public Property Value() As Integer
        Get
            Return StarValue
        End Get
        Set(ByVal value As Integer)
                If value > StarCount Then
                StarValue = StarCount
            Else
                StarValue = value
            End If
 
           Me.Refresh()
        End Set
    End Property

(Il y a bien sûr une sub OnPaint qui décrit comment colorier les étoiles en fonction de value).

Mon formulaire est en fait lié à une table. Je passe d'un enregistrement à l'autre à l'aide d'un BindingNavigator qui contient aussi un bouton AddNew (natif dans le BindingNavigator)

En cliquant sur ce bouton AddNew, les champs du formulaire doivent s'effacer pour permettre la saisie d'un nouvel enregistrement par l'utilisateur.
Il se trouve que ce bouton AddNew a, par construction de VB.NET, la gentillesse de simuler l'équivalent d'un bindingsource.addnew quand on clique dessus (j'ai découvert cela par hasard).
En revanche, il faut effacer les champs par le code.
Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub AjouterEnregistrement(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewItem.Click
NumericUpDown1.Value =  0 ' pour mon NUD
Textbox1.Clear() ' pour un champ de type textbox ; on peut aussi faire TextBox1.text = Nothing
StarRate1.Value = 0
...
End Sub

A la ligne 4, le champ StarRate est bien mis à zéro, si l'enregistrement affiché comportait une valeur non nulle, mais sitôt le End Sub passé, ce champ reprend la valeur d'avant.
J'ai remarqué que ce n'est pas le cas du NUD qui reste bien à 0 après le End Sub
J'ai remarqué que je peux résoudre le pb en ajoutant après la ligne 4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StarRate1.DataBindings.Clear()

Mais ce n'est pas très élégant, car cela m'oblige à restaurer explicitement le DataBinding pour ce champ si je clique sur le bouton Cancel du bindingnavigator alors que, pour les autres champs, un simple Bindingsource.CancelEdit règle la question (c'est-à-dire suffit à restaurer les valeurs des champs avant le clique sur AddNew)

J'en déduis que le code de ma property est incomplet.
Mon idée est de m'inspirer de la property Value du NUD qui, lui, se comporte bien comme attendu.

En résumé, quelqu'un pourrait-il m'aider à trouver le code source complet de la propriété Value de la classe NumericUpDown ou (plus difficile), me dire ce qui manque dans le code de ma propriété pour que mon contrôle personnalisé se comporte comme le NUD face à un ajout d'enregistrement (et son annulation) lorsque le contrôle est lié à un DataBinding ?

[Sehnsucht]

Pour le code source c'est pas difficile maintenant que celui-ci est consultable voir ici

Pour ce qui est du reste, à voir si l'attribut Bindable présent sur NumericUpDown.Value ou la levée de l'évènement ValueChanged ont une incidence

[noftal]

Merci pour ce lien dont j'ignorais l'existence.
Cela répond parfaitement à la question posée dans le sujet de ce topic.
Je solde donc la question.

Toutefois, je n'ai pas bien réussi à décrypter le code sous-jacent. J'ai essayé de m'en inspirer mais sans succès.

A la ligne 4, le champ StarRate est bien mis à zéro, si l'enregistrement affiché comportait une valeur non nulle, mais sitôt le End Sub passé, ce champ reprend la valeur d'avant.

Pour ce qui concerne ce pb, j'ai fait un test sur un projet VB simplifié et je n'arrive pas à reproduire le pb. je ne suis donc pas certain que le pb vienne du code de mon contrôle personnalisé. Je penche plutôt sur un pb propre au code de mon appli.
J'ai un peu de mal à pister ce que fait le code après l'event sub AddNew.Click car le débogage pas à pas boucle sur des Event de type CellFormatting et/ou GotFocus. Or si pb il y a , je pense que c'est plus loin dans l'exécution du code.

Merci en tout cas de ton aide. Je reviendrai avec une question plus précise si j'arrive à cerner davantage mon pb, mais pour l'instant, je ne pense pas que qqun puisse m'aider dans ce forum au vu des éléments évoqués.

[_Ez3kiel]

Pour le code source c'est pas difficile maintenant que celui-ci est consultable voir ici

Merci aussi pour ce lien dont j'ignorais l'existence ! Enfin des réponses à mes questions sur les choix de Windows ... !

[Invité]

C'est en parti pour ça que je ne poste plus de question sur le forum depuis un moment

J'ai appris pas mal de truc en regardant les sources notamment la programmation par contrat et d'autres concept peu connu.


Toutefois, il est fort dommage que les Modérateurs des Forum du .NET (C#, VB et autres) n'est posté un tel lien en haut de chaque forum.

[clementmarcotte]

Bonjour,

Pour le code source c'est pas difficile maintenant que celui-ci est consultable voir ici

Merci pour le lien que le ne connaissais pas. Pour cela, tu "mérites" un

Dire que je me pensais un grand expert de la recherche sur MSDN.

[noftal]

Pour résoudre le problème que j'évoquais plus haut, j'ai trouvé une solution sans pour autant être capable d'expliquer pourquoi elle résout le pb.

J'ai mis la propriété BindingNavigator.AddNewItem à None dans le designer alors que, jusqu'ici, sa valeur était le nom du bouton AddNew.
En contrepartie, il faut que je rajouter l'instruction BindingSource.addNew en début de l'Event click du bouton AddNew.
En revanche, cette dernière instruction rend les instructions de type TextBox.clear inutiles
Mais il faut que je garde l'instruction StarRate.Value = 0

Dans ces conditions, un clic sur AddNew prépare le bindingsource pour l'ajout d'un enregistrement et met à 0 tous les champs, y compris les StarRate.

L'important est que je n'ai pas besoin de faire un DataBindings.Clear sur le StarRate pour que la valeur 0 soit bien prise en compte.