default value для property

[RuslanG]

Есть следующее свойство

Public Property Get ConnectionString() As String
ConnectionString = ConStr
End Property

Public Property Let ConnectionString(ByVal vNewValue As String)
ConStr = vNewValue
PropertyChanged "ConnectionString"
End Property

как сделать для этого свойства значение по умолчанию равное "xxx"?

[alibek]

Либо в Property Get, либо в InitProperties.

[RuslanG]

Private Sub UserControl_InitProperties()
ConnectionString = "xxx'"
End Sub

я так сделал.Это правильно?

[alibek]

Можно и так.
Но лучше ConStr = "xxx"

[RuslanG]

Public Property Let Cond(ByVal vNewValue As Integer)
Condition = vNewValue
RaiseEvent TestEvent
PropertyChanged "Cond"
End Property

например есть такой код. в нам вызывается событие TestEvent
как написать обработчик для этого события?

[vvs_adm]

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

Dim WithEvents

[RuslanG]

Можно и так.
Но лучше ConStr = "xxx"

а в куда в программе вставить такой код ConStr = "xxx"?
просто когда я вставляю сразу после объявления переменной ConStr, то возникает ошибка компиляции

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6626262#6626262