15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

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

Добавляем невидимое меню к контролу с одним или более пунктов. Эти пункты будут оставаться невидимыми до тех пор пока они не понадобятся. Добавляем метод 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