Syntax
PrtItem.AttrCount
Description
Integer property contains a count of the number of Attributes for the Item.
Example
Dim prt as new Prt
'Get a list of items from PRT and display each of their
'attributes one by one in a message box.
prt.GetItemList
For i = 0 To prt.ItemCount - 1
For j = 0 To prt.Item(i).AttrCount - 1
MsgBox prt.Item(i).Attr(j).Id & " = " & prt.Item(i).Attr(j).Value
Next j
Next i
'Get a list of items from PRT again but display their COLOR only
For i = 0 To prt.ItemCount - 1
For j = 0 To prt.Item(i).AttrCount - 1
MsgBox prt.Item(i).Attr("COLOR")
Next j
Next i
PRT Object Model member list. |