Πώς μπορώ να δημιουργήσω ένα κουμπί της γραμμής εργαλείων Χρήση της Visual Basic

; Ένα στοιχείο ελέγχου της γραμμής εργαλείων σε μια εφαρμογή της Visual Basic μπορεί να απλοποιήσει τα καθήκοντα για το χρήστη εάν η αίτηση έχει πολλές λειτουργίες . Δημιουργία εργαλείων που χρησιμοποιούν το " ToolBarButton Class" σε Visual Basic και να προσθέσετε κείμενο ή εικόνες στα κουμπιά για μεγαλύτερη σαφήνεια . Αφού προσθέσετε τα κουμπιά , να δημιουργήσετε ένα συμβάν κλικ που εκτελεί τον κατάλληλο κώδικα , όταν κάνετε κλικ. Toolbar κουμπιά δίνουν στο χρήστη ένα γρήγορο τρόπο για να εκτελέσει κοινές λειτουργίες όπως το άνοιγμα , την αποθήκευση ή την εκτύπωση ενός αρχείου . Οδηγίες
Η 1

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

δεξιό κλικ στη φόρμα και κάντε κλικ στο " Προβολή κώδικα " για να ανοίξει το Visual Basic παράθυρο . Κάντε κλικ στο αναπτυσσόμενο πλαίσιο δείχνει " Form1 , " τότε " Φόρμα1 Events . " Μετακινηθείτε προς τα κάτω και κάντε διπλό κλικ στο "Load " από το " δηλώσεις " drop-down box προς τα δεξιά για να δημιουργήσετε μια διαδικασία "Load " για τη μορφή .
Εικόνων 3

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

Dim myToolBar Ως νέα γραμμή εργαλείων ( )
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να ορίσετε το κείμενο που εμφανίζεται στο κουμπί και προσθέστε το στο η " εργαλείων" αντικείμενο :

toolBarBtn.Text = " κουμπί"

myToolBar.Buttons.Add ( toolBarBtn )

Controls.Add ( myToolBar )

5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα εκπρόσωπο event-handler να εκτελεί κώδικα όταν κάνετε κλικ στο κουμπί :

AddHandler myToolBar.ButtonClick , AddressOf Me.myToolBar_ButtonClick
Η 6

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

Private Sub myToolBar_ButtonClick ( ByVal αποστολέα ως αντικείμενο, _

ByVal e Όπως ToolBarButtonClickEventArgs )

Επιλέξτε την απόφαση myToolBar.Buttons.IndexOf ( e.Button )

υπόθεση 0

MsgBox ( " κουμπί Toolbar έγινε κλικ " )

End Select End

υπο
Η

7 Κάντε κλικ στο μενού " Debug " , στη συνέχεια "Start Debugging " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο κουμπί της γραμμής εργαλείων για να εμφανιστεί ένα πλαίσιο μηνύματος που το κουμπί έχει πατηθεί.
Η
εικόνων