Sisu

• Juhised

Lisage telerikontrolli abil telg, et hõlpsasti kasutaja tähelepanu pöörata, kui kasutate Microsoft Access'i. On võimalik kasutada Visual Basic for Applications (VBA), et automatiseerida juhtnupu teksti kerimise protsessi. VBA on programmeerimiskeel, mida kasutatakse Microsoft Office'i rakenduste laiendamiseks. Kasutage sündmuse "Form.Timer" (vormide aeg) täitmiseks alamprotsessi, mis värskendab pidevalt tekstikasti sisu.

Juhised

Juhendi värskendamiseks kasutage rakenduses Access VBA (Comstock / Comstock / Getty Images)

1. Uue vormi loomiseks klõpsake vahekaardil "Loo" ja seejärel "Vorm Projekt". Vajutage juhtpaneelil "Tekstikast" ja seejärel uue tekstikasti kontrolli lisamiseks. Paremklõpsake vahekaardil "Vorminda" ja määrake "Tekstireguleerimine" omaduseks "Õigus". Vajutage vahekaarti "Muu" ja kirjutage "Nimi" alla "txtMarquee".

2. Paremklõpsake vormi, seejärel "Build Event" ja topeltklõpsake "Code Builder", et käivitada VBA redaktori aken. Vajuta "Ctrl" ja "A", et valida kõik vaikekoodid, seejärel vajutage koodi kustutamiseks "Kustuta".

   
   

3. Koodi lisamiseks kasutatavate globaalsete muutujate lisamiseks kopeerige ja kleepige järgmine kood:

   Dim textStr nagu string Dim padstr Nagu string Dim txtScroll kui string Dim txtLength As Integer Dim iLength As Integer Dim kui terviklik Dim iView kui terviklik Dim As tervikuna

4. Lisage järgmine kood, et määratleda teksti, mis läbib tekstikasti kontrolli:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Kuidas lisada tekstikasti tüüp Microsoft Accessile" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 lõpp-alam

5. Looge alamprotsess, mis nimetab "moveText":

   Privaatne alamvorm_Timeer () moveText End Sub

6. Looge alamprotsess "moveText", mis tõepoolest kerib tekstikasti kontrolli:

   Private Sub moveText ()

   
   

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

   Kui iView <20 ja iView <iRem Siis iView = iView + 1 End If

   Kui iPos <txtLength And iView> = 20 Siis iPos = iPos + 1 Lõpp Kui Else txtMarqee.Text = "" iPos = 1 iView = 1 Lõpeta kui Lõpeta Sub

7. Minge tagasi Microsoft Access'i ja klõpsake programmi käivitamiseks ikooni "View". Sammus 4 määratletud tekst kerib tekstikasti.