Cliquez sur le "Créer" onglet et faites un clic "Form Design" pour créer une nouvelle forme. Cliquez "Text Box" sur "Contrôles" volet, et cliquez sur le formulaire pour ajouter un nouveau contrôle de zone de texte. droit; cliquez sur la zone de texte et cliquez sur "Propriétés" pour afficher la "Feuille de propriétés." Cliquez sur le "Format" onglet, et régler la "Text Align" immeuble à "Droite." Cliquez sur le "Autre" onglet, et le type "txtMarqee" à côté de "Nom."
droit; cliquez sur le formulaire, cliquez sur "Construire l'événement," et double-clic "Générateur de code" pour lancer la fenêtre de l'éditeur VBA. Presse "Ctrl" et "Un" pour sélectionner tout le code par défaut, et appuyez sur "Effacer" à supprimer le code.
Copiez et collez le code suivant pour ajouter des variables globales que vous utiliserez dans votre code:
Dim textStr As String
Padstr Dim As String
Dim txtScroll As String
Dim txtLength As Integer
Dim iLength As Integer
IPos Dim As Integer
IView Dim As Integer
Dim Irem As Integer
Ajoutez le code suivant pour définir le texte qui défile à travers le contrôle de la zone de texte:
Private Sub Form_Load ()
txtMarqee.SetFocus
txtMarqee.Text = ""
textStr = "Comment ajouter une zone de texte de défilement Marquee à Microsoft Access"
padstr = " "
txtScroll = textStr & padstr
txtLength = Len (txtScroll)
iLength = Len (padstr)
Me.TimerInterval = 500
iPos = 1
iView = 1
End Sub
Créer une sous-procédure qui appeler le "moveText" procédure sous:
Private Sub Form_Timer ()
moveText
End Sub
Créez le "moveText" sous procédure qui sera effectivement faire défiler le texte affiché dans le contrôle de la zone de texte:
Private Sub moveText ()
txtMarqee.SetFocus
txtMarqee.Text = Mid (txtScroll, iPos, iView)
Irem = txtLength - (IPOS + iView - 1)
Si (IPOS - 1) lt; (TxtLength - iLength) Ensuite,
Si iView lt; 20 Et iView lt; Irem PuisiView = iView + 1
End If
Si iPos lt; txtLength Et iView gt; = 20 Ensuite,
IPOS = iPos + 1
End If
Autre
txtMarqee.Text = ""iPos = 1
iView = 1
End If
End Sub
Revenez à Microsoft Access et cliquez sur le "Vue" icône pour lancer le programme. Le texte défini dans la quatrième étape va commencer à faire défiler la zone de texte.