Graphics.fillpie n'apparait pas

Question

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 ?

Utilisateur anonyme · Answer

Salut,

Il faudrais peut-être que tu appelle ta méthode FillPieRectangle.
Dans Form_Paint : 
Call FillPieRectangle(e)

__________
Kenji
( 
Nouveau forum VBA/Office

cs_Maxime31 · Answer

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....

cs_Maxime31 · Answer

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

Graphics.fillpie n'apparait pas

3 réponses

Votre réponse

Discussions similaires