Me.PSet (Xx, Y), RGB(255, 0, 0) rien a l'ecran ? vb6

Question

Bonjour


 pi = 3.14
 CentreDuCercleX = 1000
 CentreDuCercleX = 1000
 CentreDuCercley = 1000
Me.DrawMode = vbCopyPen
 Me.DrawStyle = vbSolid
 Me.ForeColor = RGB(0, 255, 0)
 Me.DrawWidth = CInt(1)
 RayonDuCercle = 10
 AngleStep = (10 / RayonDuCercle)
 For Angle = 0 To ((2 * 3.14) + AngleStep) Step AngleStep
  Xx = CentreDuCercleX + Int((RayonDuCercle * 15) * Cos(Angle))
  Y = CentreDuCercley + Int((RayonDuCercle * 15) * Sin(Angle))
  Me.PSet (Xx, Y), RGB(255, 0, 0)
 Next Angle
C.V

cs_DARKSIDIOUS · Answer

Et quel est ton probl&#232;me au juste ? C'est bien beau de lancer du code
comme c&#224;, mais sans explication... nous ne sommes pas marabou !



Tu savais que pour tarcer un cercle, ou un arc de cercle, tu peux le faire avec la fonction de l'API ArcTo ?

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Bubar92Bubar92 · Answer

i.Line (50, 50)-(1000, 1000), RGB(255, 0, 0)
rien ne s'affiche
certainnement movais parametre dans l'objet
C.V

econs · Answer

La propri&#233;t&#233; AutoRedraw de ton formulaire (ou de la picturebox dans laquelle tu dessine) est-elle &#224; True ?


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Me.PSet (Xx, Y), RGB(255, 0, 0) rien a l'ecran ? vb6

3 réponses

Discussions similaires