Turinys

• Instrukcijos

Naudodami „Microsoft“ prieigą, naudodami teksto laukelio valdiklį, naudokite teksto laukelio valdiklį. Galima naudoti „Visual Basic for Applications“ (VBA), kad automatizuotų valdiklio teksto slinkimo procesą. VBA yra programavimo kalba, naudojama Microsoft Office programoms plėtoti. Naudokite įvykį „Form.Timer“ (formos laikas), kad įvykdytumėte subprocedūrą, kuri nuolat atnaujins teksto laukelio turinį.

Instrukcijos

Jei norite atnaujinti valdiklį, naudokite „Access“ „VBA“ (Comstock / Comstock / Getty Images)

1. Spustelėkite skirtuką „Kurti“ ir tada „Formuoti projektą“, kad sukurtumėte naują formą. Valdymo skydelyje paspauskite „Teksto laukelis“, tada formoje pridėkite naują teksto laukelio valdiklį. Dešiniuoju pelės mygtuku spustelėkite skirtuką „Formatas“ ir nustatykite „Teksto derinimas“ į „Teisė“. Paspauskite skirtuką „Kita“ ir įrašykite „txtMarquee“ į „Pavadinimas“.

2. Dešiniuoju pelės mygtuku spustelėkite formą, tada „Build Event“ ir dukart spustelėkite „Code Builder“, kad paleistumėte VBA redaktoriaus langą. Paspauskite „Ctrl“ ir „A“, kad pasirinktumėte visus numatytuosius kodus, tada paspauskite „Ištrinti“, kad pašalintumėte kodą.

3. Nukopijuokite ir įklijuokite šį kodą, kad pridėtumėte pasaulinius kintamuosius, kuriuos naudosite kode:

   
   

   Dim textStr kaip eilutė Dim strstr kaip stygos „txtScroll“ kaip eilutė „Dim txtLength“ kaip visiško „Dim iLength“ kaip visiško „Dim“ kaip visiško „Dim iView“ kaip visiško „Dim“ kaip visiško dydžio

4. Pridėkite šį kodą, kad apibrėžtumėte tekstą, kuris perkelia teksto lauko valdiklį:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Kaip pridėti teksto laukelį prie Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 pabaiga

5. Sukurkite antrinį procesą, kuris vadins „moveText“:

   Private Sub Form_Timer () moveText End Sub

6. Sukurkite „moveText“ subprocedūrą, kuri faktiškai sukurs teksto laukelyje rodomą tekstą:

   Privatus „Sub moveText“ ()

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

   Jei iView <20 ir iView <iRem Tada iView = iView + 1 End If

   
   

   Jei „iPos“ <txtLength And iView> = 20 Tada „iPos“ = „iPos“ + 1 pabaiga Jei else txtMarqee.Text = "" iPos = 1 iView = 1 pabaiga, jei baigsite

7. Grįžkite į „Microsoft Access“ ir spustelėkite „Rodyti“ piktogramą, kad paleistumėte programą. 4 žingsnyje apibrėžtas tekstas pereis per teksto laukelį.