PopUp меню при правом нажатии и OnAction

[Avtopic]

Здравствуйте!
У меня такая проблема:
(Excel, Устанавливается правое меню для динамический созданного контроля на форме).
Убираю все кнопки из PopUp меню “Cell” при правом нажатии и вставляю свои кнопки.
Указываю для них OnAction. Все это происходит в модуле класса.

При клике на кнопки этого меню выходит сообщение без комментариев, только крест vbCritical.
При повторной попытке клика, сбой аппликации с сообщением “Send message…”

Если процедура обработки OnAction стоит в обычном модуле, все работает.

Что, в модуле класса нельзя помещать эти процедуры?

[GSerg]

Нет конечно

[Avtopic]

Чтобы не создавать новую тему, в продолжение этой же теми:

Когда создаем меню с помощью Api, в конце DestroyMenu для разрушения меню надо только для главного меню, или подменю тоже надо по отдельности разрушать?

[GSerg]

DestroyMenu is recursive, that is, it will destroy the menu and all its submenus.

[Avtopic]

Читал, не увидел .
Спасибо за ответ!
За предыдущий тоже!

Осмелюсь задать еще вопрос, для моей задачи в тему…
Приходится вызывать разные диалоговые окна. С диалогами ChooseColor и ChooseFont в плане имени шрифта разобрался, а вот, размер шрифта как-то, криво возвращается. Ну что это за логическая единица для lfHeight структуры LOGFONT, которая возвращает вместо 2 – 3, вместо 3 – 5, вместо 8 – 11 и т.д.
Задача единственная как получить то число, которую выбрали в качестве размера шрифта (которая видна визуально).

[GSerg]

lfHeight
Specifies the height, in logical units, of the font's character cell or character. The character height value (also known as the em height) is the character cell height value minus the internal-leading value. The font mapper interprets the value specified in lfHeight in the following manner.

...

For the MM_TEXT mapping mode, you can use the following formula to specify a height for a font with a specified point size:

lfHeight = -MulDiv(PointSize, GetDeviceCaps(hDC, LOGPIXELSY), 72);

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

Public Function ps(ByVal l As Long) As Long
  Dim hdc As Long
 
  hdc = GetDC(0)
  ps = l * 72 / GetDeviceCaps(hdc, LOGPIXELSY)
  ReleaseDC 0, hdc
End Function

? ps(11)
8

[Avtopic]

Это тоже читал, и делал, но получал некруглое число

потом и это прочитал:

Round the calculated point size to the nearest integer.

Но я же не фонт пишу, хочу просто число из Combox-а получить.

Ладно, главное, что от 8 до 72 результат правильный выходит. Спасибо большое!