Visio Draw Line In VB.NET

[frank.reid-robertson]

Hi I am trying to write a vb.net application that takes data from a
flat file which has x1,y1,x2,y2 coordinates in it to draw a image in
visio.

How do i draw lines in visio using vb.net

visio version is 2007
vb.net version 2005

Please Help.

 

[David Parker]

The Page object has a DrawLine method, but you may want to us the
DrawPolyLine method

 

[frank.reid-robertson]

The Page object has a DrawLine method, but you may want to us the
DrawPolyLine method









- Show quoted text -

Could you supply a sample use of the method
I have been looking at the sdk documentation with no success

 

[John]

Hello Frank,

This is a VBA example of the DrawLine method that David mentioned and if you
want to use DrawPolyLine then just have a look it up in Visio's help file.

Sub DrawLine()

Dim pag As Visio.Page
Dim shp As Visio.Shape
Dim dblXBegin As Double
Dim dblXEnd As Double
Dim dblYBegin As Double
Dim dblYEnd As Double

dblXBegin = 1
dblYBegin = 1
dblXEnd = 3
dblYEnd = 3

Set pag = Application.ActivePage
Set shp = pag.DrawLine(dblXBegin, dblYBegin, dblXEnd, dblYEnd)

End Sub

Hope that helps.

Best regards

John

 

[frank.reid-robertson]

Hello Frank,

This is a VBA example of theDrawLinemethod that David mentioned and if you
want to use DrawPolyLine then just have a look it up inVisio'shelp file.

SubDrawLine()

Dim pag AsVisio.Page
Dim shp AsVisio.Shape
Dim dblXBegin As Double
Dim dblXEnd As Double
Dim dblYBegin As Double
Dim dblYEnd As Double

dblXBegin = 1
dblYBegin = 1
dblXEnd = 3
dblYEnd = 3

Set pag = Application.ActivePage
Set shp = pag.DrawLine(dblXBegin, dblYBegin, dblXEnd, dblYEnd)

End Sub

Hope that helps.

Best regards

John







- Show quoted text -

This is all fine in vba but how do you translate this in to vb.net

 

[John]

The syntax is the same except that you don't need the "Set" keyword in
VB.NET.

If you're asking how to reference Visio in the first place then you might
want to have a read through this
http://msdn2.microsoft.com/en-gb/library/aa201815(office.10).aspx

John