A voir également:
- Creation d'un texte defilant sur un formulair
- Creation compte gmail - Guide
- Comment retranscrire un entretien audio en texte - Guide
- Mettre un texte en majuscule - Guide
- Création compte google - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
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
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
20 oct. 2015 à 18:44