Релиб / Программирование / .NET / VB.NET / Как правильно обработать события в ToolBar на VB.NET / Latest Posts

RE: Как правильно обработать события в ToolBar на VB.NET

Oleg — Mon, 02 Feb 2004 06:02:00 GMT

Прошу большое прощение, что заварил эту кашу.
По непонятным причинам раньше действительно не работало.
Код не сохранен, но вроде все делал именно так, как и вы все советуете.
Потом нашел свое решение через TEG (см. выше)
А сегодня опять попробовал обратиться к бутонам по имени. Все получилось, компилятор молчит.
В чем было дело не знаю.
Странно все это...
Еще раз прошу прощения.

RE: Как правильно обработать события в ToolBar на VB.NET

mamba2000 — Fri, 30 Jan 2004 15:32:00 GMT

Не дожидаясь попробовал
[code]
If e.Button Is Me.ToolBarButton1 Then
MessageBox.Show("b1")
End If
If e.Button Is Me.ToolBarButton2 Then
MessageBox.Show("b2")
End If
If e.Button Is Me.ToolBarButton3 Then
MessageBox.Show("b3")
End If
[/code]
работает замечательно

RE: Как правильно обработать события в ToolBar на VB.NET

mamba2000 — Fri, 30 Jan 2004 15:26:00 GMT

Сообщение компилятора в студию

RE: Как правильно обработать события в ToolBar на VB.NET

Oleg — Fri, 30 Jan 2004 05:48:00 GMT

На такую строку компилятор ругается...

RE: Как правильно обработать события в ToolBar на VB.NET

mamba2000 — Thu, 29 Jan 2004 15:12:00 GMT

If e.Button is ToolBarButton1

Компилятор вроде этого поросил

RE: Как правильно обработать события в ToolBar на VB.NET

dilex — Thu, 22 Jan 2004 13:38:00 GMT

Олегу...
Вы написали:
"Но по моему есть один недостаток.
Кнопки нельзя менять местами.
Можно ли как то обращаться к именам кнопок?"

В моем примере вы обращаетесь к именам кнопок, хоть возможно и не самым красивым способоб. Вы осуществляете Case не по значениям индексов. Но вам решать.

RE: Как правильно обработать события в ToolBar на VB.NET

Oleg — Thu, 22 Jan 2004 06:10:00 GMT

Алексею...
Чем Ваш пример отличается от выше приведенного?
Я нашел способ, который обрабатывает кнопки, даже если их переставишь местами.
Для этого надо в каждой кнопке прописать TEG
А далее делаем так:

Private Sub MainToolBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles MainToolBar.ButtonClick

If e.Button.Tag = "ИмяТэга1" Then
........
elseif e.Button.Tag = "ИмяТэга2" Then
..........
End If

End Sub

Мне показалось так будет лучше...
Есть другие мнения?

RE: Как правильно обработать события в ToolBar на VB.NET

dilex — Wed, 21 Jan 2004 21:21:00 GMT

Я, например, попробовал во так:
...
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case ToolBar1.Buttons.IndexOf(ToolBarButton1)
MessageBox.Show("1")
Case ToolBar1.Buttons.IndexOf(ToolBarButton2)
MessageBox.Show("2")
Case ToolBar1.Buttons.IndexOf(ToolBarButton3)
MessageBox.Show("3")
End Select
...

Наверно есть способ и проще :)
С уважением, Алексей.

RE: Как правильно обработать события в ToolBar на VB.NET

Oleg — Tue, 20 Jan 2004 06:06:00 GMT

Да действительно работает.
Но по моему есть один недостаток.
Кнопки нельзя менять местами.
Можно ли как то обращаться к именам кнопок?

RE: Как правильно обработать события в ToolBar на VB.NET

Olya_G — Mon, 19 Jan 2004 13:40:00 GMT

Protected Sub ToolBar1_ButtonClick(ByVal sender As Object, _
ByVal e As ToolBarButtonClickEventArgs)
' Evaluate the Button property of the ToolBarButtonClickEventArgs
' to determine which button was clicked.
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
MessageBox.Show("First toolbar button clicked")
Case 1
MessageBox.Show("Second toolbar button clicked")
Case 2
MessageBox.Show("Third toolbar button clicked")
End Select
End Sub