Ajouter un chapiteau de défilement à l'aide d'un contrôle de zone de texte pour vite rattraper une attention de l'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 texte défilant sur un contrôle. VBA est un langage de programmation utilisé pour étendre les applications Microsoft Office. Utiliser le Formulaire".Timer" événement à exécuter une procédure sub qui mettra régulièrement à jour le contenu dans la zone de texte.
Ajouter un chapiteau de défilement à l'aide d'un contrôle de zone de texte pour vite rattraper une attention de l'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 texte défilant sur un contrôle. VBA est un langage de programmation utilisé pour étendre les applications Microsoft Office. Utiliser le Formulaire'.Timer' événement à exécuter une procédure sub qui mettra régulièrement à jour le contenu dans la zone de texte.
- Cliquez sur l'onglet 'Créer' et cliquez sur 'Conception de Formulaire' créer un nouveau formulaire. Cliquez sur 'Zone de Texte' sur les 'Contrôles' volet 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 'Texte Aligner' propriété de 'Droite'. Cliquez sur les 'Autres' de l'onglet et tapez 'txtMarqee' à côté de 'Nom'.
- cliquez-Droit sur le formulaire, cliquez sur 'créer un É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 et appuyez sur 'Supprimer' pour supprimer le code.
- Copiez et collez le code suivant pour ajouter des variables globales que vous allez utiliser dans votre code:
Dim textStr Comme une Chaîne de caractères
Dim padstr Comme une Chaîne de caractères
Dim txtScroll Comme une Chaîne de caractères
Dim txtLength as Integer
Dim iLength as Integer
Dim offices de propriété intellectuelle Comme un Entier
Dim iView as Integer
Dim iRem as Integer - Ajouter le code suivant pour définir le texte à faire défiler le contrôle de zone de texte:
Private Sub Form_Load()
txtMarqee.SetFocus
txtMarqee.Texte = ''
textStr = 'Comment Ajouter un Chapiteau de Défilement de la Zone de Texte de Microsoft Access'
padstr = ' '
txtScroll = textStr & padstr
txtLength = Len(txtScroll)
iLength = Len(padstr)
Moi.TimerInterval = 500
iPos = 1
iView = 1
End Sub - Créer une procédure sub qui va appeler le 'moveText' sous-procédure:
Private Sub Form_Timer()
moveText
End Sub - Créer le 'moveText' procédure sub qui fait défiler le texte affiché dans le contrôle de zone de texte:
Private Sub moveText()
txtMarqee.SetFocus
txtMarqee.Texte = Mid(txtScroll, les offices de propriété industrielle, iView)
iRem = txtLength - (pape iView - 1)
If (iPos - 1) < (txtLength - iLength) Puis
Si iView < 20 Et iView < iRem Puis
iView = iView 1
End if
Si les offices de propriété industrielle < txtLength Et iView >= 20
iPos = offices de propriété intellectuelle 1
End if
Else
txtMarqee.Texte = ''
iPos = 1
iView = 1
End if
End Sub - revenir au Microsoft Access et cliquez sur 'View' 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 de Defilement de la Zone de Texte de Microsoft Access
Ajouter un chapiteau de defilement a l'aide d'un controle de zone de texte pour vite rattraper une attention de l'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 texte defilant sur un controle. VBA est un langage de programmation utilise pour etendre les applications Microsoft Office. Utiliser le Formulaire".Timer" evenement a executer une procedure sub qui mettra regulierement a jour le contenu dans la zone de texte.
Ajouter un chapiteau de defilement a l'aide d'un controle de zone de texte pour vite rattraper une attention de l'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 texte defilant sur un controle. VBA est un langage de programmation utilise pour etendre les applications Microsoft Office. Utiliser le Formulaire'.Timer' evenement a executer une procedure sub qui mettra regulierement a jour le contenu dans la zone de texte.
- Cliquez sur l'onglet 'Creer' et cliquez sur 'Conception de Formulaire' creer un nouveau formulaire. Cliquez sur 'Zone de Texte' sur les 'Controles' volet et cliquez sur le formulaire pour ajouter un nouveau controle de zone de texte. Cliquez-droit sur la zone de texte et cliquez sur 'Proprietes' pour afficher la Feuille de proprietes.' Cliquez sur l'onglet 'Format', et 'Texte Aligner' propriete de 'Droite'. Cliquez sur les 'Autres' de l'onglet et tapez 'txtMarqee' a cote de 'Nom'.
- cliquez-Droit sur le formulaire, cliquez sur 'creer un Evenement', et double-cliquez sur 'Generateur de Code' pour lancer la fenetre de l'editeur VBA. Appuyez sur 'Ctrl' et 'A' pour selectionner tout le code par defaut et appuyez sur 'Supprimer' pour supprimer le code.
- Copiez et collez le code suivant pour ajouter des variables globales que vous allez utiliser dans votre code:
Dim textStr Comme une Chaîne de caracteres
Dim padstr Comme une Chaîne de caracteres
Dim txtScroll Comme une Chaîne de caracteres
Dim txtLength as Integer
Dim iLength as Integer
Dim offices de propriete intellectuelle Comme un Entier
Dim iView as Integer
Dim iRem as Integer - Ajouter le code suivant pour definir le texte a faire defiler le controle de zone de texte:
Private Sub Form_Load()
txtMarqee.SetFocus
txtMarqee.Texte = ''
textStr = 'Comment Ajouter un Chapiteau de Defilement de la Zone de Texte de Microsoft Access'
padstr = ' '
txtScroll = textStr & padstr
txtLength = Len(txtScroll)
iLength = Len(padstr)
Moi.TimerInterval = 500
iPos = 1
iView = 1
End Sub - Creer une procedure sub qui va appeler le 'moveText' sous-procedure:
Private Sub Form_Timer()
moveText
End Sub - Creer le 'moveText' procedure sub qui fait defiler le texte affiche dans le controle de zone de texte:
Private Sub moveText()
txtMarqee.SetFocus
txtMarqee.Texte = Mid(txtScroll, les offices de propriete industrielle, iView)
iRem = txtLength - (pape iView - 1)
If (iPos - 1) < (txtLength - iLength) Puis
Si iView < 20 Et iView < iRem Puis
iView = iView 1
End if
Si les offices de propriete industrielle < txtLength Et iView >= 20
iPos = offices de propriete intellectuelle 1
End if
Else
txtMarqee.Texte = ''
iPos = 1
iView = 1
End if
End Sub - revenir au Microsoft Access et cliquez sur 'View' icone pour lancer le programme. Le texte defini dans la quatrieme etape va commencer a faire defiler la zone de texte.
Comment Ajouter un Chapiteau de Défilement de la Zone de Texte de Microsoft Access
By commentfaire
Ajouter un chapiteau de défilement à l'aide d'un contrôle de zone de texte pour vite rattraper une attention de l'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 texte défilant sur un contrôle. VBA est un langage de programmation utilisé pour étendre les applications Microsoft Office. Utiliser le Formulaire".Timer" événement à exécuter une procédure sub qui mettra régulièrement à jour le contenu dans la zone de texte.
