3
Февраль
2009
Как выделить полужирным пункт в меню?
Как выделить полужирным пункт в меню?
В Menu Editor создаем меню mnuFile, делаем его не видимым.
Чтобы получить контекстное меню.
В mnuFile делаем 2 подпункта mnuFirst и mnuSecond.
По щелчку правой кнопкой на форме появится меню.
Option Explicit
Private Sub Form_MouseDown _
(Button As Integer, Shift As Integer, X As Single, Y As Single)
'mnuSecond - задает тот пункт в меню, который будет
'изображатья полужирным шрифтом
'Чтобы проверить замените mnuSecond на mnuFirst
If Button And vbRightButton Then _
PopupMenu mnuFile, , X, Y, mnuSecond
End Sub