Conţinut
Adăugați o marquee utilizând un control al casetei de text pentru a prinde cu ușurință atenția utilizatorului atunci când utilizați Microsoft Access. Este posibil să utilizați Visual Basic for Applications (VBA) pentru a automatiza procesul de derulare a textului într-un controler. VBA este un limbaj de programare folosit pentru extinderea aplicațiilor Microsoft Office. Utilizați evenimentul "Form.Timer" (formularul de timp) pentru a executa o subprocedură care va actualiza continuu conținutul casetei de text.
instrucțiuni de ghidare
Utilizați VBA în Access pentru a actualiza un control (Comstock / Comstock / Getty Images)-
Faceți clic pe fila "Creați" și apoi pe "Form Project" pentru a crea un nou formular. Apăsați "Text Box" în panoul de control, apoi în formularul pentru a adăuga un nou control de casetă de text. Faceți clic dreapta pe fila "Formatare" și setați proprietatea "Aliniere text" la "Dreapta". Apăsați pe fila "Altele" și tastați "txtMarquee" sub "Name".
-
Faceți clic dreapta pe formular, apoi pe "Build Event" și faceți dublu clic pe "Code Builder" pentru a rula fereastra editorului VBA. Apăsați "Ctrl" și "A" pentru a selecta toate codurile implicite, apoi apăsați "Delete" pentru a elimina codul.
-
Copiați și inserați următorul cod pentru a adăuga variabilele globale pe care le veți folosi în codul dvs.:
Dim textStr Ca șir Dim padstr Ca șir Dim txtScroll ca șir Dim txtLength ca intreg Dim iLength ca integer Dim ca integer Dim iView ca integer Dim ca număr întreg
-
Adăugați următorul cod pentru a defini textul care va traversa controlul casetei de text:
Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Cum se adaugă un tip de cutie de text în Microsoft Access" ;;; txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub
-
Creați un subproces care va apela "moveText":
Privat Sub Form_Timer () moveText End Sub
-
Creați subprocedura "moveText" care va defila de fapt textul afișat în controlul casetei de text:
Private Sub moveText ()
txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)
Dacă iView <20 Și iView <iRem Apoi iView = iView + 1 Sfârșit Dacă
Dacă iPos <txtLength Și iView> = 20 Apoi iPos = iPos + 1 Sfârșit Dacă Else txtMarqee.Text = "" iPos = 1 iView = 1 Sfârșitul Dacă End Sub
-
Reveniți la Microsoft Access și faceți clic pe pictograma "Vizualizare" pentru a rula programul. Textul definit la pasul 4 va defila prin caseta de text.