Fare clic sulla scheda "Crea " e cliccare su " Progettazione Form" per creare un nuovo modulo . Fai clic su " Casella di testo " nel pannello " 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 " Allineamento testo " proprietà " giusto". Fare clic sulla scheda "Altro" , e digitare " txtMarqee " accanto a " Nome ".
2
destro del mouse sul modulo , fare clic su " Genera evento , " e fare doppio clic su " Generatore di codice " per lanciare la finestra di editor VBA . Premere "Ctrl " e "A " per selezionare tutto il codice di default e premere "Elimina" per rimuovere il codice .
3
Copia e incolla il seguente codice per aggiungere le variabili globali che userete nel codice:
Dim textStr As String Dim
padstr As String Dim
Txtscroll As String Dim
txtLength As Integer
dim iLength As Integer dim
iPos As Integer dim
iView As Integer dim
Irem As Integer
4
Aggiungere il codice seguente per definire il testo che verrà scorrere il controllo casella di testo :
private Sub Form_Load ( ) per
txtMarqee.SetFocus
txtMarqee.Text = " "
textStr = " Come aggiungere un testo scorrevole Casella di testo a Microsoft Access "
padstr = " "
Txtscroll = textStr & padstr
txtLength = Len ( Txtscroll ) per
iLength = Len ( padstr ) per
Me.TimerInterval = 500
iPos = 1
iView = 1
End
Sub
5
Creare una routine Sub che chiamerà la procedura sub " moveText " :
Form_Timer private Sub ( ) per
moveText
End sub
software © www.354353.com