Hvordan legge til en rullende tekstboks til Microsoft Access

Legg 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) for å 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.

Bruksanvisning

1 Klikk på "Create" og klikk "Form Design" for å skape en ny form. Klikk på "Text Box" på "Controls" -panelet, og klikk på skjemaet for å legge til en ny tekstboks kontroll. Høyreklikk tekstboksen og klikk "Egenskaper" for å vise "Property Sheet". Klikk på "Format" -kategorien, og angi "Text Align" eiendom til "Right". Klikk på "Annet" -kategorien, og skriv "txtMarqee" ved siden av "Name".

2 Høyreklikk skjemaet, klikk "Build hendelse» og dobbeltklikk på "Kode Builder" for å starte redigeringsvinduet VBA. Trykk "Ctrl" og "A" for å velge alle standardkoden, og trykk "Delete" for å fjerne kode.

3 Kopier og lim inn følgende kode for å legge til globale variabler du vil bruke i koden din:

Dim textStr As String

Dim padstr As String

Dim txtScroll As String

Dim txtLength As Integer

Dim iLength As Integer

Dim børsnoteringer As Integer

Dim iView As Integer

Dim Irem As Integer

4 Legg til følgende kode for å definere den teksten som skal rulle gjennom tekstboksen kontroll:

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 kaller "moveText" sub prosedyre:

Private Sub Form_Timer ()

moveText

End Sub

6 Lag "moveText" sub prosedyre som faktisk vil rulle teksten som vises i tekstboksen kontroll:

Private Sub moveText ()

txtMarqee.SetFocus

txtMarqee.Text = Mid (txtScroll, børsnoteringer, iView)

Irem = txtLength - (børsnoteringer + iView - 1)

Hvis (børsnoteringer - 1) <(txtLength - iLength) Deretter

If iView < 20 And iView < iRem Then

iView = iView + 1

Slutt om

Hvis børsnoteringer & lt; txtLength Og iView> = 20 Da

IPOs = børsnoteringer + 1

Slutt om

Ellers

txtMarqee.Text = ""

børsnoteringer = 1

iView = 1

Slutt om

End Sub

7 Bytt tilbake til Microsoft Access, og klikk på "View" ikonet for å kjøre programmet. Teksten definert i trinn fire vil begynne å rulle gjennom tekstboksen.