Legg til en rullende ved hjelp av en tekstboks kontroll for å raskt fange brukerens oppmerksomhet når du bruker Microsoft Access-program . I Access kan du bruke Visual Basic for Applications ( VBA ) til å automatisere prosessen med rulletekst på en kontroll. VBA er et programmeringsspråk som brukes til å utvide Microsoft Office-programmer . Bruk " Form.Timer " hendelse for å utføre en sub prosedyre som vil kontinuerlig oppdatere innholdet i tekstboksen . Instruksjoner
en
Klikk på " Create " og klikk " Form Design " for å skape en ny form . Klikk "Text Box" på " Controls " -panelet , og klikk på skjemaet for å legge en ny tekstboks kontroll. Høyreklikk tekstboksen, og klikk "Properties " for å vise "Property -skjema . " Klikk på " Format "-kategorien , og angi "Tekst Align" egenskap til " Høyre ". Klikk på " Annet" -kategorien , og skriv " txtMarqee " ved siden av "Name ".
2
Høyreklikk skjemaet , klikk på " Bygg hendelse» og dobbeltklikk på " Kode Builder " for å starte VBA editor vinduet . Trykk "Ctrl " og " A" for å velge alle standard kode , og trykk "Delete " for å fjerne koden .
3
Kopier og lim inn følgende kode for å legge globale variabler du vil bruke i koden : en
Dim textStr As String
Dim padstr As String
Dim txtScroll As String
Dim txtLength As Integer
Dim iLength som heltall
Dim børsnoteringer As Integer
Dim iView As Integer
Dim Irem As Integer
4
Legg til følgende kode for å definere teksten som vil rulle gjennom tekstboksen kontroll : en
Private Sub Form_Load ( )
txtMarqee.SetFocus
txtMarqee.Text = ""
textStr = " Hvordan legge til en rullende tekstboks til Microsoft Access "
padstr = ""
txtScroll = textStr & padstr
txtLength = Len ( txtScroll )
iLength = Len ( padstr )
Me.TimerInterval = 500
børsnoteringer = 1
iView = 1
End Sub
5
Lag en sub prosedyre som vil kalle " moveText " sub prosedyre : en
Private Sub Form_Timer ( )
moveText
End sub
6
Lag " moveText " sub prosedyre som faktisk vil rulle teksten som vises i tekstboksen kontroll : en
Private Sub moveText ( )
txtMarqee.SetFocus
< p> txtMarqee.Text = Mid ( txtScroll , børsnoteringer , iView )
Irem = txtLength - ( børsnoteringer + iView - 1 )
p Hvis ( børsnoteringer - 1 ) < ( txtLength - iLength ) deretter
p Hvis iView < 20 Og iView < Irem deretter
iView = iView + 1
End If
p Hvis børsnoteringer < txtLength Og iView > = 20 Da
børsnoteringer = børsnoteringer + 1
End If
Else
txtMarqee.Text = ""
børsnoteringer = 1
iView = 1
End If
End Sub
7
Switch tilbake til Microsoft Access , og klikk på "View" -ikonet for å kjøre programmet . Teksten definert i trinn fire vil begynne å rulle gjennom tekstboksen.
