Aggiungere un testo scorrevole utilizzando un controllo casella di testo per catturare rapidamente l'attenzione di un utente quando si utilizza l'applicazione di Microsoft Access. In Access è possibile utilizzare Visual Basic, Applications Edition (VBA) per automatizzare il processo di testo scorrevole su un controllo. VBA è un linguaggio di programmazione utilizzato per estendere le applicazioni di Microsoft Office. Utilizzare l'evento "Form.Timer" per eseguire una routine Sub che continuamente aggiornare i contenuti nella casella di testo.

istruzione

1 Fare clic sulla scheda "Crea" e cliccare su "Form Design" per creare un nuovo modulo. Fai clic su "Casella di testo" nel riquadro "Controlli" e fare clic sul form per aggiungere un nuovo controllo casella di testo. Pulsante destro del mouse sulla casella di testo e fare clic su "Proprietà" per visualizzare la "Finestra delle proprietà." Fare clic sulla scheda "Formato", e impostare il "Text Align" proprietà "Destra". Fare clic sulla scheda "Altro", e digitare "txtMarqee" accanto a "Nome".

2 Fare clic con il modulo, fai clic su "Crea evento", e fare doppio clic su "Generatore di codice" per avviare la finestra editor VBA. Premere il tasto "Ctrl" e "A" per selezionare tutto il codice predefinito, e premere il tasto "Elimina" per rimuovere il codice.

3 Copiare e incollare il seguente codice per aggiungere le variabili globali si intende utilizzare nel codice:

Dim textStr As String

padstr Dim As String

Dim txtScroll As String

Dim txtLength As Integer

Dim iLength As Integer

iPos fioco come Integer

iView Dim As Integer

Dim IREM As Integer

4 Aggiungere il seguente codice per definire il testo che verrà scorrere il controllo casella di testo:

Private Sub Form_Load ()

txtMarqee.SetFocus

txtMarqee.Text = ""

textStr = "Come aggiungere una casella di testo scorrimento Marquee a Microsoft Access"

padstr = ""

txtScroll = textStr & padstr

txtLength = Len (txtScroll)

iLength = Len (padstr)

Me.TimerInterval = 500

iPos = 1

iView = 1

End Sub

5 Creare una routine Sub che chiamerà la procedura secondaria "moveText":

Private Sub Form_Timer ()

moveText

End Sub

6 Creare la procedura secondaria "moveText" che effettivamente scorrere il testo mostrato nel controllo casella di testo:

Private Sub moveText ()

txtMarqee.SetFocus

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

IREM = txtLength - (iPos + iView - 1)

Se (iPos - 1) <(txtLength - iLength) Poi

If iView < 20 And iView < iRem Then

iView iView = + 1

Finisci se

Se iPos & lt; txtLength E iView> = 20 Poi

IPO = iPos + 1

Finisci se

Altro

txtMarqee.Text = ""

iPos = 1

iView = 1

Finisci se

End Sub

7 Tornare a Microsoft Access e fare clic sull'icona "Visualizza" per eseguire il programma. Il testo definito nel passaggio quattro inizierà a scorrere la casella di testo.