Using toobar buttons in select case

[pjslevin]

I am using vb.net 2003. I have set up a toolbar on a form. I would like to set up select case code to execute code based on the toolbar button clicked. I get an error when trying to run my code that says I can't use e.button is the select statement. How can I retrieve the index number of the toolbar button clicked so I can use it in a select case?

 

[mentalhard]

use the Tag property. Assign tag value to each Toolbar button and then inside the click event handler do something like following:

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Select Case DirectCast(sender, ToolStripButton).Tag

            Case "tagvalue"
                ' do something
            Case "tagvalue2"
                'etc
        End Select
    End Sub

 

[JuggaloBrotha]

In VS 2003 I used the index value of e.button:

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0 'New Group
                mnuNewGroup.PerformClick()
            Case 1 'Rename Group
                mnuRenameGroup.PerformClick()
            Case 2 'Delete Group
                mnuDeleteGroup.PerformClick()
            Case 3 'Spacer1
            Case 4 'Add Card
                mnuAddCard.PerformClick()
            Case 5 'Edit Card
                mnuEditCard.PerformClick()
            Case 6 'Delete Card
                mnuDeleteCard.PerformClick()
            Case 7 'Spacer2
            Case 8
                mnuExit.PerformClick()
            Case Else
                MessageBox.Show("Invalid Button", "Invalid Button", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Select
    End Sub

 

[jmcilhinney]

Or you just don't use a Select Case at all:

If e.Button Is Me.saveButton Then
    'Save
ElseIf e.Button Is Me.openButton Then
    'Open
End If