Obsah

• inštrukcia

Pridajte markízu pomocou ovládacieho prvku textového poľa, aby ste mohli ľahko zachytiť pozornosť používateľa pri používaní programu Microsoft Access. Je možné použiť Visual Basic for Applications (VBA) na automatizáciu procesu rolovania textu v radiči. VBA je programovací jazyk používaný na rozšírenie aplikácií balíka Microsoft Office. Použite udalosť "Form.Timer" (čas formulára) na vykonanie podprocesu, ktorý bude priebežne aktualizovať obsah textového poľa.

inštrukcia

Použite VBA v programe Access na aktualizáciu ovládacieho prvku (Comstock / Comstock / Getty Images)

1. Kliknite na kartu "Vytvoriť" a potom na položku "Form Project" a vytvorte nový formulár. Stlačte tlačidlo "Textové pole" na paneli Ovládacie prvky a potom vo formulári pridajte nový ovládací prvok textového poľa. Kliknite pravým tlačidlom myši na kartu "Formát" a nastavte "Zarovnanie textu" na "Pravá". Stlačte tlačidlo "Ostatné" a zadajte "txtMarquee" pod "Názov".

2. Kliknite pravým tlačidlom myši na formulár, potom na položku "Vytvoriť udalosť" a dvakrát kliknite na položku "Tvorca kódu" a spustite okno editora VBA. Stlačte "Ctrl" a "A" pre výber všetkých predvolených kódov, potom stlačte "Vymazať" pre odstránenie kódu.

   
   

3. Skopírujte a vložte nasledujúci kód a pridajte globálne premenné, ktoré budete používať vo svojom kóde:

   Dim textStr As String Dim Padstr As String Dim txtScroll As String Dim Stlmenie txtLength As Integer Dim iLength Ako integer Dim ako integer Dim iView as integer Dim ako integer

4. Pridajte nasledujúci kód na definovanie textu, ktorý bude prechádzať ovládacím prvkom textového poľa:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Ako pridať textbox do programu Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Vytvorte podproces, ktorý zavolá "moveText":

   Private Sub Form_Timer () moveText Koniec Sub

6. Vytvorte podproces "moveText", ktorý bude skutočne posúvať text zobrazený v ovládači textového poľa:

   
   

   Private Sub moveText ()

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

   Ak iView <20 A iView <iRem Potom iView = iView + 1 End If

   Ak iPos <txtLength A iView> = 20 Potom iPos = iPos + 1 Koniec Ak Else txtMarqee.Text = "" iPos = 1 iView = 1 Koniec Ak Koniec Sub

7. Vráťte sa do programu Microsoft Access a kliknutím na ikonu "Zobraziť" spustite program. Text definovaný v kroku 4 sa bude pohybovať v textovom poli.