Discussion :

[Paul Van Walleghem]

Bonjour à tous !
Je dessine une droite sur une PictureBox avec la procédure suivante :

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
 
    ''' <summary>
    ''' Trace la droite verticale
    ''' </summary>
    ''' <param name="nX">Valeur de l'abscisse</param>
 
    Sub TraceLines(ByVal nX As Integer)
        PictureBoxDoublePage.Refresh()
        Dim dFacteur As Decimal = nX / 100
        pHaut = New Point
        With pHaut
            .X = PictureBoxDoublePage.Width * dFacteur
            .Y = 0
        End With
        pBas = New Point
        With pBas
            .X = PictureBoxDoublePage.Width * dFacteur
            .Y = PictureBoxDoublePage.Top + PictureBoxDoublePage.Image.Height
        End With
        Dim gDoublePage As Graphics = PictureBoxDoublePage.CreateGraphics()
        gDoublePage.DrawLine(oPen, pHaut, pBas)
        gDoublePage.Dispose()
 
    End Sub

J’aimerais que cette droite s’affiche dès que le formulaire apparaît à l’écran. Pourtant, que j’appelle cette procédure à partir du Load, du Refresh, du Paint ou de n’importe quelle méthode du formulaire susceptible d’être déclenchée à son démarrage, la droite disparaît. (Alors qu’elle reste tracée si la procédure ci-dessus est appelée à partir d’un des contrôles du formulaire.)
Sauriez-vous pourquoi la droite ne s’affiche pas au démarrage du formulaire Windows ? Comment remédier à ce problème ?
D’avance, je vous remercie beaucoup.
Avec mes sincères salutations,

[Graffito]

Est-ce que oPen est bien initializé ?

Et pourquoi ne pas appeler la fonction dans le constructeur après InitializeComponents()?

[moldavi]

Bonjour.

Je pense que la procédure habituelle pour cela est de gérer l'évènement OnPaint de la PictureBox et de placer ce code à l'intérieur de cet évènement.

[Pol63]

les controles winforms se redessinent très souvent
le redessin appelle la méthode OnPaint qui via un graphics des drawrectangle drawstring et autre fait qu'on voit un bouton puis déclencher l'évènement Paint pour si on veut rajouter quelque chose

tu dois intégrer ta droite dans ce mécanisme sinon elle est effacée au redessin suivant ton tracage

donc comme l'a dit moldavi c'est dans l'évènement Paint du picturebox

NB : .invalidate sur un controle force le redessin et donc l'appel de OnPaint

[Paul Van Walleghem]

En effet, avec l'évènement Paint du picturebox ça marche.
Merci à tous pour vos bons conseils
Avec mes sincères salutations,

[chrismonoye]

Bonjour,
pour voir la ligne au démarrage, l'appeler depuis le Paint du formulaire, et depuis celui du PictureBox, obliger ce formulaire à redessiner l'ensemble.
Genre :

Code :

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

1
2
3
4
    Private Sub Form1_Paint(ByVal sender As System.Object, _
            ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        TraceLines(10)
    End Sub

Code :

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

1
2
3
    Private Sub PictureBoxDoublePage_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBoxDoublePage.Paint
        Me.Invalidate()
    End Sub

et supprimer le Refresh de :

Code :

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

1
2
3
    Sub TraceLines(ByVal nX As Integer)
        'PictureBoxDoublePage.Refresh()
        Dim dFacteur As Decimal = nX / 100