Graphics.fillpie n'apparait pas

Signaler
Messages postés
79
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
28 juillet 2008
-
Messages postés
79
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
28 juillet 2008
-
BOnjour, je cherche a tester la classe Graphics pour creer des camemberts 2D simples

j'ai fait ca

Public

Class Form1

Private
Sub Form1_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load

End
Sub

Public
Sub FillPieRectangle(
ByVal e
As PaintEventArgs)

Dim redBrush
As
New SolidBrush(Color.Red)

Dim rect
As
New Rectangle(0, 0, 200, 100)

Dim startAngle
As
Single = 0.0F

Dim sweepAngle
As
Single = 45.0F

e.Graphics.FillPie(redBrush, rect, startAngle, sweepAngle)

End
Sub
End
Class

J'ai recopié le code de MSDN, mais rien n'apparait au chargement du prog après génération....

QQu'un peut m'aider ?

3 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Il faudrais peut-être que tu appelle ta méthode FillPieRectangle.
Dans Form_Paint :
Call FillPieRectangle(e)

__________
Kenji
(
Nouveau forum VBA/Office
Messages postés
79
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
28 juillet 2008

C'est un peu ce que je me disais....

Mon problême est justement que je ne sais pas appeler une méthode. Je débute, et je ne sais que manipuler des objets mis dans une form depuis la boite a outil.

C'est pour ca que j'essaye de faire ca, mais je cale un peu jusqu'a présent malgré mes recherches

Désolé si ca fait un peu neuneu....
Messages postés
79
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
28 juillet 2008

Ok, j'ai trouvé

Private
Sub Form_Paint(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.PaintEventArgs)
Handles
Me.PaintFillPieRectangle(e)

End
Sub