Discussion :

[olsimare]

Bonjour.

J'utilise dans mon appli des controls personnalisées "transparents" qui me permettent de conserver le background des forms comme ceci :

Pièce jointe 18981

Pour ce faire, tous les controls personnalisés utilisent :

Code :

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

1
2
3
4
5
6
7
8
 
   Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property

J'ai constaté que l'invalidation d'une partie de la form (du type déplacement d'une autre form au dessus de celle-ci), ne provoque pas le redessin des controls (pas d'invalidate des controls enfants de la form ???).

Ca donne ça (c'est trés frustrant) :
Pièce jointe 18982

En supprimant le code ci-dessus les controls sont bien redessinés (mais évidemment ça ne ressemble plus à rien du fait du gradient que j'utilise sur la form).

Des appels au invalidate des controls sur le onpaintbackground de la form me semble une méthode un peu sauvage pour contourner cela.

La question est donc : y-a-t'il moyen en jouant sur le ExStyle de résoudre se probléme ?

Cdt.

[olsimare]

Re.

Bon j'ai une solution de contournement trouvé ici :
http://componentfactory.blogspot.com...-controls.html

Ne pas utiliser le createparams et forcer dans le onpaintbackground le redessin du parent :

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
 
   Private Sub PaintParentBackground(ByVal e As PaintEventArgs)
        If Not Me.Parent Is Nothing Then
            Dim rect As Rectangle = New Rectangle(Left, Top, Width, Height)
            e.Graphics.TranslateTransform(-rect.X, -rect.Y)
            Dim pea As PaintEventArgs = New PaintEventArgs(e.Graphics, rect)
            pea.Graphics.SetClip(rect)
            InvokePaintBackground(Parent, pea)
            InvokePaint(Parent, pea)
            e.Graphics.TranslateTransform(rect.X, rect.Y)
        End If
    End Sub
 
    Protected Overrides Sub OnPaintBackground( _
        ByVal pevent As PaintEventArgs)
        PaintParentBackground(pevent)
        ' rien
    End Sub

Je ne mets pas en résolu car ça reste du contournement à mon sens...

Cdt.

[olsimare]

Bon bon...

Finalement la meilleure solution reste de jouer sur la region du control et là tout fonctionne nickel.

La solution de repeindre le background du control parent ne fonctionne pas pour des tabcontrols (--> boucle entre le tabpage affiché et le tabcontrol via la form).

Donc résolu.