Отправлено: 26.04.07 09:50. Заголовок: Custom Properties

АЙ НИД ХЭЛП! Каким образом их ВБА в модель можно добавить поле в КАСТОМ ПРОПЕРТИЗ? ХЭЛП МИ ПЛИЗ!

 Отправлено: 26.04.07 11:22. Заголовок: Re:

Function SetRazCrossAttr(oCompOcc As ComponentOccurrence, oRazType As String, Raz As String) As Boolean 'xxxxxxxxxxxxxxxxxxx
Dim Name As String
Dim oPropSet As PropertySet
Dim oPropMy As Property

If ThisVersion >= 11 Then
If oCompOcc.Definition.Type = kVirtualComponentDefinitionObject Then
Set oPropSets = oCompOcc.Definition.PropertySets
Else
Set oPropSets = oCompOcc.Definition.Document.PropertySets
End If
Else
Set oPropSets = oCompOcc.Definition.Document.PropertySets
End If

Set oPropSet = oPropSets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") ' Custom Property

For Each oPropMy In oPropSet ' пробежим по всем Custom Property , вдруг такое имя уже есть - тогда изменим только ее величину
Name = oPropMy.Name
If Name = oRazType Then

If Not oPropMy.Value Like Raz Then
oPropMy.Value = Raz
SetRazCrossAttr = True
Else
SetRazCrossAttr = False
End If
Exit Function
End If
Next

On Error Resume Next

oPropSet.Add Raz, oRazType
If err Then
SetRazCrossAttr = False
err.Clear
Exit Function
Else
SetRazCrossAttr = True
End If
End Function

 Отправлено: 26.04.07 11:55. Заголовок: Re:

Спасибо! Огромное!