ExternalMenuItem - Получить строку меню для создания меню в виде строк
guide
api7
guide
api7
externalmenuitem
externalmenuitem.html
*Создание прикладных библиотек > Оформление прикладных библиотек типа ActiveX > Пример простейшей программы в среде VB, оформленной в виде ActiveX библиотеки КОМПАС > Функции *
ExternalMenuItem - Получить строку меню для создания меню в виде строк
Пример...
TAutoString ExternalMenuItem (short number,
short * itemType,
short * command);
Синтаксис Visual Basic:
Public Function ExternalMenuItem (ByVal number As Integer,
itemType As Integer,
command As Integer) As String
Параметры:
number - счетчик строк
itemType - тип строки
(0 - SEPARATOR (разделитель);
1 - MENUITEM (строка с названием пункта меню);
2 - POPUP (начало выпадающего подменю);
3 (или любое другое число) - ENDMENU (конец меню\подменю).
command - номер команды, если itemType = 1,
или -1 во всех остальных случаях
Пример использования функции ExternalMenuItem
Public Function ExternalMenuItem(ByVal number As Integer, itemType As Integer, command As Integer) As String
itemType = 3 '"ENDMENU"'
ExternalMenuItem = ""
command = -1
Select Case number
Case 1
itemType = 1 'MENUITEM'
ExternalMenuItem = "Создать деталь"
command = 1
Case 2
itemType = 2 'POPUP'
ExternalMenuItem = "Выпадающее меню_1"
command = -1
Case 3
itemType = 1 'MENUITEM'
ExternalMenuItem = "Деталь с фасками"
command = 2
Case 4
itemType = 0 'SEPARATOR'
ExternalMenuItem = ""
command = -1
Case 5
itemType = 1 'MENUITEM'
ExternalMenuItem = "Команда_3"
command = 3
Case 6
itemType = 3 'ENDMENU'
ExternalMenuItem = ""
command = -1
Case 7
itemType = 2 '"POPUP"'
ExternalMenuItem = "Выпадающее меню_2"
command = -1
Case 8
itemType = 1 '"MENUITEM"'
ExternalMenuItem = "Команда_4"
command = 4
Case 9
itemType = 3 '"ENDMENU"'
ExternalMenuItem = ""
command = -1
End Select
End Function
mikhail
e1337e4016