All Frameworks Object Hierarchy This Framework Indexes
| o Property Context( | ) As (Read Only) |
Dim MecaContext As Product
Set MecaContext = MyDressup.Context
| o Property Mechanism( | ) As (Read Only) |
Dim Meca As Mechanism Set Meca = MyDressup.Mechanism
| o Sub Attach( | iLink, | |
| iAttachedProd) |
Dim Link1 As Product
Dim Product1 As Product
...
MyDressup.Attach(Link1,Product1)
| o Sub Detach( | iAttachedProd) |
Dim Product1 As Product
...
MyDressup.Detach(Product1)
| o Func ListAttached( | iLink) As |
Dim ListAttached1 as Product
ListAttached1 = MyDressup.ListAttached(Link1)
Dim Maxi as Integer
Set Maxi = ubound(ListAttached1)
Dim Prod_i as Product
For i = 0 To Maxi
Set Prod_i = ListAttached1(i)
..
Next
Copyright © 2003, Dassault Systèmes. All rights reserved.