Arc de cercle & ellipse

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 075 fois - Téléchargée 68 fois

Contenu du snippet

Une fonction Api pour tracer un arc de cercle et une autre pour tracer une ellipse :

Source / Exemple :


Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Conclusion :


Exemple:

Call Arc(Me.hdc,40,50,60,70,80,90,100,110)

ou

Call Ellipse(Me.hdc,1,1,50,80)

A voir également

Ajouter un commentaire

Commentaires

debutant VB
Messages postés
93
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
25 juin 2010

Super ! je me suis cassé la tête pour faire une fonction d'arc ...
Juste une question : est-il possible d'attribuer une couleur autre que noir au cercle, et à l'ellipse ?
cs_BADGE
Messages postés
2
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
15 juillet 2005

Serait-il possible d'avoir une petite description des paramètres?

J'ai essayé la fonction Arc et je me suis retrouvé avec un cercle 8-|. Je m'attendais à un arc. J'ai modifié un paramètre et il n'y avait plus rien!!

Merci!
cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

salut,

Comme je suis débutant en VB, pourrais-tu me donner des explications pour créer une feuille en ellipse car j'ai recopié le code mais la feuille reste toujours rectangulaire?

Merci et @+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.