Привет народ!!!
Вопрос есть такой....
Еа листе Визио есть объект, у этого объекта есть определённое колличество Custom Properties... Как с помощью VB узнать их колличество?
Эти проперти вытащить-то я могу, но вот когда чтавишь вытаскивание их в цикл и при возникновении ошибки продолжение работы (т.е. программа обращается к проперти №8, а её нету, их всего 7, она выдаёт ошибку)
Вот примерный код:
Sub NewSub()
Dim appVisio As Visio.Application
Dim docsObj As Visio.Documents
Dim docObj As Visio.Document
Dim stnObj As Visio.Document
Dim mastObj As Visio.Master
Dim pagsObj As Visio.Pages
Dim pagObj As Visio.Page
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell
Dim s As String, i As Integer, j As Integer
Set appVisio = CreateObject("visio.application")
Set docsObj = appVisio.Documents
Set docObj = docsObj.Add(App.Path & "\Template.vsd")
Set pagsObj = appVisio.ActiveDocument.Pages
Set pagObj = pagsObj.Item(1)
Set stnObj = appVisio.Documents("NOVOE.vss")
Set mastObj = stnObj.Masters("В1_О 1000х1000")
Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)
Set shpObj = pagObj.Drop(mastObj, 5.25, 5.5)
Set shpObj = pagObj.Drop(mastObj, 6.25, 5.5)
On Error GoTo ErrLabel_1
For j = 1 To pagObj.Shapes.Count
Set shpObj = pagObj.Shapes.Item(j)
Debug.Print shpObj & " - Shapes COUNT"
For i = 0 To 20
Set cellObj = shpObj.CellsSRC(visSectionProp, visRowProp + i, visCustPropsLabel)
s = cellObj.ResultStr(0)
Debug.Print s
Set cellObj = shpObj.CellsSRC(visSectionProp, visRowProp + i, visCustPropsValue)
s = cellObj.ResultStr(0)
Debug.Print Fix(s)
Next i
ErrLabel_1:
Err.Clear
Next j
End Sub
All Forums
Custom Properties и их колличество....
Posted - 05/17/2004 : 11:41:28