Свойство контрола

Создание, использование компонентов ActiveX
Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Свойство контрола

Сообщение Sirik » 13.02.2008 (Ср) 18:22

Доброго дня, столкнулся с одной проблеммой: надо в ActiveX котрол передать картинку, вот так не работает, т.е. компилируеться, но при выборе кртинки, выдаёт ошибку

Код:
Public Property Get pic1() As Picture
...
End Property

Atoman
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 109
Зарегистрирован: 01.02.2008 (Пт) 6:36

Сообщение Atoman » 13.02.2008 (Ср) 18:29

Код: Выделить всё
Public Property Get pic1() As Picture
    Set pic1 = MyPicture
End Property

Public Property Set pic1(ByVal pic As Picture)
    Set MyPicture = pic
End Property

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Сообщение Sirik » 14.02.2008 (Чт) 9:41

ошибка прив загрузки картинки:
Изображение

HKEY_SUPER_MASHINE
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 78
Зарегистрирован: 02.07.2008 (Ср) 12:17
Откуда: Тольятти, школа, случайно

Сообщение HKEY_SUPER_MASHINE » 16.07.2008 (Ср) 12:16

В контроле:
Код: Выделить всё
Public Property Get pic1() As String
    pic1 = MyPicture.Picture
End Property

Public Property Set pic1(ByVal pic As String)
    MyPicture.Picture = pic
End Propert

В программе:
Код: Выделить всё
FormPicture.Picture = MyControl.pic1

или
Код: Выделить всё
MyControl.pic1 = FormPicture.Picture
Чипсы оставляют неприятный осадок в желудке
Их состав оставляет неприятный осадок в душе

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 16.07.2008 (Ср) 16:49

Вообще-то Picture это не строка...

Код: Выделить всё
Public Property Get pic1() As StdPicture
    Set pic1 = MyPicture.Picture
End Property

Public Property Set pic1(pic As StdPicture)
    Set MyPicture.Picture = pic
End Propert


Дальше сообразишь?
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 16.07.2008 (Ср) 17:34

Причина ошибки в том, что стандартные VBшные контролы приватны, их нельзя передавать как параметры или возвращаемые значения публичных методов публичных классов.

Так что делай как написал Andrey Fedorov.
Лучший способ понять что-то самому — объяснить это другому.


Вернуться в Компоненты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList