Discussion :

[yozart]

Bonjour,
J'ai un panel auquel j'ai appliqué un fond invisible. Le problème est que lorsque j'utilise le scroll du panel, l'image de fond de mon form bouge également dans le panel. Avez vous un moyen pour que le fond reste statique dans le panel???


Merci

[Pol63]

oui mais ca peut etre compliqué

essaye d'abord sur ton panel dans le new me.doublebuffered = true

[yozart]

Merci mais cela ne fonctionne pas.... je fais actuellement un refresh du Panel lors du scroll de celui ci. C'est vraiment pas terrible mais au moins, ca marche un minimum... si quelqu'un a une meilleure solution.

[Pol63]

tu peux aussi gérer toi meme la transparence, en réécrivant le code du panel enfin juste la sub onpaintbackground car c'est elle qui gère la transparence

[olsimare]

Bonjour.

Comme le dit sperot51, tu peux overrider le onpaintbackground.

Mais il faut aussi overrider le onscroll sinon cela ne fonctionne pas correctement.
Nota : apperemment, le scroll ne déclenche pas le paintbackground (????).

Le panel que j'utilise :

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
 
Public Class CLFWAddPanel
    Inherits Panel
    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)
        Else
            e.Graphics.FillRectangle(SystemBrushes.Control, ClientRectangle)
        End If
    End Sub
    Protected Overrides Sub OnPaintBackground( _
        ByVal pevent As PaintEventArgs)
        PaintParentBackground(pevent)
    End Sub
    Protected Overrides Sub OnScroll( _
    ByVal se As ScrollEventArgs _
)
        PaintParentBackground(New PaintEventArgs(Me.CreateGraphics, Me.Bounds))
        MyBase.OnScroll(se)
 
    End Sub
End Class

Par contre en terme de performance, c'est moyen --> redessin du parent à chaque évènement scroll (et il y en a !).

Je vais creuser du côté de createparams...

Cdt.

[olsimare]

Re.

Bon via la transparence dans le createparams c'est pas terrible (en fait on peut carrément dire que ça marche pas) !

Pour essayer :

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 Class CLFWAddPanelTransparent
    Inherits Panel
    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or 32
            Return cp
        End Get
    End Property
 
    Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub
End Class

Je reste donc sur la solution qui consiste à forcer le redessin du background du parent.

Cdt.

[Pol63]

moi j'ai overridé le control carrément et la transparence c'est moi qui la gère
ensuite y a plusieurs possibilités y a une fonction du framework qui le fait mais qui ne marche pas sur les windows server (elle est bien cachée il me semble et appelle bitblt d'une dll je crois)
ou alors j'ai fait une autre technique de if me.backcolor = transparent then recherche sur le parent sinon dessin de .backgroundimage le tout en récursif