ExternalGetImage - Получить слайд для команды библиотеки с указанным номером
guide
api7
guide
api7
externalgetimage
externalgetimage.html
*Создание прикладных библиотек > Оформление прикладных библиотек типа ActiveX > Пример простейшей программы в среде VB, оформленной в виде ActiveX библиотеки КОМПАС > Функции *
ExternalGetImage - Получить слайд для команды библиотеки с указанным номером
OLE_HANDLE ExternalGetImage (short command,
short * enableDelete);
Синтаксис Visual Basic:
Public Function ExternalGetImage (ByVal command As Integer,
enableDelete As Integer) As OLE_HANDLE
Параметры:
command - номер команды
enableDelete - признак удаления слайда (TRUE - удалять)
Пример...
Пример использования функции 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
mikhail
e1337e4016