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