Tilføj en rullende lysavis ved hjælp af en tekstboks til hurtigt fange en brugers opmærksomhed , når du bruger din Microsoft Access-program . I Access kan du bruge Visual Basic for Applications ( VBA ) til at automatisere processen med rulletekst på en kontrol. VBA er en computer programmeringssprog, der anvendes til at udvide Microsoft Office-programmer . Brug " Form.Timer " begivenhed til at udføre en sub procedure, der vil løbende opdatere indholdet i tekstfeltet . Instruktioner
1

Klik på " Opret" fanen og klik på " Form Design " for at oprette en ny formular. Klik på " Text Box" på " Controls " ruden og klikke på formularen til at tilføje en ny tekstboks . Højreklik på tekstboksen , og klik på "Egenskaber " for at vise "Property Sheet ". Klik på "Format " fanebladet og sæt " Text Juster " ejendom til " Right ". Klik på " Andet" fanen, og skriv " txtMarqee " ud for "Navn ".
2

Højreklik på formularen , klik på " Build begivenhed" og dobbeltklik på "Code Builder " for at starte VBA editoren vinduet. Tryk på " Ctrl" og "A " for at vælge alle de standard -koden , og tryk på "Slet" for at fjerne koden.
3

Kopier og indsæt følgende kode til at tilføje globale variabler , du vil bruge i din kode : Hej

Dim textStr As String

Dim padstr As String

Dim txtScroll As String

Dim txtLength As Integer

Dim iLength Som Integer

Dim børsintroduktioner As Integer

Dim iView As Integer

Dim Irem As Integer
4

Føj følgende kode til at definere den tekst, der ruller gennem tekstboks : Hej

Private Sub Form_Load ()

txtMarqee.SetFocus

txtMarqee.Text = " "

textStr = " Sådan tilføjes en rulning Marquee tekstboks til Microsoft Access "

padstr = " "

txtScroll = textStr & padstr

txtLength = Len ( txtScroll )

iLength = Len ( padstr )

Me.TimerInterval = 500

IPOS = 1

iView = 1

End Sub
< br > 5

Opret en sub procedure, der vil kalde " moveText " sub procedure : Hej

Private Sub Form_Timer ()

moveText

End sub ​​
< br > 6

Opret " moveText " sub procedure, der rent faktisk vil rulle teksten vises i tekstboks : Hej

Private Sub moveText ()

txtMarqee.SetFocus
< p> txtMarqee.Text = Mid ( txtScroll , børsintroduktioner , iView )

Irem = txtLength - (IPO + iView - 1)
p Hvis (IPO - 1 ) < ( txtLength - iLength ) Så

Hvis iView < 20 Og iView < Irem Så

iView = iView + 1

End If
p Hvis børsintroduktioner < txtLength And iView > = 20 Derefter

IPOS = IPOS + 1

End If

Else

txtMarqee.Text = ""

børsintroduktioner = 1

iView = 1

End If

End Sub
7

Skift tilbage til Microsoft Access, og klik på "Vis" -ikonet for at køre programmet. Teksten er defineret i trin fire , vil begynde at rulle gennem tekstboksen.