Vsebina

• Navodila

Dodajte oznako s pomočjo polja z besedilnim poljem, da boste uporabnika lažje opazili, ko uporabljate Microsoft Access. Možno je uporabiti Visual Basic za aplikacije (VBA) za avtomatizacijo postopka pomikanja besedila v krmilniku. VBA je programski jezik, ki se uporablja za razširitev aplikacij Microsoft Office. Uporabite dogodek "Form.Timer" (čas obrazca) za izvajanje podprocesa, ki bo nenehno posodabljal vsebino polja z besedilom.

Navodila

Uporabite VBA v programu Access za posodobitev nadzora (Comstock / Comstock / Getty Images)

1. Kliknite zavihek »Ustvari« in nato »Obrazec projekta«, da ustvarite nov obrazec. Pritisnite "Text Box" na nadzorni plošči, nato pa v obrazcu, da dodate nov kontrolni okvir z besedilom. Z desno tipko miške kliknite kartico "Format" in nastavite lastnost "Poravnava besedila" na "desno". Pritisnite zavihek "Drugo" in v polje "Ime" vnesite "txtMarquee".

2. Z desno tipko miške kliknite obrazec, nato "Build event" in dvokliknite "Code Builder", da zaženete okno urejevalnika VBA. Pritisnite "Ctrl" in "A", da izberete vse privzete kode, nato pritisnite "Delete", da odstranite kodo.

   
   

3. Kopirajte in prilepite naslednjo kodo, da dodate globalne spremenljivke, ki jih boste uporabili v svoji kodi:

   Dim textStr As String Dim padstr Kot niz Dim txtScroll As String Dim txtLength As Integer Dim iLength As Integer Dim As Integer Dim iView As Integer Dim As Integer

4. Dodajte naslednjo kodo, da določite besedilo, ki bo prečkalo nadzor besedilnega polja:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Kako dodati besedilno polje v Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Ustvarite podproces, ki bo klical "moveText":

   Zasebno pod Form_Timer () premakniText End Sub

6. Ustvarite podprocese "moveText", ki bodo dejansko pomikali besedilo, prikazano v polju za besedilno polje:

   Zasebna sub premikText ()

   
   

   txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   Če iView <20 in iView <iRem potem iView = iView + 1 End If

   Če iPos <txtLength in iView> = 20, potem iPos = iPos + 1 End If Else txtMarqee.Text = "" iPos = 1 iView = 1 End End End Sub

7. Vrnite se v Microsoft Access in kliknite ikono "View", da zaženete program. Besedilo, opredeljeno v 4. koraku, se bo pomikalo po polju z besedilom.