Een werkbalk controle in een Visual Basic-toepassing kan taken voor de gebruiker eenvoudiger indien de aanvraag heeft vele functies . Maak werkbalken met behulp van de " ToolBarButton Class " in Visual Basic en toevoegen tekst of afbeeldingen op de knoppen voor meer duidelijkheid . Nadat u de knoppen toe te voegen , maakt u een gebeurtenis click dat de juiste code wordt uitgevoerd wanneer het klikte . Werkbalkknoppen geven de gebruiker een snelle manier om veelgebruikte functies zoals het openen , opslaan of afdrukken van een bestand uit te voeren . Instructies
1 Lancering Microsoft Visual Basic Express , klikt u op het menu " File " en selecteer " New Project" op de " New Project" dialoogvenster weer te geven . Dubbelklik op " Windows Forms Application " om een nieuw Forms project Windows te creëren . Kopen van 2 de rechtermuisknop op het formulier en klik op " View Code " om de Visual Basic -venster te openen . Klik op het drop - down box tonen " Form1 " en vervolgens " Form1 Events . " Scroll naar beneden en dubbelklik op "Load " van de " verklaringen " drop - down box om het recht op een " Load " procedure voor het formulier te maken .
Kopieer 3 en plak de volgende code om een " Toolbar " object te maken : Dim myToolBar
als nieuwe werkbalk ( )
Kopieer 4 en plak de volgende code om de tekst op de knop te definiëren en toe te voegen aan de " Toolbar " object : toolBarBtn.Text = " Button " myToolBar.Buttons.Add ( toolBarBtn ) Controls.Add ( myToolBar ) op < br
> Kopieer 5 en plak de volgende code om een event - handler afgevaardigde code kan uitvoeren wanneer de knop wordt geklikt maken:
AddHandler myToolBar.ButtonClick , AddressOf Me.myToolBar_ButtonClick
6 Kopieer en plak de volgende code uit te voeren wanneer de werkbalk knop wordt geklikt : Private Sub myToolBar_ButtonClick ( ByVal afzender als Voorwerp , _
ByVal e als ToolBarButtonClickEventArgs ) op Twitter
Selecteer Case myToolBar.Buttons.IndexOf ( e.Button ) Case 0 MsgBox
( " Werkbalk knop is geklikt " ) End of Selecteer End
sub
7 Klik op het menu " Debug " , vervolgens "Start Debugging " om het programma uit te voeren . Klik op de werkbalk knop om een bericht weer te geven dat de knop werd geklikt .
|
