Ako pridať Posúvanie Marquee textové pole do aplikácie Microsoft Access

Pridať posúvanie stanu pomocou ovládacieho prvku textové pole pri použití aplikácie Microsoft Access rýchlo chytiť pozornosť užívateľa . V programe Access môžete použiť Visual Basic for Applications ( VBA ) automatizovať proces bežiaci text na ovládací prvok . VBA je programovací jazyk použiť na rozšírenie aplikácie balíka Microsoft Office . Použite " Form.Timer " akciu vykonať čiastkové postup , ktorý bude priebežne aktualizovať obsah v textovom poli . Pokyny dovolená 1

Kliknite na záložku " Vytvoriť " a kliknite na " Návrh formulára " vytvoriť nový formulár . Kliknite na " Textové pole " na " Controls " table a kliknite na formulár pre pridanie nového ovládacieho prvku textové pole . Kliknite pravým tlačidlom myši na textové pole a potom kliknite na tlačidlo " Vlastnosti " sa zobrazí " Zoznam vlastností . " Kliknite na záložku " Formát " a nastavte vlastnosť " Text Align " na " Presne tak . " Kliknite na tlačidlo " Ďalšie " kartu , a zadajte " txtMarqee " vedľa " Name " .
2

pravým tlačidlom myši na formulár , kliknite na tlačidlo " Vytvoriť udalosť " a dvakrát kliknite na " Tvorca kódu " na štarte okno editora VBA . Stlačte tlačidlo " Ctrl " a " A " a vyberte všetky predvolený kód a stlačte tlačidlo " Delete " pre odstránenie kódu .
3

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

Dim textStr As String Dim

padstr As String Dim

txtScroll As String Dim

txtLength As Integer

Dim iLength As Integer

Dim IPO As Integer

Dim iView As Integer

Dim Írom As Integer
4

Pridajte nasledujúci kód pre definovanie text , ktorý bude prechádzať ovládací prvok textové pole :

Private Sub Form_Load ( )

txtMarqee.SetFocus

txtMarqee.Text = " "

textStr = " Ako pridať Posúvanie Marquee textové pole do aplikácie Microsoft Access "

padstr = " "

txtScroll = textStr & padstr

txtLength = Ľan ( txtScroll )

iLength = Ľan ( padstr )

Me.TimerInterval = 500

IPO = 1

iView = 1

End Sub

5

Vytvorte čiastkové postup , ktorý bude volať " moveText " čiastkové postup :

Private Sub Form_Timer ( )

moveText

End Sub

6

Vytvoriť " moveText " sub postup , ktorý bude v skutočnosti rolovať text zobrazený na ovládací prvok textové pole :

Private sub moveText ( )

txtMarqee.SetFocus

txtMarqee.Text = Mid ( txtScroll , IPO , iView )

Írom = txtLength - ( IPO + iView - 1 )

( IPO - 1 ) < ( txtLength - iLength ) potom

Ak iView < 20 a iView < Írom potom

iView = iView + 1

End If

IPO < txtLength a iView > = 20 Potom

IPO IPO = + 1

End If

Else

txtMarqee.Text = " "

IPO = 1

iView = 1

End If

End Sub
7

Prepnite späť do aplikácie Microsoft Access a kliknite na ikonu " Zobraziť " na spustite program . Text je definovaná v kroku štyri začne prechádzať textového poľa .

• Predchádzajúca strana: Ako si vyrobiť skupiny rozvrhu práce v aplikácii Microsoft Access 
• Ďalšia strana: Subform Veľkosť v aplikácii Microsoft Access