Πώς να προσθέσετε ένα πλαίσιο κειμένου Scrolling Marquee στη Microsoft Access

Προσθέστε ένα marquee κύλιση χρησιμοποιώντας ένα στοιχείο ελέγχου πλαισίου κειμένου για να πιάσει γρήγορα την προσοχή του χρήστη , όταν χρησιμοποιείτε την εφαρμογή Microsoft Access . Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications ( VBA ) για να αυτοματοποιήσει τη διαδικασία του κυλιόμενου κειμένου σε ένα στοιχείο ελέγχου . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την επέκταση των εφαρμογών του Microsoft Office . Χρησιμοποιήστε το " Form.Timer " εκδήλωση για να εκτελέσει μια υπο διαδικασία που θα ενημερώνει συνεχώς τα περιεχόμενα στο πλαίσιο κειμένου . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Δημιουργία " και κάντε κλικ στο " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Κάντε κλικ στο " Πλαίσιο κειμένου " για την " Controls " παράθυρο και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου . Κάντε δεξιό κλικ στο πλαίσιο κειμένου και κάντε κλικ στο "Ιδιότητες" για να εμφανιστεί το " Φύλλο ιδιοτήτων ". Κάντε κλικ στην καρτέλα "Μορφή " και που το " Κείμενο Στοίχιση " ιδιότητα " Δεξιά ". Κάντε κλικ στο " Άλλο" καρτέλα και πληκτρολογήστε " txtMarqee " δίπλα στο " Όνομα ". 2

δεξί κλικ στη φόρμα , κάντε κλικ στο κουμπί "Build Event " και κάντε διπλό κλικ στο " δόμησης κώδικα " για την έναρξη των το παράθυρο editor VBA . Πατήστε το πλήκτρο " Ctrl " και "A" για να επιλέξετε όλο το προεπιλεγμένο κωδικό , και πατήστε το πλήκτρο "Διαγραφή " για να αφαιρέσετε τον κωδικό .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να προσθέσετε καθολικές μεταβλητές που θα χρησιμοποιήσετε στον κώδικά σας :

Dim textStr Όπως String Dim

padstr Όπως String Dim

txtScroll Όπως String Dim

txtLength As Integer

Dim iLength As Integer

Dim IPOS As Integer

Dim iView As Integer

Dim IREM As Integer
Η 4

Προσθέστε τον ακόλουθο κώδικα για να καθορίσουν το κείμενο που θα κύλιση στο στοιχείο ελέγχου πλαισίου κειμένου :

Private Sub Form_Load ( )

txtMarqee.SetFocus

txtMarqee.Text = " "

textStr = " Πώς να προσθέσετε ένα πλαίσιο κειμένου Scrolling Marquee στη Microsoft Access "

padstr = " "

txtScroll = textStr & padstr

txtLength = Len ( txtScroll )

iLength = Len ( padstr )

Me.TimerInterval = 500

IPOS = 1

iView = 1

End Sub

5

Δημιουργήστε μια διαδικασία ρουτίνας που θα καλέσει το " moveText " διαδικασία ρουτίνας :

Private Sub Form_Timer ( )

moveText

End Sub

6

Δημιουργήστε το " moveText " διαδικασία ρουτίνας που θα μετακινηθείτε στην πραγματικότητα το κείμενο που εμφανίζεται στο στοιχείο ελέγχου πλαισίου κειμένου :

Private Sub moveText ( )

txtMarqee.SetFocus

txtMarqee.Text = Mid ( txtScroll , δημόσιες εγγραφές, iView )

irem = txtLength - (IPOs + iView - 1 )

Αν (IPOs - 1 ) <( txtLength - iLength ) Στη συνέχεια

Αν iView <20 Και iView

iView iView = + 1

End If

Αν IPOS = 20 τότε

IPOS = ipos + 1

End If

Else

txtMarqee.Text = " "

ipos = 1

iView = 1

End If

End Sub
Η

7 Επιστρέψτε στην Microsoft Access και κάντε κλικ στο εικονίδιο "Προβολή" για να τρέξει το πρόγραμμα. Το κείμενο που ορίζεται στο βήμα τέσσερα θα αρχίσει να μετακινηθείτε μέσα στο πλαίσιο κειμένου .
Η
εικόνων