Firing Toolbar ButtonClick Event manually

  • Thread starter Thread starter Brian Mitchell
  • Start date Start date
B

Brian Mitchell

How do you fire a toolbar ButtonClick event manually (for a specified
button)?

I have a toolbar with 4 buttons on it and I want to fire one of the button
events when the user clicks a different button on the form.

The event for the toolbar looks like this...

Private Sub tbUsers_ButtonClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ToolBarButtonClickEventArgs) Handles
tbUsers.ButtonClick
Select Case e.Button.Text

Case "WhateverTheText"
....
....
....

End Select

End Sub


When I try to fire the event manually and pass a value for e.button.text, I
get an error "Value 'Boolean' cannot be converted to
ToolBarButtonClickEventArgs"

ie..

Public Sub Button
tbUsers_ButtonClick(Me, e.Button.Text="WhateverTheText")
End Sub


Is there some other special way I have to specify what button event I want
fired?

Thanks!!
 
* "Brian Mitchell said:
I have a toolbar with 4 buttons on it and I want to fire one of the button
events when the user clicks a different button on the form.

The event for the toolbar looks like this...

Private Sub tbUsers_ButtonClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ToolBarButtonClickEventArgs) Handles
tbUsers.ButtonClick
Select Case e.Button.Text

Case "WhateverTheText"
....
....
....

End Select

End Sub


When I try to fire the event manually and pass a value for e.button.text, I
get an error "Value 'Boolean' cannot be converted to
ToolBarButtonClickEventArgs"
Click to expand...

Why not place the code which should be executed on button click in a
separate procedure and call this procedure directly?
 
The problem is that you're trying to pass in a boolean expression
(e.Button.Text="WhateverTheText" does not set anything in this context, it
is simply true or false) where you should be passing a
ToolBarButtonClickEventArgs object. Try the following...

Dim e As ToolBarButtonClickEventArgs
e.Button = tbUsers.Buttons(index of button to click)
tbUsers_ButtonClick(Me, e)
 
Thank You all for the suggestions.

Scott said:
The problem is that you're trying to pass in a boolean expression
(e.Button.Text="WhateverTheText" does not set anything in this context, it
is simply true or false) where you should be passing a
ToolBarButtonClickEventArgs object. Try the following...

Dim e As ToolBarButtonClickEventArgs
e.Button = tbUsers.Buttons(index of button to click)
tbUsers_ButtonClick(Me, e)


e.button.text,
Click to expand...
 
Back
Top