Wie Microsoft Access eine scrollende Laufschrift-Textfeld hinzugefügt
Fügen Sie eine Laufschrift mit einem Textfeld-Steuerelement, um schnell die Aufmerksamkeit eines Benutzers zu fangen, wenn Sie Ihre Microsoft Access-Anwendung verwenden. In Access können Sie Visual Basic für Applikationen (VBA) zum Automatisieren der Lauftext auf ein Steuerelement. VBA ist eine Computer-Programmiersprache verwendet, um Microsoft Office-Anwendungen zu erweitern. Verwenden Sie das Ereignis "Form.Timer", eine Sub-Prozedur ausgeführt, die ständig den Inhalt in das Textfeld aktualisiert wird.
Anweisungen
1 Klicken Sie auf der Registerkarte "Erstellen" und klicken Sie auf "Formulardesign" um ein neues Formular zu erstellen. Klicken Sie im Bereich "Steuerelemente" auf "Textfeld", und klicken Sie auf das Formular, um ein neues Textfeld-Steuerelement hinzufügen. Maustaste auf das Textfeld, und klicken Sie auf "Eigenschaften", um das "Eigenschaftenblatt." anzuzeigen Klicken Sie auf die Registerkarte "Format", und legen Sie die Eigenschaft "Ausrichtung", "Rechts." Klicken Sie auf die Registerkarte "Weitere", und geben Sie "TxtMarqee" neben "Name".
2 Maustaste auf das Formular, klicken Sie auf "Veranstaltung erstellen" und doppelklicken Sie auf "Code-Generator", um das Fenster des VBA-Editor zu starten. Drücken Sie "Strg" und "A" den Standard-Code auszuwählen, und drücken Sie "Löschen", um den Code zu entfernen.
3 Kopieren Sie und fügen Sie den folgenden Code um globale Variablen hinzufügen, die Sie in Ihrem Code verwenden:
Dim TextStr As String
Padstr As String Dim
Dim TxtScroll As String
Dim TxtLength As Integer
Dim iLength As Integer
IPos As Integer Dim
IView As Integer Dim
IRem As Integer Dim
4 Fügen Sie den folgenden Code, um den Text zu definieren, der durch das Textfeld-Steuerelement Blättern wird:
Private Sub Form_Load()
txtMarqee.SetFocus
txtMarqee.Text = ""
TextStr = "Wie zum Hinzufügen einer Scrollen Marquee Text Box zu Microsoft Access"
Padstr = ""
TxtScroll = TextStr & Padstr
TxtLength = Len(txtScroll)
iLength = Len(padstr)
Me.TimerInterval = 500
iPos = 1
iView = 1
EndSub
5 Erstellen Sie eine Sub-Prozedur, die die Sub-Prozedur "MoveText" aufrufen:
Private Sub Form_Timer()
moveText
EndSub
6 Erstellen Sie die "MoveText" Sub-Prozedur, die tatsächlich in das Textfeld-Steuerelement angezeigten Text Scrollen wird:
Private Sub moveText()
txtMarqee.SetFocus
txtMarqee.Text = Mid (TxtScroll, iPos, iView)
iRem = TxtLength - (iPos + iView - 1)
Wenn (iPos - 1) < (TxtLength - iLength) dann
If iView < 20 And iView < iRem Then
iView = iView + 1
End If
If iPos < txtLength And iView >= 20 Then
iPos = iPos + 1
End If
Sonst
txtMarqee.Text = ""
iPos = 1
iView = 1
EndIf
EndSub
7 Wechseln Sie zurück zu Microsoft Access, und klicken Sie auf "Ansicht", um das Programm auszuführen. Der Text in Schritt vier definierten startet einen Bildlauf durch das Textfeld.