Hi

Is there a document or table that shows the FlowChart.Net shape name that corresponds to a Visio shape.

For instance, I need to use the FlowChart.Net "Offpage Connection" or "Arrow7" shape, but I cannot find those in my Visio 2003 when I do a "Search for Shapes".

Thanks
Jim

Thanks, that worked. One more question.

I have created a custom shape in Visio, I then created a custom shape in ShapeDesigner.  Now what do I do so that I can use that shape in VB.Net 2008?  Is there a short write-up somewhere?

Thanks
Jim

Hi:

Thanks, but I still did not get it to work.  I did look at DirTree, but did not see the Shape.FromID info.

Here is what I get from the Shape Designer:
' VB.NET ShapeTemplate definition
   new Shape( _
      new ElementTemplate() _
      { _
           new LineTemplate(0, 0, 72, 0), _
           new LineTemplate(72, 0, 100, 50), _
           new LineTemplate(100, 50, 70, 100), _
           new LineTemplate(70, 100, 0, 100), _
           new LineTemplate(0, 100, 0, 0) _
      }, _
      new ElementTemplate() _
      { _
      }, _
      new ElementTemplate() _
      { _
           new LineTemplate(5, 5, 67, 5), _
           new LineTemplate(67, 5, 95, 50), _
           new LineTemplate(95, 50, 65, 95), _
           new LineTemplate(65, 95, 5, 95), _
           new LineTemplate(5, 95, 5, 5) _
      }, _
nothing, FillMode.Winding,   "test" )

This does not work in VB.Net 2008 (it is the same code as the C# generated code).  Am I missing something?

I want the shape to be called "GoTo".


Here is the VB.Net 2008 code I plan to use:

       If e.ShapeName = "GoTo" Then
           e.Shape.Shape = Shapes.GoTo
       End If



Thanks
Jim

Thanks

The code I sent you was taken directly from the ShapeDesigner.

The code you sent me does draw my shape on Form1. BUT what I want to do is use that shape for when I import a VISIO .vdx file and during the import I see a shape called "GoTo". Here is the subroutine that I plan to use. You can see my commented out portion.

Private Sub ShapeImported(ByVal sender As Object, ByVal e As ShapeImportedEventArgs)

Dim vdxCode As XmlNode = e.ShapeXml
If e.ShapeName = "GoTo" Then
' e.Shape.Shape = Shapes.GoTo
e.Shape.Shape = Shapes.OffpageConnection
End If

If e.ShapeName = "OffpageConnection" Then
e.Shape.Shape = Shapes.OffpageConnection
End If




Try
Dim ns As XmlNamespaceManager = New XmlNamespaceManager(e.ShapeXml.OwnerDocument.NameTable)
ns.AddNamespace("vdx", "http://schemas.microsoft.com/visio/2003/core")
' Dim myPropVal As XmlNode = vdxCode.SelectSingleNode("vdx:Prop[vdx:Label='MyProperty']/vdx:Value", ns)
Dim myPropVal As XmlNode = vdxCode.SelectSingleNode("vdx:Prop[vdx:Label='Block#']/vdx:Value", ns)
If Not (myPropVal Is Nothing) Then
e.Shape.Tag = myPropVal.InnerText
BoxMes(MyCount) = myPropVal.InnerText
MyCount = MyCount + 1

End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Thanks
Jim

Thanks. BUT, I did as you had said, but I do not see my shape. I see a rectangle. The code is executed, just I do not get the shape I had made.


I like the idea of importing a library. I may go that direction, once I get this to work. Is there a sample application I can look over to get the syntex correct?

Any ideas?

Thanks
Jim

Hi:

If I add this:

Private Sub view_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view.Click

Dim sn As New ShapeNode(diag)

diag.Nodes.Add(sn)

sn.Shape = Shape.FromId("GoTo")
End Sub

Then double click on the view window, I see my new shape in the upper left corner of the window.

If I put a break on the import event, I do execute those lines of code - but my shape is the generic rectangle.

Any ideas? I can send you the project - if that will help.

Thanks
Jim

Files are on their way.

Thanks
Jim

Hi
Thanks - that was the problem.  I had 2 shapes in my  "GoTo" VISIO Stencil.  When I changed it to 1, it worked.

I was also able to get the library import to work - thanks.

Have A Good Weekend,
Jim