![Microsoft Access Scrolling text or marquee on a form/switchboard- Access 2019](https://i.ytimg.com/vi/djmlbJ0Sm7M/hqdefault.jpg)
Zawartość
Dodaj ramkę zaznaczenia za pomocą kontrolki pola tekstowego, aby łatwo przyciągnąć uwagę użytkownika podczas korzystania z programu Microsoft Access. Możliwe jest użycie Visual Basic for Applications (VBA) do automatyzacji procesu przewijania tekstu w kontrolerze. VBA to język programowania używany do rozszerzania aplikacji Microsoft Office. Użyj zdarzenia „Form.Timer” (czas formularza), aby wykonać podprocedurę, która będzie stale aktualizować zawartość pola tekstowego.
Instrukcje
-
Kliknij kartę „Utwórz”, a następnie „Utwórz projekt”, aby utworzyć nowy formularz. Naciśnij „Pole tekstowe” w panelu Sterowanie, a następnie w formularzu, aby dodać nową kontrolkę pola tekstowego. Kliknij prawym przyciskiem myszy kartę „Format” i ustaw właściwość „Wyrównanie tekstu” na „Prawo”. Naciśnij kartę „Inne” i wpisz „txtMarquee” w polu „Nazwa”.
-
Kliknij prawym przyciskiem myszy formularz, a następnie „Build Event” i kliknij dwukrotnie „Code Builder”, aby uruchomić okno edytora VBA. Naciśnij „Ctrl” i „A”, aby wybrać cały domyślny kod, a następnie naciśnij „Usuń”, aby usunąć kod.
-
Skopiuj i wklej następujący kod, aby dodać zmienne globalne, których będziesz używać w kodzie:
Dim textStr As String Dim padstr As String Dim txtScroll As String Dim txtLength As Integer Dim iLength As Integer Dim As Integer Dim Dim iView jako Integer Dim As Integer
-
Dodaj następujący kod, aby zdefiniować tekst, który będzie przechodził przez formant pola tekstowego:
Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Jak dodać typ pola tekstowego do Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 koniec sub
-
Utwórz podproces, który wywoła „moveText”:
Private Sub Form_Timer () moveText End Sub
-
Utwórz podprocedurę „moveText”, która faktycznie przewinie tekst widoczny w kontrolce pola tekstowego:
Private Sub moveText ()
txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)
Jeśli iView <20 i iView <iRem Następnie iView = iView + 1 Zakończ jeśli
Jeśli iPos <txtLength i iView> = 20 to iPos = iPos + 1 Koniec jeśli Else txtMarqee.Text = "" iPos = 1 iView = 1 Koniec jeśli koniec Sub
-
Wróć do Microsoft Access i kliknij ikonę „Wyświetl”, aby uruchomić program. Tekst zdefiniowany w kroku 4 przewinie pole tekstowe.