Discussion :

[Pol63]

bonjour

j'ai fait un smarttag pour un control (classe designer) et donc je modifie des propriétés
le problème, c'est que vs n'est pas au courant, il n'y a pas l'étoile qui apparait pour dire que le fichier a changé et est sauvegardable (donc ca sérialise pas si je fais pas autre chose sur la fenetre)

quelqu'un a deja trouvé ce qu'il faut faire ?

merci

[olsimare]

Bonjour.

J'avais le même soucis, et de mémoire cela venait de l'absence de OnComponentChanged dans ma DesignerTransaction.

Pour illustration, le code suivant fonctionne correctement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Overrides Function EditValue(ByVal context As ITypeDescriptorContext, ByVal provider As IServiceProvider, ByVal value As Object) As Object
        If (Not provider Is Nothing) Then
            Dim service As IWindowsFormsEditorService = DirectCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
            Dim host As IDesignerHost = TryCast(provider.GetService(GetType(IDesignerHost)), IDesignerHost)
            If ((service Is Nothing) OrElse (host Is Nothing)) Then
                Return value
            End If
 
            Dim f As Form = CType(host.RootComponent(), Form)
 
            Dim selectionControl As _
            New CLFWAddToolTipControlsEditorFrm(DirectCast(value, CLFWAddToolTipControlHashTable), f)
 
            Using transaction As DesignerTransaction = host.CreateTransaction
 
                context.OnComponentChanging()
 
                service.ShowDialog(selectionControl)
                'If selectionControl.Dirty Then
                value = selectionControl.ToolTipControls
                TypeDescriptor.Refresh(DirectCast(context.Instance, CLFWAddToolTip).Controls)
                If (Not transaction Is Nothing) Then
                    transaction.Commit()
                End If
 
                context.OnComponentChanged()
 
                Return value
                'End If
                'transaction.Cancel()
            End Using
        End If
        Return value
    End Function

PS : je ne gére pas le cancel comme tu peux le voir.

Cdt.

[Pol63]

ca m'a l'air pas mal
me reste plus qu'à pouvoir y accéder
je suis dans une classe designer, je vais voir si j'ai accès au service qui va bien ...

[Pol63]

bon j'ai trouvé le service et ca donne ca :

Code :

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

DirectCast(_monobjet.Site.GetService(GetType(System.ComponentModel.Design.IComponentChangeService)), System.ComponentModel.Design.IComponentChangeService).OnComponentChanged(_monobjet, Nothing, Nothing, Nothing)

c'est à peaufiner un peu, mais ca fait ce qu'il faut