Как эмулировать нажатие на ToolBar.ButtonDropDown?

[Oldman]

Есть кнопка с DropDown. Заполнять ее меню я научился...
Но, как сделать, что при нажатии на кнопку (при определенных условиях) разворачивалось и DropDownМеню?
Смысл такой: кнопка отвечает за Вход/Выход пользователя из системы.
Когда пользователь в системе, цвет фона кнопки зеленый. Принажатии на нее, кнопка меняет цвет фона на красный, и произходит выход из системы.
При нажатии на кнопку с красным фоном, должно "выпасть" DropDownМеню (в нем список зарегестрированных пользователей). Юзер выбирает пользователя, выдается диалог на запрос пароля... При успешном вводе пароля, происходит вход в систему, а кнопка "зеленеет"...
Так вот, говоря по-русски, нужно сгенерировать "выпадение" DropDownМеню программно...

[Oldman]

Все, разобрался - "А ларчик просто открывался"
Надо было порсто прописать:

Код: Выделить всё

Dim xy As New Point
xy.X = TBar.Buttons(17).Rectangle.X
xy.Y = TBar.Buttons(17).Rectangle.Y + TBar.Buttons(17).Rectangle.Height
ContextMenu.Show(TBar, xy)


Вот теперь новая проблема.
Меню это создается динамически в процессе работы приложения.
Как теперь отслеживать нажатие пунктов меню?
Не прописывать же руками:

Код: Выделить всё

Me.ContextMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})


, тем более, что я не знаю какие пункты меню существуют в данный момент, тем более сколько их. Все это становится известно во время выполнения программы.
В MSDN (насрать тому в руки, кто его составлял ) ничего не понятно... Куча примеров как добавлять/удалять пункты меню, а как потом к ним доступ получить - ни слова...

[Nord777]

Вот пример решения твоей проблемы

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As Integer
ReDim MI(4)
For x = 0 To 4
MI(x) = New System.Windows.Forms.MenuItem("mi" & x.ToString, AddressOf xClick)
Next
CM = New System.Windows.Forms.ContextMenu(MI)
'Me.ToolBar1.Buttons(0).DropDownMenu = CM 'когда кнопка не одна
Me.ToolBarButton1.DropDownMenu = CM

End Sub

Public Sub xClick(ByVal sender As Object, ByVal e As System.EventArgs)
Dim nn As System.Windows.Forms.MenuItem
nn = sender
MsgBox(nn.Text) ' получаешь текст выбранного пункта меню
End Sub

[Oldman]

Огромное спасибо за код!!!
После некоторых корректировок все пошло!!!!
Главное идея
Еще раз сенкс!!!