Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να Μετακινηθείτε ένα κείμενο σε VB.Net

Κύλιση κειμένου σε ένα στοιχείο ελέγχου , χρησιμοποιώντας το Visual Basic.NET δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . Για να μετακινηθείτε κείμενο , εσείς πρόκειται να πρέπει να εκτελέσει ένα τμήμα του κώδικα πολλές φορές . Ο καλύτερος τρόπος να γίνει αυτό είναι με τη χρήση ενός " Timer" ελέγχου στην εφαρμογή σας . Μπορείτε να ξεκινήσετε ένα χρονόμετρο για να εκτελέσει κώδικα σας μέχρι το χρονόμετρο σταματά . Η "Timer " ελέγχου είναι αόρατη στο χρήστη , και είναι συνήθως χρησιμοποιούνται για την επεξεργασία φόντο . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου , για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " Χρονόμετρο " για να προσθέσετε ένα χρονόμετρο στη φόρμα σας . Κάντε διπλό κλικ στο " Ετικέτα " για να προσθέσετε μια νέα ετικέτα στη φόρμα σας . Προσθέσετε ένα κουμπί χρησιμοποιώντας την ίδια τεχνική . . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ σε αυτό το κουμπί για
εικόνων 3

αντιγραφή και επικόλληση του παρακάτω κώδικα μέσα στο κουμπί κάντε κλικ στο συμβάν :

Για δείκτες As Integer = 0 να UBound ( textString )

Dim workedString As String = " "

workedString = scrollText.Substring ( index ) & "" & scrollText.Substring ( 0 , index )

textString ( index ) = workedString

Επόμενο

Timer1.Interval = 75

Timer1.Enabled = True

Timer1.Start ( )
Φτηνές 4

Επιστρέψτε στην προβολή σχεδίασης φόρμας και κάντε διπλό κλικ στο " Timer1 " για να δημιουργήσετε ένα συμβάν τσιμπούρι για το χρονοδιακόπτη . Προσθέστε τον ακόλουθο κώδικα στο εσωτερικό της εκδήλωσης :

XPOS + = 1

Dim tmrStr Όπως String

tmrStr = textString ( XPOS )

Label1.Text = tmrStr

Αν XPOS = UBound ( textString ) Στη συνέχεια XPOS = -1
5

Πατήστε το " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 " για να εμφανιστεί το κυλιόμενο κείμενο χρησιμοποιώντας την ετικέτα .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα