I am change the containers' tab index through the buttons.
First one, I attribute the value of variable admContainerToFocus. It will set the name of container control and the index to be actived.
So, I call the macro without parameters, which will call the final procedure. This is the code:
'-----------------------------------------------------
' Set focus to a tab inside Container - Caller
Sub FocusTabContainer ()
On Error Resume Next
Set admCTF = ActiveDocument.GetVariable("admContainerToFocus")
admFocusTabContainer Split(admCTF.GetContent.String, ",")
End Sub
'-----------------------------------------------------
' Set focus to a tab inside Container
Sub admFocusTabContainer(vParam)
Container = vParam(0)
Index = vParam(1)
NewIndex = 0
Set ContainerObj = ActiveDocument.GetSheetObject(Container)
Set ContProp=ContainerObj.GetProperties
On Error Resume Next
x = Int(Index) + 2
If err = 0 and x > 0 Then
NewIndex = x - 2
Else
i = ContProp.ContainedObjects.Count - 1
For i = 0 To i
If ContProp.ContainedObjects.Item(i).Text.v = Index Then
NewIndex = i
End If
Next
End If
On Error Goto 0
Set d = ActiveDocument.GetVariable("admDEBUG")
d.SetContent dbg, True
ContProp.SingleObjectActiveIndex = NewIndex
ContainerObj.SetProperties ContProp
End Sub
Thanks.
...
Ricardo
