Les partenaires publicitaires:

Comment ajouter un chapiteau boîte de texte défilant pour accéder à microsoft

Ajouter un chapiteau de défilement à l'aide d'un contrôle de zone de texte à rattraper 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 le "Form.Timer" événement pour exécuter une procédure sous qui continue de mettre à jour le contenu dans la zone de texte.

Instructions

  1. 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."

  2. 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.

  3. 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

  4. 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

  5. Créer une sous-procédure qui appeler le "moveText" procédure sous:

    Private Sub Form_Timer ()

    moveText

    End Sub

  6. 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 Puis

    iView = 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

  7. 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.

» » » » Comment ajouter un chapiteau boîte de texte défilant pour accéder à microsoft