Wie erstelle ich eine Symbolleisten-Schaltfläche mit Visual Basic?

Ein Toolbar-Steuerelement in einem Visual Basic-Anwendung kann Aufgaben für den Benutzer zu vereinfachen, wenn die Anwendung viele Funktionen hat. Erstellen von Symbolleisten, die mit der "ToolBarButton-Klasse" in Visual Basic und fügen Sie Text oder Bilder auf die Schaltflächen für mehr Klarheit. Nachdem Sie die Schaltflächen hinzufügen, erstellen Sie ein Click-Ereignis, das den richtigen Code ausgeführt wird, wenn darauf geklickt wird. Symbolleisten-Schaltflächen bieten dem Nutzer eine schnelle Möglichkeit, gängige Funktionen wie öffnen, speichern oder Drucken einer Datei ausführen.

Anweisungen

1 Starten Sie Microsoft Visual Basic Express zu, klicken Sie im Menü "Datei" und wählen Sie "Neues Projekt" das Fenster "Neues Projekt" Dialog angezeigt. Doppelklicken Sie auf "Windows Forms-Anwendung" auf ein neues Windows Forms-Projekt erstellen.

2 Maustaste auf das Formular, und klicken Sie auf "Code anzeigen", um das Visual Basic-Fenster zu öffnen. Klicken Sie auf das Dropdown-Feld anzeigen "Form1", dann "Form1-Ereignisse." Blättern Sie nach unten, und doppelklicken Sie auf "Load" von "Erklärungen" Dropdown Feld auf der rechten Seite eine "Load"-Prozedur für das Formular erstellt.

3 Kopieren Sie und fügen Sie den folgenden Code zum Erstellen eines Objekts "ToolBar":

Dim MyToolBar als neue ToolBar()

4 Kopieren und fügen Sie den folgenden Code um den Text auf der Schaltfläche angezeigt zu definieren und dem "ToolBar"-Objekt hinzufügen:

toolBarBtn.Text = "Button"

myToolBar.Buttons.Add(toolBarBtn)

Controls.Add(myToolBar)5

Kopieren Sie und fügen Sie den folgenden Code zum Erstellen eines Ereignishandlerdelegaten, Code auszuführen, wenn die Schaltfläche geklickt wird:

AddHandler myToolBar.ButtonClick, AddressOf Me.myToolBar_ButtonClick

6 Kopieren Sie und fügen Sie den folgenden Code ausführen, wenn die Symbolleisten-Schaltfläche geklickt wird:

Private Sub MyToolBarButtonClick (ByVal Sender As Object,

ByVal e As ToolBarButtonClickEventArgs)

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

Case 0

MsgBox("Toolbar button was clicked")

End Select

EndSub

7 Klicken Sie im Menü "Debug", dann "Start Debugging" um das Programm auszuführen. Klicken Sie auf Symbolleiste, um ein Meldungsfeld angezeigt, dass die Schaltfläche geklickt wurde.