Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Как добавить всплывающее меню к элементу управления

Создавая собственные элементы управления с менюшками делает их более профессиональными. Всплывающие меню упрощают работу с контролами, а также прибавляют функциональности. Итак, посмотрим, как это делается:

Добавляем невидимое меню к контролу с одним или более пунктов. Эти пункты будут оставаться невидимыми до тех пор пока они не понадобятся. Добавляем метод PopupMenu в событие контрола MouseDown. Код должен соответствовать примерно следующему:

     Private Sub UserControl_MouseDown(Button As Integer, Shift 
As Integer, X As Single, Y As Single)
         On Error GoTo Routine_Error

         If Button = vbRightButton Then PopupMenu mnuFile    
'mnuFile это имя невидимого основного меню

     Routine_Error:
         If Err.Number <> 0 Then MsgBox Err.Description, 
vbInformation, Err.Source
     End Sub

 

 


Основные разделы сайта


 

Реклама