Difference between revisions of "AddSetIfNotThere"
From scripting
(Created page with " Function AddSetIfNotThere(ContainerSet As Variant, HBName As String) As HybridBody Dim JKL As HybridBody If ContainerSet.HybridBodies.Count = 0 Then Set JKL = Containe...") |
(No difference)
|
Latest revision as of 04:46, 22 April 2017
Function AddSetIfNotThere(ContainerSet As Variant, HBName As String) As HybridBody Dim JKL As HybridBody If ContainerSet.HybridBodies.Count = 0 Then Set JKL = ContainerSet.HybridBodies.Add JKL.Name = HBName Set AddSetIfNotThere = JKL Exit Function End If Dim SetCounter As Integer SetCounter = 1 While SetCounter <= ContainerSet.HybridBodies.Count If ContainerSet.HybridBodies.Item(SetCounter).Name = HBName Then Set JKL = ContainerSet.HybridBodies.Item(HBName) Set AddSetIfNotThere = JKL Exit Function End If SetCounter = SetCounter + 1 Wend Set JKL = ContainerSet.HybridBodies.Add JKL.Name = HBName Set AddSetIfNotThere = JKL End Function