By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
457,603 Members | 1,410 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 457,603 IT Pros & Developers. It's quick & easy.

drawing circles and placing values next to circle

P: n/a
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

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)
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),
'ogra.DrawEllipse(penprocs, myconversion(pt2),
5, 5)
End Sub

Private Function myconversion(ByVal temp As Point) As Point
Return New Point(temp.X, ClientSize.Height -
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
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

didnt use option strict on my coding.

Thanking You for ur coding in advance.
Nov 20 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.