Πώς να χρησιμοποιήσετε τη γραμμή κύλισης με το πλαίσιο λίστας στη Visual Basic 6.0

Το στοιχείο ελέγχου πλαισίου λίστας που χρησιμοποιείται στη Visual Basic δεν περιλαμβάνει κύλισης όπως ισχύει ιδιότητες , όπως κάνουν άλλοι έλεγχοι . Όταν οι γραμμές του κειμένου μέσα σε ένα πλαίσιο λίστας ξεπερνά το ύψος του πλαισίου λίστας , μια κάθετη κύλισης προστίθεται αυτόματα . Οριζόντια κύλισης εμφανίζονται όταν οι γραμμές είναι μεγαλύτερο από το πλάτος του πλαισίου λίστας σε ένα ειδικό τύπο ListBox που περιλαμβάνει στήλες. Η κατακόρυφη κύλισης προσθέτει κάποια λειτουργικότητα της οθόνης όταν το πρόγραμμα περιλαμβάνει τη σωστή συναφείς κωδικοποίησης . Οδηγίες
Η

1 Ανοίξτε το Visual Basic 6.0 λογισμικό και κάντε κλικ στο "Αρχείο " και στη συνέχεια "New Project . Χρησιμοποιήστε το πρότυπο « Standard EXE » για αυτό το παράδειγμα . Αποθηκεύστε το έργο κάνοντας κλικ στο " Αρχείο ", ακολουθούμενο από το " Save Project As" και να αποθηκεύσετε τη φόρμα ως " ScrollbarUse » και του έργου ως " Scroll Bar χρήσης". 2

Προσθέστε δύο στοιχεία ελέγχου πλαισίου λίστας στη φόρμα με διπλό κλικ δύο φορές σε αυτό το στοιχείο ελέγχου στην εργαλειοθήκη . Τακτοποιήστε τα δύο κουτιά , ώστε να είναι δίπλα-δίπλα . Κάντε κλικ στο πρώτο πλαίσιο λίστας επισημαίνονται List1 να δείξει τις ιδιότητες στη δεξιά πλευρά της οθόνης . Κάντε διπλό κλικ στο " Λίστα " περιουσία και να αντικαταστήσετε την προεπιλεγμένη ρύθμιση " ( List ) " με το " Number ". Αλλάξτε τις ιδιότητες Ύψος τόσο List1 και List2 στο " 1230 " και το πλάτος ιδιότητες τόσο 1215 . Κάντε διπλό κλικ στο CommandButtonστοιχείο ελέγχου στην Εργαλειοθήκη για να το προσθέσετε στη φόρμα . Αλλάξτε την ιδιότητα Caption του το κουμπί "Exit ".
Εικόνων 3

Συγχρονισμός και πλαίσιο λίστας ελέγχει έτσι ώστε όταν ο χρήστης κάνει κύλιση προς τα κάτω σε ένα , η αντίστοιχη γραμμή στην άλλη ακολουθεί . Κάνετε αυτό πληκτρολογώντας τον κωδικό που αναφέρονται παρακάτω . Σημείωση : Οι αριθμοί επιλέγονται για την πλήρωση δύο ρυθμιστές πλαίσιο λίστας γρήγορα με περισσότερες γραμμές από το μέγεθος επιλεγεί στο βήμα 2 μπορεί να χωρέσει . Διαφορετικά, η κύλισης δεν θα εμφανιστεί . Το σύμβολο " ^ " υπολογίζει τον κύβο του κάθε αριθμού .

Private Sub Form_Load ( ) Dim i, n , x Όπως IntegerFor i = 1 Για να επιλέξετε 15List1.AddItem ( i , " 1 " , " 2 " ? , " 3 " , " 4 " , " 5 " , " 6 " , " 7 ", " 8 " , " 9 ", " 10 ", " 11 ", " 12 " ? , " 13 ", " 14 ", " 15 " ) NextFor n = 1 για να επιλέξει 15List2.AddItem (n, 1 ^ 3 , 2 ^ 3 , 3 ^ 3 , 4 ^ 3 , 5 ^ 3 , 6 ^ 3 , 7 ^ 3 , 8 ^ 3 , 9 ^ 3 , 10 ^ 3 , 11 ^ 3 , 12 ^ 3 , 13 ^ 3 , 14 ^ 3 , 15 ^ 3 ) ΕπόμενοΤέλος SubPrivate Sub List1_click ( ) List1.TopIndex = List2 . TopIndexList1.ListIndex = List2.ListIndexEnd SubPrivate Sub List2_click ( ) List2.TopIndex = List1.TopIndexList2.ListIndex = List1.ListIndexEnd SubPrivate Sub List1_Scroll ( ) List2.TopIndex = List1.TopIndexEnd SubPrivate Sub List2_scroll ( ) List1.TopIndex = List2.TopIndexEnd SubPrivate Sub Command1_Click ( ) EndEnd Sub
Η

4 Πατήστε το πλήκτρο " F5 " για να τρέξει αυτό το πρόγραμμα και σημειώστε όταν μετακινείτε το κύλισης στον πρώτο κατάλογο κάτω, τα ταιριάζουν κύβος κύλιση αποτέλεσμα , καθώς και . Μπορείτε να δείξετε ένα χρήσιμο τέχνασμα με κύλισης σε ένα πλαίσιο λίστας , κλείνοντας το πρόγραμμα με το "Exit" τον έλεγχο , ενώ θα επανέλθει στην προβολή φόρμας σε Visual Basic . Κάντε κλικ στο " Cube" πλαισίου λίστας και σύρετε πάνω ώστε να καλύπτει μέρος της δεξιάς πλευράς του "Number " πλαίσιο λίστας . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε ξανά το πρόγραμμα . Τώρα φαίνεται ένας έλεγχος διέπει τις ενέργειες και των δύο κουτιά .
5

Αλλαγή της ιδιότητας Στήλες του αριθμού πλαισίου λίστας από το " 0" έως " 1 . " Αντικαταστήστε τον τελευταίο αριθμό στη γραμμή 4 του βήματος 3 διαβάσετε " αυτό είναι μια πολύ μεγάλη πρόταση για να καταστεί δυνατή η οριζόντια γραμμή κύλισης . " Πατήστε " F5 " ξανά για να δείτε το αποτέλεσμα με μια οριζόντια κύλισης .
Η
εικόνων