K
KLif
Всем привет. Вообщем такая проблема ... на форме есть richtext, в нём находится всякая ерунда: картинки, доки и т.д.
Нужно узнать размер этого richtext ...
Forall item In uidoc.Document.Items
If item.Name = "Attach_Body" Then
l = item.ValueLength
End If
End Forall
В итоге l = 0, но если я таким же способом переберу все поля, то получу опр значение, после чего добавлю в свой RichText какой-нибудь док, то значение увеличится ...
Ещё один способ:
Set rt = New NotesRichTextItem(uidoc.Document, "Attach_Body")
Msgbox(rt.ValueLength)
при этом, чтобы не лежало на richtext сообщение всегда - "2"
Нужно узнать размер этого richtext ...
Forall item In uidoc.Document.Items
If item.Name = "Attach_Body" Then
l = item.ValueLength
End If
End Forall
В итоге l = 0, но если я таким же способом переберу все поля, то получу опр значение, после чего добавлю в свой RichText какой-нибудь док, то значение увеличится ...
Ещё один способ:
Set rt = New NotesRichTextItem(uidoc.Document, "Attach_Body")
Msgbox(rt.ValueLength)
при этом, чтобы не лежало на richtext сообщение всегда - "2"