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

[Sirik]

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

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

[Atoman]

Код: Выделить всё

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]

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

[HKEY_SUPER_MASHINE]

В контроле:

Код: Выделить всё

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]

Вообще-то 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]

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

Так что делай как написал Andrey Fedorov.