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

drawing circles and placing values next to circle

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