Création de formulaire avec un texte défilant ou drapeau flottant

Bonsoir,

Pouvez vous me donner un code VBA permettant de faire défiler un texte sur un formulaire ou un drapeau flottant sur le formulaire.
Merci pour votre aide.

Bonjour.

Je ne sais pas ce qu'est un drapeau flottant et Access n'est pas très adapté aux animations car elles interrompent les traitements mais voici un exemple de code qui fait la rotation d'un texte.

Code:

---

1 2 3 4 5 6

public function Rotation(prmTexte as string) as string 'Décale le texte d'une colonne vers la gauche dim resullt as string: result=mid(prmTexte, 2) & left(prmTexte, 1) rotation=result end function

---

Après il faut utiliser l'événement minuterie (OnTimer) et définir la durée de la minuterie (en millième de seconde don 1 seconde = 1000).
Dans OnTimer, tu appelles la fonction en faisant par exemple :

Code:

---

me.TonTexte=Rotation(me.TonTexte)

---

Où TonTexte est un contrôle texte du formulaire actuel.

A+