Tracer un cercle plein (un disque quoi)Résolu

Question

bonjour j'ai un petit probl&#232;me il faut que je trace un disque et non pas un cercle c'est &#224; dire un cercle plein :)
est ce qu'on est oblig&#233; de proc&#233;der comme &#231;a :

For i = 1 To Rayon
Circle (20, 20), i, vbRed
Next i

je n'ai rien contre &#231;a mais c'est incroyablement lent...
avez vous mieux?
plhea

plhea · Accepted Answer

waouuuuu c'est parfait romeo!!
exactement ce que je cherchais c'est hyper rapide!
une petite modification quand m&#234;me pour avoir un disque simple avec une seule couleur...

Private Sub Form_Click()
Dim xCentre, yCentre, rayon As Integer


    ForeColor = vbRed
   FillColor = vbRed
   FillStyle = vbFSSolid


Form1.ScaleHeight = 100 'optionnel
Form1.ScaleWidth = 100
    xCentre = 50
    yCentre = 20
rayon = 10



    Circle (xCentre, yCentre), rayon



End Sub

ici on &#224; un disque et infiniment plus rapidement qu'avec la m&#233;thode que j'avais propos&#233;e au d&#233;but 
merci beaucoup romeo mes probl&#232;mes sont r&#233;solus

plhea

cs_Willi · Answer

un disque ou un cercle je ne comprend pas c'est confus pour moi
enfin teste cela colle le code dans une feuille
pour tester click droit de la souris en d&#233;placant celle-ci pour tracer le cercle

Option Explicit


Private m_Dragging As Boolean
Private X1 As Single
Private Y1 As Single
Private X2 As Single
Private Y2 As Single


Private Sub DrawCircle()
Dim cx As Single
Dim cy As Single
Dim dx As Single
Dim dy As Single
Dim radius As Single

cx = X1
cy = Y1
dx = X1 - X2
dy = Y1 - Y2

radius = Sqr(dx * dx + dy * dy)
    Circle (cx, cy), radius
End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_Dragging = True


    DrawMode = vbInvert


    X1 = X
    Y1 = Y
    X2 = X
    Y2 = Y


    DrawCircle
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_Dragging Then Exit Sub

    DrawCircle


    X2 = X
    Y2 = Y


    ' Draw the new circle.
    DrawCircle
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_Dragging = False

    DrawMode = vbCopyPen
    ForeColor = vbRed
    DrawCircle
    ForeColor = vbBlack
End Sub



<HR>



 Si la r&#233;ponse te conviens merci de l'accepter

cs_Willi · Answer

Sinon pourquoi n'utilises-tu pas l'objet Shape de vb6 ??


<HR>

 Si la r&#233;ponse te conviens merci de l'accepter

P__ROMEO · Answer

j'ai autre chose plus simple. 
copie et cole. en cliquant avec le bouton gauche de la souris sur ta feuille, le disque se cr&#233;e:

'---- Click sur la feuille
Private Sub Form_Click()
Dim XCentre, YCentre, Rayon As Integer


'---- Attributs
    ForeColor = vbRed           'Rouge  (contour)
   FillColor = vbYellow        'Jaune (int&#233;rieure)
    FillStyle = vbFSSolid       'Plein
    DrawWidth = 5


'---- Calcule centre et rayon
    XCentre = ScaleWidth / 2
    YCentre = ScaleHeight / 2
    If XCentre > YCentre Then
        Rayon = XCentre
    Else
        Rayon = YCentre
    End If


'---- Trace le cercle
    Circle (XCentre, YCentre), Rayon, , , , YCentre / XCentre
End Sub

P__ROMEO · Answer

Willi, ton code est int&#233;ressant, je l'ai ajout&#233; &#224; ma liste de code, mais, le cercle cr&#233;&#233; n'est pas plein.
quelques lignes de codes en plus feront l'affaire.
A+

cs_Willi · Answer

Oui mais c'est que j'avais pas trop pig&#233; le sens "je trace un disque et non pas un cercle c'est &#224; dire un cercle plein"
Je vais essayer ton code de suite sa ne peut etre que interessant 


<HR>

 Si la r&#233;ponse te conviens merci de l'accepter

cs_Willi · Answer

marche impeccable ton code sympa 


<HR>

 Si la r&#233;ponse te conviens merci de l'accepter

P__ROMEO · Answer

Ce n'est rien. tout le plaisir pour moi.
et, en passant, copies la fonction de Willi, elle peut te servir. (comme ca tu n'auras pas &#224; chercher le jour ou tu
la voudra.)

A+