![Как создать таблицы в Microsoft Access за 8 минут](https://i.ytimg.com/vi/h_UPuVGwkko/hqdefault.jpg)
Зміст
Додайте область, використовуючи елемент керування текстовим полем, щоб легко привернути увагу користувача під час використання Microsoft Access. Можна використовувати Visual Basic для додатків (VBA) для автоматизації процесу прокручування тексту в контролері. VBA - це мова програмування, яка використовується для розширення додатків Microsoft Office. Використовуйте подію "Form.Timer" (час форму) для виконання підпроцедури, який буде постійно оновлювати вміст текстового поля.
Інструкції
-
Натисніть вкладку "Створити", а потім "Форма проекту", щоб створити нову форму. Натисніть "Text Box" на панелі Controls, а потім у формі, щоб додати новий елемент керування текстовим полем. Клацніть правою кнопкою миші на вкладці "Формат" і встановіть властивість "Вирівнювання тексту" на "Право". Натисніть вкладку "Інше" та введіть "txtMarquee" у розділі "Ім'я".
-
Клацніть правою кнопкою миші на формі, потім "Build Event" і двічі клацніть "Code Builder", щоб запустити вікно редактора VBA. Натисніть "Ctrl" і "A", щоб вибрати весь код за замовчуванням, потім натисніть "Видалити", щоб видалити код.
-
Скопіюйте та вставте наступний код, щоб додати глобальні змінні, які ви будете використовувати в коді:
Dim textStr As String Дим padstr As String Дим txtScroll Як рядок Dim txtLength As Integer Дим iLength Як ціле число Dim As Integer Дим iView як ціле число Dim As Integer
-
Додайте наступний код, щоб визначити текст, який пройде через керування текстовим полем:
Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Як додати тип текстового поля до Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub
-
Створіть підпроцес, який викликатиме "moveText":
Приватний Sub Form_Timer () moveText End Sub
-
Створіть підпрограму "moveText", яка фактично прокрутить текст, який відображається в полі керування текстовим полем:
Приватний підкаталог ()
txtMarqee.SetFocus txtMarqee.Text = Середній (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)
Якщо iView <20 і iView <iRem Тоді iView = iView + 1 End If
Якщо iPos <txtLength І iView> = 20 Тоді iPos = iPos + 1 Кінець, якщо Else txtMarqee.Text = "" iPos = 1 iView = 1 Кінець, якщо закінчується Sub
-
Поверніться до Microsoft Access і натисніть значок "View", щоб запустити програму. Текст, визначений у кроці 4, прокрутить текстове поле.