Creation d'un texte defilant sur un formulair

Cet exemple permet de faire défiler indéfiniment un texte de la droite vers la gauche dans un champ texte.
Cet exemple est valable pour Access 2000 / VBA seulement.
Créez un champ texte que vous appellerez par exemple "Texte0". Sa largeur et son positionnement peuvent avoir n'importe quelle valeur. Sa hauteur sera fonction de la taille de la police et devra être suffisante pour afficher toute la hauteur du texte.
Dans la procédure vous indiquez ( aux endroits indiqués) le nom du champ, sa valeur et la valeur de la minuterie.
Option Compare Database
Option Explicit

Dim Défiler_Cmp As Integer
Dim Défiler_Champ As String
Dim Défiler_ValeurChamp As String

Private Sub Form_Load()
Défiler_Cmp = 0
Me.TimerInterval = 40 ' indiquer 0 pour supprimer l'évènement timer
End Sub

Private Sub Form_Timer()
If Défiler_Cmp = 0 Then
Défiler_Champ = "texte0" ' indiquer le nom du Champ défilant
Défiler_ValeurChamp = "ceci est un exemple de texte défilant" 'indiquer le texte défilant
With Me.Controls(Défiler_Champ)
.FontName = "tahoma"
.FontItalic = False
.FontBold = True
.FontSize = 10
Me.Controls(Défiler_Champ) = Space(.Width / (.FontSize * 6)) & _
Défiler_ValeurChamp
Défiler_Cmp = Len(Me.Controls(Défiler_Champ))
End With
End If
Me.Controls(Défiler_Champ).ForeColor = RGB(Défiler_Cmp, Défiler_Cmp, _
Défiler_Cmp)
Me.Controls(Défiler_Champ) = Mid$(Me.Controls(Défiler_Champ), 2)
Défiler_Cmp = Défiler_Cmp - 1
End Sub

fgfhhjhjhiuiju