Class property

[mmulibra]

Hi,

I have a class X and I would like create an instance of class X from Form1 according to the mousebutton click and location of the click

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Dim i As Integer
        Dim Xpos, YPos As Single
        Xpos = e.X
        YPos = e.Y
        If MouseButtons.Left Then
            i = i + 1
            X.node(Xpos, YPos)
            X.label1(Xpos, YPos)
       End If
    End Sub

From my class X, I would like create a circle in picturebox1 in form:

Public Class X
    Dim X, Y As Single
    Public Property node() As Single
        Get
            PictureBox1.Circle(Xpos, Ypos)
        End Get
        Set(ByVal Value As Single)
            X = Value
            Y = Value
        End Set
    End Property

I know this is not a correct way as I got some errors. Please give me some guidances.

[dogfish227]

Public Property node(Xpos As single, YPos As Single) As Single

um also im not sure what your trying to return with this property??

[Graff]

This looks like a mess to me... I don't think the property method works the way you want this too....

[dogfish227]

Wait ignore what i said above im still trying to figure out what your trying to do,

[mmulibra]

I am sorry, maybe I was not clear of what my intention of my program.

I would like to draw a circle as an object with every mouseclick in a picturebox. The location of the circle is based on the location of the mouseclick. I would also like every circle to be labeled, eg. "circle1", "circle2", "circle3".... and every circle will have a property at the later stage.

That is actually what I am planning to do :

[dogfish227]

ok im not sure why your useing a class but its not really a situation where you use one

try:

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Dim Xpos, YPos As Single
        Xpos = e.X
        YPos = e.Y
        If MouseButtons.Left Then
            PictureBox1.Circle(Xpos, Ypos)
       End If
    End Sub

i still have no clue what i is for or what x.label1 is?

[dogfish227]

ok
then to draw the label

add a line right below the picturebox1.drawcircle

dim lbl as new label
lbl.text = i
lbl.Top = Ypos
lbl.Left = Xpos
 
picturebox1.controls.add(lbl)

and put your i back in

[mmulibra]

Actually the I am using a class for every circle drawn because I am writing a simulation where every circle is representing a node in a network. Therefore every node will have a certain property.

I guess I am right on this.

[mmulibra]

Is this correct?

PictureBox1.Circle(Xpos, YPos)

'Circle' is not a member of 'System.Windows.Forms.PictureBox'