Please enable JavaScript to view this site.

» Нет разделов более высокого уровня «

Пример использования функции ExternalGetImage

Scroll

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

© ООО «АСКОН-Системы проектирования», 2024. Все права защищены. | Единая телефонная линия: 8-800-700-00-78