Diagram swimlane orientation

[rupertkiwi]

Hi there,

How can I add both horizontal and vertical swimlanes to a diagram?

Here is what I have so far:

    Dim heading As EA.Swimlane
    Set heading = testDiagram.SwimlaneDef.Swimlanes.Add("", 50)
    testDiagram.SwimlaneDef.Orientation = soHorizontal

But this will make all swimlanes in the diagram horizontal.
I want some to be vertical and some to be horizontal.

Thanks,
Rupert

[Geert Bellekens]

Rupert,

You are changing it on diagram level, but you can also change it at diagramObject level.

Here's the code I use to change the Activitypartitions from Horizontal to vertical (or vice versa)

Code: [Select]

public void setOrientation(bool vertical)
{
string currentStyle = this.wrappedDiagramObject.Style.ToString();
string vPartitionValue;
vPartitionValue = vertical ? "1":"0";
this.wrappedDiagramObject.SetStyleEx("VPartition",vPartitionValue);
string styleAfter = this.wrappedDiagramObject.Style.ToString();
}
Geert

[rupertkiwi]

Hi Geert,

Thanks for your replay.

I seem to be having a bot of trouble wih it:

Function setOrientation(d As EA.diagram, vertical As Boolean)
Dim diagramObjects As EA.Collection
Set diagramObjects = d.diagramObjects
Dim testDiagramObject As EA.diagramObject
Set testDiagramObject = diagramObjects.AddNew("Test", Swimlane)
testDiagramObject.Style = testDiagramObject.SetStyleEx("VPartition", vertical)
End Function

Can you see what I'm doing wrong?

Many thanks,
Rupert

[qwerty]

You don't call the final Update.

SetStyleEx does not return anything.

q.

[rupertkiwi]

I changed it to match Geert's code more closely but I'm still not having any joy:

    Sub setOrientation(vertical As Boolean, tdo As EA.diagramObject)
    Dim currentStyle As String
    currentStyle = tdo.Style
    Dim vPartitionValue As String
    vPartitionValue = vertical
    tdo.SetStyleEx("VPartition",vPartitionValue)
    Dim styleafter As String
    styleafter = this.wrappedDiagramObject.Style
    End Sub

[qwerty]

You still dont call Update.

q.

[Aaron B]

What qwerty means is that you need to call tdo.Update() in your code to commit your changes.