Discussion :

[JPelli]

Bonjour,
J'ai un panel dans lequel j'écris du texte avec un objet Graphics.
Mon problème est que lors du Load de la Form le texte dans le panel n'apparaît pas.
Lorsque je force OnPaint(cacher/afficher) la Form ou avec un bouton (Me.invalidate) cela fonctionne.
Lorsque j'écris du texte directement sur la Form, cela fonctionne bien.
Comment afficher le texte, dans le panel, lors du premier affichage de la fenêtre?
Voici le code dans OnPaint

Code :

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

1
2
3
4
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)
    S_Ecrire()         'Ecrire texte
  End Sub

Merci à tous. Jean

[olsimare]

Bonjour.

Je ne reproduis pas le probléme avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Class panelText
    Inherits Panel
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        e.Graphics.DrawString("Test de texte dans le panel", Me.Font, New SolidBrush(Color.Red), 0, 0)
 
    End Sub
 
End Class

Le texte est bien affiché au load de la form.

Il y a quoi derriére le S_Ecrire() ? Et pourquoi tu lui passes pas le e.graphics ?

Cdt.

[JPelli]

Bonjour,
En fait j'essaie d'apprendre à dessiner en VB.
Sur une form j'ai placé un bouton et un panel dans lequel je veux dessiner/écrire.
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
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)
    S_Ecrire()
  End Sub
 
  Private Sub S_Ecrire()
    Dim pen As New Pen(Color.Black, 10)
    Dim G As Graphics
    Dim Rect As RectangleF
    Dim PT As New PointF(50, 50)
    Dim Sz As New SizeF(200, 50)
    Dim Ft As New StringFormat
    Ft.Alignment = StringAlignment.Center
    Ft.LineAlignment = StringAlignment.Center
    Rect = New RectangleF(PT, Sz)
    G = Panel1.CreateGraphics
    G.DrawString("Ecrire texte sur panel", New Font("Arial", 14, FontStyle.Italic), Brushes.Blue, Rect, Ft)
    G.DrawRectangle(Pens.Aqua, 50, 50, 200, 50)
    G.Dispose()
    pen.Dispose()
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.Invalidate()
  End Sub

Au départ le texte apparaît brièvement puis disparaît(sans doute masqué par le panel).
Si j'active me.invalidate(click sur le bouton) ou si je masque/affiche la form le texte apparaît bien dans le panel.
Dans l'exemple d'olsimare l'écriture se fait directement sur la form, pas de problème, le texte apparaît.
Merci pour vos réponses. Jean

[olsimare]

Bonjour.

Ca marche pas trop mal chez moi ce code... sauf dans le designer. C'est tout ce qu'il y a ?

Sinon, dans mon exemple c'est bien directement sur le panel que j'écris (mais un panel customizé ), passer par le onpaint de la form pour gérer le dessin sur un control ne me semble pas le plus judicieux.

Cdt.

[JPelli]

Bonjour,
merci pour les réponses.
J'ai ajouté un évènement panel1.paint(...) et cela fonctionne.
Encore merci pour l'aide.
Jean