Добавить иконки к библиотеке ActiveX в КОМПАСе 18.1

Автор ainis, 20.11.19, 14:30:40

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

ainis

На рисунке скомпилированная и подключенная библиотека Step1 из примеров КОМПАСа 18.1.
Меню.png
Хотелось бы подключить иконки к ее командам.
Насколько я понял, нужно использовать функцию ExternalGetImage:
Public Function ExternalGetImage(ByVal command As Integer, enableDelete As Integer) As OLE_HANDLE

Select Case command

Case 1

ExternalGetImage = Image1.Picture.Handle

Case 2

ExternalGetImage = Image2.Picture.Handle

Case 3

ExternalGetImage = Image3.Picture.Handle

Case 4

ExternalGetImage = Image4.Picture.Handle

Case Else

ExternalGetImage = Image5.Picture.Handle

End Select

enableDelete = FALSE

End Function


Примеров ее применения для Visual Basic.NET не нашел. Буду благодарен за любую помощь.

Дмитрий22