Discussion :

[Eric_M]

Bonjour,

J'utilise l'évènement « OnPaint » de ma Forme pour y dessiner une image de fond.
Je ne peux pas utiliser la propriété .BackgroundImage car je la dessine autrement.
Cependant, j'ai quelques souçis lorsque survient l'évènement « OnPaint » :

Tout d'abord, l'évènement est envoyé quand je passe ma souris sur ma forme.
À ce moment là, l'image se redessine inutilement et j'aimerais pouvoir éviter cela.

Ensuite, le programme ralentit lors de la création de l'image sur la Forme, surtout lorsque l'on change la grandeur de la fenêtre.

J'ai ajouté ceci dans le Public Sub New(), mais je ne vois pas trop de différence :

Code :

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

1
2
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.DoubleBuffer, True)

Comment peut-on empêcher ce ralentissement (ou le réduire)?

Merci d'avance,
Éric

[Pol63]

réduire le nombre d'évènement levés c'est impossible, c'est gdi+ qui est fait comme ça ... et ca peut monter à plusieurs dizaines par seconde je crois
par contre sur vista/7, windows met les forms en cache sur une surface directX je crois et donc il n'y a plus d'évènements de déplacement, et moins aussi sur le reste

pour gagner du temps, tu peux utiliser un buffer manuel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
private _Buffer as system.drawing.bufferedgraphics
 
overrides sub onsizechanged
  if _Buffer isnot nothing then _Buffer.Dispose ' vu qu'on risque de passer plusieurs fois ici, on s'arrange pour ne pas faire de fuite de mémoire en détruisant l'ancienne valeur
  _buffer = system.drawing.bufferedgraphicsManager.Current.Allocate(me.creategraphics,me.clientrectangle)
end sub ' on demande l'allocation du buffer en lui donnant me.creategraphics comme surface de rendu par défaut, et la faille
 
 
overrides sub onpaint
  _buffer.render(e.graphics) ' on demande le rendu sur le graphics fournit par onpaint
ens sub

après tout ce que tu faisais sur e.graphics dans onpaint tu le fais sur _buffer.graphics, et donc où tu veux dans le code (plus un _buffer.render dans la foulée car le buffer n'est pas visible)
l'instruction render est instantannée

code fait de tête, il y a peut etre quelques adaptations à faire

Je ne peux pas utiliser la propriété .BackgroundImage car je la dessine autrement.

mon histoire de buffer c'est utile quand on change le dessin plusieurs fois
si c'est juste pour une image, tu peux la dessiner sur un drawing.bitmap à ta facon et mettre ce bitmap dans BackgroundImage

[Eric_M]

Merci Pol63 pour ta réponse.

J'ai mis un Buffer comme tu me l'as conseillé, mais je ne croix pas que c'est utile pour ce que je fais.

Bon, pour être plus clair sur ce que je fait exactement,
je dessine une image, mais je l'aligne à droite de ma forme.
C'est pour cela que je n'utilise pas la proriété BackgroundImage car elle me permet que de l'aligner à gauche (center, zoom, etc.) et non à droite.

Ensuite, je crée une image qui est ma couleur de fond et je l'a peint avant l'image.
Je ne peux pas simplement changer la couleur avec Me.Backcolor car le tout est peint sur de la transparence (Windows 7)

Pour finir, Je dessine des bordures.

TOUT cela est fait que dessus et sur ma barre de navigation, qui contient la plupart des contrôles de ma forme.

Voici mon code:

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
36
37
38
39
40
41
42
43
    Public FondDÉcran As Image
    Public CouleurDeFond As Color
 
    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaintBackground(e)
 
        'Modes de dessin
        e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
        e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
 
        'Représente les mesures de la barre où tous mes controles sont dessus
        Dim PnlTop = PnlNavigationStrip.Top
        Dim PnlHeight = PnlNavigationStrip.Height
 
        e.Graphics.Clip = New Region(e.ClipRectangle)
 
        'Exclue le reste (en Dessous de ma barre de navigation)
        e.Graphics.ExcludeClip(New Rectangle(0, PnlTop + PnlHeight, Me.Width, Me.Height))
 
        'Peint la couleur de fond
        REM Je ne peux pas simplement changer la couleur avec Me.Backcolor car le tout est peint sur de la transparence (Windows 7)
        Dim b As New Bitmap(1, 1)
        Dim g As Graphics = Graphics.FromImage(b)
        g.Clear(CouleurDeFond)
        e.Graphics.DrawImage(b, 0, 0, Me.ClientSize.Width + 10, PnlTop + PnlHeight)
 
        'Dessine l'image de fond
        e.Graphics.DrawImage(FondDÉcran, Me.Width - FondDÉcran.Width - SystemInformation.SizingBorderWidth - 2, _
                                                                  0, _
                                                               FondDÉcran.Width, _
                                                               FondDÉcran.Height)
        'Dessine des bordures
        Dim p As New Pen(Color.FromArgb(150, 255, 255, 255))
        'Haut
        e.Graphics.DrawLine(Pens.Black, 1, 1, Me.Width, 1)
        e.Graphics.DrawLine(p, 1, 2, Me.Width, 2)
        'Gauche
        e.Graphics.DrawLine(Pens.Black, 1, 1, 1, PnlTop + PnlHeight)
        e.Graphics.DrawLine(p, 2, 2, 2, PnlTop + PnlHeight)
        'Droite
        e.Graphics.DrawLine(Pens.Black, Me.Width, 1, Me.Width, PnlTop + PnlHeight)
        e.Graphics.DrawLine(p, Me.Width - 1, 2, Me.Width - 1, PnlTop + PnlHeight)
    End Sub

Et avec un Buffer:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
    Public FondDÉcran As Image
    Public CouleurDeFond As Color
 
    Private _Buffer As System.Drawing.BufferedGraphics
 
    Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)
        MyBase.OnSizeChanged(e)
        On Error Resume Next
        If _Buffer IsNot Nothing Then _Buffer.Dispose() ' vu qu'on risque de passer plusieurs fois ici, on s'arrange pour ne pas faire de fuite de mémoire en détruisant l'ancienne valeur
        _buffer = system.drawing.bufferedgraphicsManager.Current.Allocate(Me.creategraphics, Me.clientrectangle)
    End Sub ' on demande l'allocation du buffer en lui donnant me.creategraphics comme surface de rendu par défaut, et la faille
 
 
    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaintBackground(e)
        _Buffer.Render(e.Graphics) ' on demande le rendu sur le graphics fournit par onpaint
 
        'Modes de dessin
        _Buffer.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
        _Buffer.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
 
        'Représente les mesures de la barre où tous mes controles sont dessus
        Dim PnlTop = PnlNavigationStrip.Top
        Dim PnlHeight = PnlNavigationStrip.Height
 
        _Buffer.Graphics.Clip = New Region(e.ClipRectangle)
 
        'Exclue le reste (en Dessous de ma barre de navigation)
        _Buffer.Graphics.ExcludeClip(New Rectangle(0, PnlTop + PnlHeight, Me.Width, Me.Height))
 
        'Peint la couleur de fond
        REM Je ne peux pas simplement changer la couleur avec Me.Backcolor car le tout est peint sur de la transparence (Windows 7)
        Dim b As New Bitmap(1, 1)
        Dim g As Graphics = Graphics.FromImage(b)
        g.Clear(CouleurDeFond)
        _Buffer.Graphics.DrawImage(b, 0, 0, Me.ClientSize.Width + 10, PnlTop + PnlHeight)
 
        'Dessine l'image de fond
        _Buffer.Graphics.DrawImage(FondDÉcran, Me.Width - FondDÉcran.Width - SystemInformation.SizingBorderWidth - 2, _
                                                                   0, _
                                                                FondDÉcran.Width, _
                                                                FondDÉcran.Height)
        'Dessine des bordures
        Dim p As New Pen(Color.FromArgb(150, 255, 255, 255))
        'Haut
        _Buffer.Graphics.DrawLine(Pens.Black, 1, 1, Me.Width, 1)
        _Buffer.Graphics.DrawLine(p, 1, 2, Me.Width, 2)
        'Gauche
        _Buffer.Graphics.DrawLine(Pens.Black, 1, 1, 1, PnlTop + PnlHeight)
        _Buffer.Graphics.DrawLine(p, 2, 2, 2, PnlTop + PnlHeight)
        'Droite
        _Buffer.Graphics.DrawLine(Pens.Black, Me.Width, 1, Me.Width, PnlTop + PnlHeight)
        _Buffer.Graphics.DrawLine(p, Me.Width - 1, 2, Me.Width - 1, PnlTop + PnlHeight)
    End Sub

Merci encore.

[Pol63]

On Error Resume Next

Aïe ca pique les yeux ^^

sinon wpf c'est pas mal ... ca permet de tout faire en natif et de ne rien bricoler
et puis ca gère la transparence réellement, alors qu'en winform c'est un bricolage

[Eric_M]

On Error Resume Next

Aïe ca pique les yeux ^^

Si je ne mettais pas ça, je recevais une erreur lors de l'ouverture de la Forme.

En tous cas, je croix que je vais rester en win32 car sa serait long de convertir mon logiciel en wpf..

[Pol63]

Si je ne mettais pas ça, je recevais une erreur lors de l'ouverture de la Form.

lol ...

déjà quand on a une erreur on chercher pourquoi et on corrige le bug
de plus quand vraiment on veut gérer des erreurs imprévues, on utilise surtout pas on error resume next !