Faire tourner un contrôle en cercle

Commenter

Contenu du snippet

Pour cette source ce sont des points qui tournent mais c'est possible de faire tourner un contrôle VB. En plus en modifiant quelques chiffres ca donne des animations incroyables !(voir code)

Source / Exemple : 


Dim PosX As Long, PosY As Long, angle As Long, Num As Long

Private Sub Timer1_Timer()
PosX = PosX + Cos(angle / (360 / 50)) * 100
PosY = PosY + Sin(angle / (360 / 50)) * 100 'en mettant un chiffre différent
'''''''''''''''''''''''''''''''''''''''''''(a la place de 500)ca trace un cercle ovale
'pour des effets surprenants changer les chiffres 50 et 500
'sur l'une ou les deux lignes !!

angle = angle + 1 'angle qui permet de tracer le cercle
'pour changer le rayon, modifier le 1

Form1.PSet (PosX + 4000, PosY + 1000), RGB(Int(Rnd * 254) + 1, Int(Rnd * 254) + 1, Int(Rnd * 254) + 1)
'4000 et 1000 representent les coordonnées
'du cercle PosX = Left, PosY = Top
'''''RGB(Int(Rnd * 254) + 1, Int(Rnd * 254) + 1, Int(Rnd * 254) + 1)
'''''sert à avoir une couleur au pif pour plus d'infos
'''''voir mon site "www.chez.com/adispagne/Page1Un.htm"
'''''rubrique "Tuturiel VB"

''''''Si vous avez un probleme ou des questions
''''''n'hesitez pas à m'ecrire à cramer@libertysurf.fr
''''''(disponible via mon site internet; adresse au dessus)
End Sub

Conclusion :


J'espere que ca vous aidera pour vos progs. Pour d'autres codes délires venez sur http://www.chez.com/adispagne/Page1Un.htm

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_cramer)