| Вопрос: ActiveX | Добавлено: 19.11.06 16:23 |
Автор вопроса:  Leha
|
| Вобщем такая ситуация - создал контрол на основе стандартного текстового поля. Как сделать чтобы текст вбиваемые в этот контролна этапе проектирование сохранялся и отображался при запуске? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 19.11.06 17:03 |
|
UserControl с Text1
Private txt As String Public Property Get Text() As String Text = txt End Property Public Property Let Text(ByVal New_Text As String) txt = New_Text PropertyChanged "Text" Call Update End Property Private Sub UserControl_ReadProperties(PropBag As PropertyBag) txt = PropBag.ReadProperty("Text", "" 
End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("Text", txt, ""
End Sub Public Sub Update() Text1 = txt End Sub Private Sub UserControl_Show() Call Update End Sub |
||
|
Номер ответа: 2 Автор ответа: Leha Вопросов: 37 Ответов: 68 |
Профиль | | #2 | Добавлено: 19.11.06 17:22 |
|
Насколько я понимаю PropertyСhanged должно вызывать UserControl_WriteProperties а у меня нифига
тоесть UserControl_WriteProperties вообще не вызывается (я туда даже мсджбокс запихнул для проверки) |
||
|
Номер ответа: 3 Автор ответа: LehaВопросов: 37 Ответов: 68 |
Профиль | | #3 | Добавлено: 19.11.06 17:32 |
|
все, заработало.
Спасибо большое 
|
||
Страница: 1 |