| Вопрос: Кнопка с выпадающим меню | Добавлено: 18.03.05 00:47 |
Автор вопроса:  dimoon | Web-сайт: dimoon.by.ru
|
| Вот требуется такая кнопка в toolbar программы (как в тулбаре IE - чтение почты, создать сообщение, etc). в vb есть похожая фича - buttonmenus - но это не совсем то, там для появления меню надо кликать по отдельному месту справа... в общем я сам попробовал написать подобное, но есть баг - незнаю как оперативно узнать, что кнопка потеряла фокус... может подскажите? :) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #1 | Добавлено: 18.03.05 15:05 |
|
С такой задачей справится чекбокс в графическом режиме плюс попап меню с привязкой к координатам чекбокса.
Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Check1 = 0 Then Me.PopupMenu pop, , Check1.Left, Check1.Top + Check1.Height Else pop.Visible = False End If End Sub Private Sub Timer1_Timer() If pop.Visible = False Then Check1 = 0 End Sub |
||
Страница: 1 |