UserControl.Picture - не идёт!

[Alex_2005]

Не могу передать моему UserCOntrol картинку. В чём может быть дело? Вот код, может кому не лень , подскажет кде ошибка зарыта.

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


Private Type typMyPrivateProperties
    Picture_Up As StdPicture
End Type

Private My As typMyPrivateProperties

'UserControl.Picture = picUp.Picture
Private Sub UserControlPicture_Up()
    Set picUp.Picture = Picture_Up
    Set UserControl.Picture = Picture_Up
    UserControl.Refresh
End Sub

Private Sub UserControlResizing()
    UserControl.Width = picUp.Width
    UserControl.Height = picUp.Height
End Sub

Private Sub UserControl_Resize()
    Call UserControlResizing
End Sub

'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'MappingInfo=picUp,picUp,-1,Picture
Public Property Get Picture_Up() As StdPicture
    Set Picture_Up = My.Picture_Up
End Property

Public Property Set Picture_Up(ByVal New_Picture_Up As StdPicture)
    Set My.Picture_Up = New_Picture_Up
    PropertyChanged "Picture_Up"
    Call UserControlPicture_Up
    Call UserControlResizing
End Property

'Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Set StdPicture = PropBag.ReadProperty("Picture_Up", Nothing)
End Sub

'Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Picture_Up", StdPicture, Nothing)
End Sub


[coderx]

Я экспериментировал текст кода всё нормально же, и в UserControl'е и в picUp'е рисунок отображается. В чём проблема ...

[AlexBlack]

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

'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'Eigenschaftenwerte in den Speicher schreiben

У тебя стоит немецкая версия VB???
Круто... Роритет....