|
Ajouter un texte défilant à l'aide d'un contrôle de zone de texte pour saisir rapidement l'attention d'un utilisateur lors de l'utilisation de votre application Microsoft Access. Dans Access , vous pouvez utiliser Visual Basic pour Applications ( VBA) pour automatiser le processus de défilement de texte sur un contrôle. VBA est un langage de programmation informatique utilisé pour étendre les applications Microsoft Office. Utilisez l'événement " Form.Timer " pour exécuter une sous-procédure qui sera continuellement mettre à jour le contenu de la boîte de texte. Instructions
1 Cliquez sur l'onglet "Créer" et cliquez sur " Form Design " pour créer une nouvelle forme . Cliquez sur " Zone de texte " sur le volet «contrôle» , et cliquez sur le formulaire pour ajouter un nouveau contrôle de zone de texte. Cliquez-droit sur la zone de texte et cliquez sur "Propriétés" pour afficher la " Feuille de propriétés. " Cliquez sur l'onglet "Format" , et définir le " Text align" propriété de « droite». Cliquez sur l'onglet "Autres" , et tapez " txtMarqee " à côté de " Nom ".
2 clic droit sur le formulaire , cliquez sur " Créer l'événement " et double -cliquez sur " Générateur de code " pour lancer la fenêtre de l'éditeur VBA. Appuyez sur " Ctrl" et "A" pour sélectionner tout le code par défaut , puis appuyez sur «Supprimer» pour supprimer le code .
3 Copier et coller le code suivant pour ajouter des variables globales que vous utiliserez dans votre code:
textStr Dim As String
padstr Dim As String
txtScroll Dim As String
txtLength As Integer
iLength As Integer
iPos As Integer
iView As Integer
IREM As Integer
4 Ajoutez le code suivant pour définir le texte qui défilera à travers le contrôle zone de texte :
Private Sub Form_Load ( )
txtMarqee.SetFocus
txtMarqee.Text = ""
textStr = " Comment ajouter un chapiteau boîte de texte défilant à Microsoft Access "
padstr = ""
txtScroll = textStr & padstr
txtLength = Len ( txtScroll )
iLength = Len ( padstr )
Me.TimerInterval = 500
iPos = 1
iView = 1
End Sub
5 Créer une sous-procédure qui appelle la " moveText " sous procédure :
Form_Timer Private Sub ()
moveText
End sub
6 créer le « moveText " sous procédure qui va réellement faire défiler le texte affiché dans le contrôle de zone de texte :
moveText Private Sub ()
txtMarqee.SetFocus
< p> txtMarqee.Text = Mid ( txtScroll , introductions en bourse, iView )
IREM = txtLength - (IPOS + iView - 1)
Si l'épargne (PAPE - 1) <( txtLength - iLength ) puis
Si iView < 20 et iView < IREM puis
iView iView = + 1
End If
Si iPos < txtLength Et iView > = 20 Alors
IPOS IPOS = + 1
End If Else
txtMarqee.Text = ""
iPos = 1
iView = 1
End If End Sub
7 Revenez à Microsoft Access et cliquez sur l'icône "Affichage" pour exécuter le programme. Le texte défini dans la quatrième étape va commencer à faire défiler la zone de texte.
|
