---
title: "ExternalGetImage - Получить слайд для команды библиотеки с указанным номером"
type: guide
api: [api7]
tags: [guide, api7, externalgetimage]
sources:
  - 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
