Discussion :

[maxmarie]

Bonjour,

Je cherche a apprendre a utiliser ce genre d'exemple :

http://msdn2.microsoft.com/fr-fr/lib...bd(VS.80).aspx

J'ai recopié l'exemple du bas, en VB dans VS2005, pour un programme windows. Aucun bug, mais rien ne s'affiche.

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
Public
 
Class Form1
 
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
 
PublicSub FillPieRectangle(ByVal e As PaintEventArgs)
 
Dim redBrush AsNew SolidBrush(Color.Red)
Dim rect AsNew Rectangle(0, 0, 200, 100)
Dim startAngle AsSingle = 0.0F
Dim sweepAngle AsSingle = 45.0F
e.Graphics.FillPie(redBrush, rect, startAngle, sweepAngle)
 
EndSub
EndClass

Je me doute qu'il faut utiliser FillPieRectangle, mais je ne sais pas comment faire.

Qqu'un peut m'expliquer ? J'ai fait des recherches pour trouver des exemples, mais je ne trouve rien

Merci d'avance

[olsimare]

Bonjour.

C'est marqué dans MSDN :
L'exemple de code suivant est destiné à être utilisé avec Windows Forms et nécessite PaintEventArgse, qui est un paramètre du gestionnaire d'événements Paint. Le code exécute les actions suivantes : ...

Donc si tu ajoutes une gestion de l'event paint :

Code :

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

1
2
3
4
 
    Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        FillPieRectangle(e)
    End Sub

Ca le fait.

Cdt.

[maxmarie]

OK, merci beaucoup pour ton explication !