Cum se adaugă o casetă text de tip marquee în Microsoft Access

Autor: Robert Simon
Data Creației: 21 Iunie 2021
Data Actualizării: 22 Martie 2024
Anonim
Cum se adaugă o casetă text de tip marquee în Microsoft Access - Articole
Cum se adaugă o casetă text de tip marquee în Microsoft Access - Articole

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)
  1. 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".

  2. 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.


  3. 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

  4. 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

  5. Creați un subproces care va apela "moveText":

    Privat Sub Form_Timer () moveText End Sub

  6. 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

  7. 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.

Proprietățile de vindecare interne și externe ale grâului germinat câștigă mai multă recunoaștere în fiecare zi. Deși ete obișnuit ă e găeacă ucuri de clorofilă îmbuteliate în...

Serii de comedie din anii '80

Louise Ward

Martie 2024

Fiecare deceniu are programe de televiziune care reprezintă timpul ău. Anii 1980 au avut câteva itcom-uri care abordau cu umor apectele ociale, economice și raiale. Cele mai multe dintre ele au f...

Fascinant