Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Alex_2005
-
- Бывалый
-
-
- Сообщения: 242
- Зарегистрирован: 07.04.2005 (Чт) 17:09
- Откуда: Germany, Baden-Wurttemberg, Bietigheim-Bissingen
-
Alex_2005 » 12.09.2005 (Пн) 15:45
Не могу передать моему 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
Guten Morgen! А если не Guten, то тогда это и не Morgen...
-
coderx
-
- Новичок
-
-
- Сообщения: 29
- Зарегистрирован: 05.09.2005 (Пн) 10:44
- Откуда: Узбекистан
-
coderx » 12.09.2005 (Пн) 17:36
Я экспериментировал текст кода всё нормально же, и в UserControl'е и в picUp'е рисунок отображается. В чём проблема ...
-
AlexBlack
-
- Постоялец
-
-
- Сообщения: 324
- Зарегистрирован: 18.07.2005 (Пн) 19:14
- Откуда: Киефф, Юкрейн...
-
AlexBlack » 12.09.2005 (Пн) 19:45
- Код: Выделить всё
'ACHTUNG! DIE FOLGENDEN KOMMENTIERTEN ZEILEN NICHT ENTFERNEN ODER VERÄNDERN!
'Eigenschaftenwerte in den Speicher schreiben
У тебя стоит немецкая версия VB???
Круто... Роритет....
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 63