VPF::Control's properties - Форум программистов

Bogdan1024

Дата 17.1.2007, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1436
Регистрация: 28.9.2005
Где: Киев

Репутация: нет
Всего: 13

Делаю активХ контрол. Контрол выдаёт мэсэдж при нажатии кнопки на форме. На форме есть эдитбокс, текст которого и выдаётся. Хочу чтобы у контрола было свойство "s", которое бы задавало текст эдитбокса. Пишу:

Код


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Text1.Text = PropBag.ReadProperty("s", "Message!!!")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "s", Text1.Text, "Message!!!"
End Sub

Public Property Let s(setting As String)
    Text1.Text = setting
    PropertyChanged "s"
End Property

Public Property Get s() As String
    s = Text1.Text
End Property

Свойство у контрола типо появляется, но в пропертиз этого контрола его не видно, почему? Как его туда засунуть?

Это сообщение отредактировал(а) Bogdan1024 - 17.1.2007, 16:35

--------------------

Bogdan1024

Дата 17.1.2007, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1436
Регистрация: 28.9.2005
Где: Киев

Репутация: нет
Всего: 13

Всё, я осознал, свойство появляется у контрола если кинуть его на другую форму, например. Но почему-то оно не сохраняется, хотя я и написал PropertyChanged "s". А почему?

--------------------

Bogdan1024

Дата 18.1.2007, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1436
Регистрация: 28.9.2005
Где: Киев

Репутация: нет
Всего: 13

Снова осознал, там в WriteProperties тоже нужно добавить PropertyChanged.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »