? Una barra degli strumenti di controllo in un'applicazione Visual Basic in grado di semplificare le attività per l' utente se l' applicazione dispone di molte funzioni . Creare barre degli strumenti utilizzando il " ToolBarButton Classe " nel testo di base e aggiungere visiva o immagini ai pulsanti per una maggiore chiarezza . Dopo aver aggiunto i pulsanti , creare un evento click che esegue il codice corretto quando viene cliccato. Pulsanti della barra degli strumenti offrono all'utente un modo rapido per eseguire funzioni comuni come l'apertura , il salvataggio o la stampa di un file . Istruzioni
1

lancio di Microsoft Visual Basic Express , fare clic sul menu " File " e selezionare "Nuovo progetto" per visualizzare la finestra di dialogo "Nuovo progetto" . Fare doppio clic su " Applicazione Windows Form " per creare un nuovo progetto Windows Form. .
2

pulsante destro del mouse il modulo e fare clic su " Visualizza codice " per aprire la finestra di Visual Basic . Fare clic sulla casella a discesa che mostra " Form1 ", quindi " Form1 Events ". Scorrere verso il basso e fare doppio clic su "Carica " dalla casella a discesa "dichiarazioni" per il diritto di creare una procedura di " Load" per il modulo.
3

Copia e incolla il seguente codice per creare una " toolbar" oggetto :

Dim mytoolbar Come nuova barra degli strumenti ( ) economici 4

Copia e incolla il codice seguente per definire il testo visualizzato sul pulsante e aggiungerlo "Barra degli strumenti " oggetto :

toolBarBtn.Text = "Pulsante"

myToolBar.Buttons.Add ( toolBarBtn ) per

Controls.Add ( mytoolbar ) per < br > 5

Copia e incolla il seguente codice per creare un delegato del gestore eventi per eseguire il codice quando si fa clic sul pulsante :

AddHandler myToolBar.ButtonClick , AddressOf Me.myToolBar_ButtonClick
6 < p > Copia e incolla il seguente codice da eseguire quando si fa clic sul pulsante della barra :

private Sub myToolBar_ButtonClick ( ByVal sender As Object , _

ByVal e As ToolBarButtonClickEventArgs ) per

Select Case myToolBar.Buttons.IndexOf ( e.Button ) per

caso 0

MsgBox ( "Barra degli strumenti pulsante è stato cliccato " ) per

End Select

End sub
7

Fare clic sul menu "Debug" , quindi "Avvia Debug " per eseguire il programma . Fare clic sul pulsante di barra degli strumenti per visualizzare una finestra di messaggio che il pulsante è stato cliccato .