Τρόπος ενσωμάτωσης μιας γραμμής παρακολούθησης στη Visual Basic: 3 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:39

Εντάξει, έτσι ακούγεται εύκολο, αλλά οι αρχάριοι δεν έχουν καμία ιδέα πώς να το κάνουν αυτό. Οι γραμμές παρακολούθησης μπορούν να είναι χρήσιμα εργαλεία. Από την απόφαση για έναν προϋπολογισμό έως την επιλογή πόσων πυροτεχνημάτων θα εκραγούν, η χρήση των γραμμών τροχιάς είναι πολύ πολύ εύκολη.

ΣΗΜΕΙΩΣΗ: Γνωρίζει κανείς πώς να αυξήσει τον αριθμό των θέσεων σε ένα trackbar; Μπορώ να πάρω μόνο 11…

Βήμα 1: Ετοιμάστε τη φόρμα σας

Αυτό είναι αρκετά εύκολο. Φτιάξτε όταν θέλετε να μοιάζει το πρόγραμμά σας. Δεν κάνω κάτι συγκεκριμένο. Θα φτιάξω κάτι που αλλάζει το χρώμα ενός πλαισίου κειμένου. == Μην ξεχάσετε να προσθέσετε μια γραμμή παρακολούθησης !!! == ^{_{Ναι, πολλοί το ξεχνούν}}

Βήμα 2: Κωδικός

Έτσι, εσείς, κάνατε το περιβάλλον εργασίας χρήστη σας, τώρα τι; Κωδικός φυσικά !! Κάντε διπλό κλικ στη γραμμή παρακολούθησης. Θα πρέπει να εμφανιστούν 2 γραμμές κώδικα. Κάτι όπως:

Private Sub TrackBar1_Scroll (Αποστολέας ByVal Ως System. Object, ByVal e As System. EventArgs) Χειρίζεται TrackBar1. Scroll End SubΤώρα μαθαίνουμε για τις αξίες. Σε αυτό το trackbar μπορούμε να πάρουμε μόνο 11 τιμές, 0-10. Η τιμή 0 είναι η αριστερά, ενώ η τιμή 10 είναι η δεξιά. Το κατάλαβα? Ας προχωρήσουμε.

Για να διευκολυνθεί η ζωή, όλο το κείμενο σε αυτό το βήμα από εδώ και στο εξής θα έχει κώδικα

Μεταξύ των δύο γραμμών κωδικού, πληκτρολογήστε: Τώρα ανάμεσα σε αυτές τις 4 γραμμές κώδικα πληκτρολογήστε τι θέλετε να κάνετε. Σε αυτήν την περίπτωση: TextBox1. BackColor = Color. BlackOnce τελειώσετε και επαναλάβετε αυτό για κάθε μέρος. Όταν τελείωσα, έμοιαζε με αυτό: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Τιμή = 1 Στη συνέχεια TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Στη συνέχεια TextBox1. BackColor = Color. Red End Αν If TrackBar1. Value = 3 Στη συνέχεια TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Στη συνέχεια TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Στη συνέχεια TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Στη συνέχεια TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Τότε TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Στη συνέχεια TextBox1. BackColor = Color. Brown End If TrackBar1. Value = 9 Στη συνέχεια TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Στη συνέχεια TextBox1. BackColor = Color. White End If End Sub

Βήμα 3: Τέλος

Λοιπόν, ήμουν έτσι κι αλλιώς. Εάν δεν έχετε ολοκληρώσει το πρόγραμμά σας, συνεχίστε. Ω, και καλή τύχη! Αλλά για όσους έχουν τελειώσει, καλά, αυτό δεν ήταν πολύ δύσκολο ήταν; Και αν αναρωτιέστε, ο κωδικός για την επαναφορά και το κλείσιμο είναι:

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Click End End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button 1. Κάντε κλικ στο TrackBar1. Value = 0 Τέλος υπο