Indhold
Tilføj en markeringsramme ved hjælp af en tekstboks kontrol for nemt at fange brugerens opmærksomhed, når du bruger Microsoft Access. Det er muligt at bruge Visual Basic for Applications (VBA) til at automatisere processen med at rulle tekst i en controller. VBA er et programmeringssprog, der bruges til at udvide Microsoft Office-applikationer. Brug "Form.Timer" -hændelsen (formtid) til at udføre en underprocedure, der løbende opdaterer indholdet af tekstboksen.
retninger
Brug VBA i Access for at opdatere en kontrol (Comstock / Comstock / Getty Images)-
Klik på "Opret" fanen og derefter "Form Project" for at oprette en ny formular. Tryk på "Tekstboks" i kontrolpanelet, og derefter i formularen for at tilføje en ny tekstboks kontrol. Højreklik på fanen "Format", og angiv egenskaben "Tekstjustering" til "Højre". Tryk på fanen "Andet" og skriv "txtMarquee" under "Navn".
-
Højreklik på formularen, og derefter "Build Event" og dobbeltklik på "Code Builder" for at køre VBA editor vinduet. Tryk på "Ctrl" og "A" for at vælge alt standardkoden, og tryk derefter på "Slet" for at fjerne koden.
-
Kopier og indsæt følgende kode for at tilføje globale variabler, som du vil bruge i din kode:
Dim textStr Som String Dim Padstr Som String Dim TxtScroll Som String Dim TxtLength Som Integer Dim ILength Som Integer Dim Som Integer Dim IView Som Integer Dim As Integer
-
Tilføj følgende kode for at definere teksten, der vil krydse kontrollen af tekstboksen:
Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Sådan tilføjes en tekstboks type til Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub
-
Opret en underproces, der vil kalde "moveText":
Privat Sub Form_Timer () moveText End Sub
-
Opret "moveText" -proceduren, der rent faktisk rulle den tekst, der vises i tekstboksen kontrol:
Privat Sub moveText ()
txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)
Hvis iView <20 Og iView <iRem Then IView = iView + 1 End If
Hvis iPos <txtLength og iView> = 20 Derefter iPos = iPos + 1 End If Else txtMarqee.Text = "" iPos = 1 iView = 1 ende Hvis End-del
-
Gå tilbage til Microsoft Access og klik på ikonet "Vis" for at køre programmet. Teksten, der er defineret i trin 4, rulle gennem tekstfeltet.