Discussion :

[rcarlyp]

Bonjour,
J'aimerais realiser un formulaire de chargement ( avec animation) qui souvre avant l'ouverture d'un formulaire. Comment faire s'il vous plait? Merci!

[EricDgn]

Bonjour,
Juste pour donner une idée, un petit formulaire avec un texte se déroulant progressivement. Si vous voulez insérer une image animée, ce sera nettement plus compliqué: faites une recherche "ACCESS formulaire avec image animée".
Cordialement.

[EricDgn]

Juste pour le fun, une bille qui rebondit.
L'IA, c'est vraiment extraordinaire!

[rcarlyp]

OK JE VAIS REGARGER, MERCI

[rcarlyp]

J'aimerais realiser un comme cette image avec une animation circulaire!

[EricDgn]

Une bille qui tourne en rond!
Cordialement.

[rcarlyp]

Je vais regarder ce model, merci

[rcarlyp]

Pour le dernier model que vous avez evoyé, serait il possible d'avoir plusieurs de ces boules formant un cercle et les faire tourner une apres l'autre?

[EricDgn]

... et maintenant 5 billes!
Bon amusement.

[rcarlyp]

Les 5 billes sont tres interessantes, est t- il posssible d'avoir un cercle complet avec plus de 5 billes?

[Invité]

Ok puisque tu préfères les billes ,
puisque les billes sont décalés par 30° cela donne 360/ 30 = 12 douze cercle au max peuvent être placé en cercle mais pour simuler la rotation il faut retirer une donc 11,

fais copier/coller les billes existant pour atteindre le nombre total de 11 billes
change les noms de imgBille6 à imgBille11
puis dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    ' Déplacement des cinq billes
    DeplacerBille Me.imgBille1, angle
    DeplacerBille Me.imgBille2, angle + AngleEnRadians(30#)
    DeplacerBille Me.imgBille3, angle + AngleEnRadians(60#)
    DeplacerBille Me.imgBille4, angle + AngleEnRadians(90#)
    DeplacerBille Me.imgBille5, angle + AngleEnRadians(120#)
	'lignes à ajouter 
    DeplacerBille Me.imgBille6, angle + AngleEnRadians(150#)
    DeplacerBille Me.imgBille7, angle + AngleEnRadians(180#)
    DeplacerBille Me.imgBille8, angle + AngleEnRadians(210#)
    DeplacerBille Me.imgBille9, angle + AngleEnRadians(240#)
    DeplacerBille Me.imgBille10, angle + AngleEnRadians(270#)
    DeplacerBille Me.imgBille11, angle + AngleEnRadians(300#)

[EricDgn]

Si l'on place 11 billes, alors il est plus efficace de dessiner 12 billes dans leurs positions et ensuite de les afficher/masquer l'une après l'autre (.Visible=True/False). Inutile de calculer des positions.