A propos de dessins

Signaler
Messages postés
78
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
21 juin 2010
-
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
Bonjour a tous,

 Je me suis fixé comme objectifs de faire une progress barre facon WII. J'aimerai pour cela faire un controle utilisateur. Mais j'ai un problème car le dessin et moi ca fait 4. 
J'arrive a dessiner un cercle avec un dégradé mais ce que je ne comprend pas c'est qu'il n'est pas centré.Pourtant je suis parti du fait pour calculer les coordonnées du rectangle pour mon cercle la facon suivante :

x1 et y1 pour le début du rectangle et x2 et y2 pour la fin du rectangle

x1 = me.width /2  - largeurRect  /2
y1 = me.heigh /2 - HautRect /2
x2 = me.width /2 + largeurRect 2
y2 = me.heigh / 2 + HautRect /2

Avec ca mon cercle sort de ma frame du coup je comprend pas.... Quelqu'un peut m'orienté ?

Merci d'avance

3 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
cercle dans  rectangle??




dessine ton cercle dans un carré  =>
rayon du cercle = (coté du carré /2 ) -1argeur du trait
Messages postés
78
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
21 juin 2010
1
Merci mais ce n'était pas le rayon que je voulais mais bien les coordonnées du rectangle car je me retrouve dans la situation suivante : cliquez ici

En fait je pense qu'il me faudrait de bons exemple de dessins pour y arriver aussi.. Mais si quelqu'un peut m'aider ou si tu as une autre solution gillardg c'est cool...

Merci d'avance encore
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
1 crée un usercontrol
2 dans ton usercontrol met un picturebox
3 dessine dans le picturebox

ou alors dessine directement dans ton userControl

Public
Sub DrawEllipseFloat(
ByVal e
As PaintEventArgs)

' Create pen.

Dim blackPen
As
New Pen(Color.Blue, 100)

' Create location and size of ellipse.

Dim x
As
Single =
Me.Width / 5

Dim y
As
Single =
Me.Height / 5

Dim width
As
Single =
Me.Height / 3

Dim height
As
Single =
Me.Height / 3

' Draw ellipse to screen.e.Graphics.DrawEllipse(blackPen, x, y, width, height)

End
Sub

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

End
Sub