Lägg en rullning marquee med en kontroll textruta för att snabbt fånga en användares uppmärksamhet när du använder Microsoft Access applikation . I Access kan du använda Visual Basic for Applications ( VBA ) för att automatisera processen med rullande text på en kontroll . VBA är en dator programmeringsspråk som används för att utvidga Microsoft Office-program . Använd " Form.Timer " händelse att köra en sub förfarande som kontinuerligt kommer att uppdatera innehållet i textrutan . Instruktioner
1
Klicka på " Skapa " -fliken och klicka på " Form Design " för att skapa en ny form . Klicka på " Textruta " på " Controls " rutan och klicka på formuläret för att lägga till en ny kontroll textruta . Högerklicka på textrutan och klicka på " Egenskaper " för att visa " Egenskapsblad . " Klicka på " Format " -fliken och ställ in " Text Align " egenskap till " Right . " Klicka på " Övrigt " fliken , och typ " txtMarqee " bredvid " Namn ".
2
Högerklicka på formen , klicka på " Skapa händelse" och dubbelklicka på " Code Builder " för att starta VBA editorn fönstret . Tryck på " Ctrl " och " A " för att markera all standard -koden och tryck på " Delete " för att ta bort koden .
3
Kopiera och klistra in följande kod för att lägga till globala variabler du kommer att använda i din kod :
Dim textStr As String
Dim padstr As String
Dim txtScroll As String
Dim txtLength As Integer
Dim iLength As Integer
Dim börsintroduktioner As Integer
Dim iView As Integer
Dim Irem As Integer
4
Lägg till följande kod för att definiera texten som ska rulla genom textrutan kontroll :
Private Sub Form_Load ( ) katalog
txtMarqee.SetFocus
txtMarqee.Text = " "
textStr = " Lägga till ett rullande Marquee textruta till Microsoft Access "
padstr = " "
txtScroll = textStr & padstr
txtLength = Len ( txtScroll ) katalog
iLength = Len ( padstr ) katalog
Me.TimerInterval = 500
börsintroduktioner = 1
iView = 1
End Sub
5
Skapa en sub förfarande som kommer att kalla den " moveText " sub förfarande :
Private sub Form_Timer ( ) katalog
moveText
End sub
6
Skapa " moveText " sub procedur som faktiskt kommer att rulla texten som visas i textrutan kontroll :
Private sub moveText ( ) katalog
txtMarqee.SetFocus
txtMarqee.Text = Mid ( txtScroll , börsintroduktioner , iView ) katalog
Irem = txtLength - ( IPOS + iView - 1 ) katalog p Om ( IPOS - 1 ) < ( txtLength - iLength ) sedan
Om iView < 20 Och iView < Irem sedan
iView = iView + 1
End If
p Om börsintroduktioner < txtLength Och iView > = 20 Och
börsintroduktioner = börsintroduktioner + 1
slut om
Else
txtMarqee.Text = " "
börsintroduktioner = 1
iView = 1
End If
End Sub
7
Växla tillbaka till Microsoft Access och klicka på " Visa " -ikonen för att kör programmet . Den text som definieras i steg fyra börjar bläddra i textrutan .
