Hi,
I would like to know how to place circles in the
connecting points of the lines, and very close to the
circles I would like to place the values like a,b,c...etc
automatically for each connecting point on the line.
I meant connecting points like.
Here I shall explain my requirements clearly thro' my
coding:
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
For i = 0 To 1246
x1 = Val(rs.Fields("Easting").Value)
y1 = Val(rs.Fields("Northing").Value)
pt = New Point(x1, y1)
rs.MoveNext()
x2 = Val(rs.Fields("Easting").Value)
y2 = Val(rs.Fields("Northing").Value)
pt2 = New Point(x2, y2)
ogra = Me.CreateGraphics
ogra.DrawLine(Pens.Blue, myconversion(pt),
myconversion(pt2))
'ogra.DrawEllipse(penprocs, myconversion(pt2),
5, 5)
Next
rs.Close()
End Sub
Private Function myconversion(ByVal temp As Point) As Point
Return New Point(temp.X, ClientSize.Height -
temp.Y)
End Function
If you notice my button_click
ogra.drawellipse line is commented because it was giving
me an error.It's design time error but I cant sort out my
problem.
Actually in this case at every end point of the line I
need to place the circle.I have continous n number of
lines,in that from where on my line is continuing I want
to place the circle and place the continous alphabets like
a,b,c automatically just on top or very close to my
circle.
Database:Access
didnt use option strict on my coding.
Thanking You for ur coding in advance.
Ranjit
