[RESOLVED] dynamic pictureboxes

[ikdekker]

hello, I create multiple dynamic pictureboxes and it are to many to add them all manually, is there a way I can e.g. use an integer which adds up every time a new picturebox is made. Then I want to add the same code to every picturebox. Now it creates the picturebox and moves it to the next spot and doesn't create a second. I am using this code if its helpfull:

Dim newimg As PictureBox = New PictureBox
        If imgCounter < 5 Then
            newimg.Height = 65
            newimg.Width = 50
            newimg.Name = "img" & imgCounter
            newimg.Left = 'i want this to be 100 further every time
            newimg.Top = wp1.Location.Y
            newimg.Image = My.Resources.img
            newimg.Visible = True
            newimg.BackgroundImage = My.Resources.Road
            newimg.SizeMode = PictureBoxSizeMode.StretchImage
           
 
 
            Me.Controls.Add(newimg)
            newimg.BringToFront()
            imgCounter += 1
            call TheCodeSub()
        Else
            imgSender.Stop() ' timer
            imgCounter = 0 
        End If

[dday9]

I don't think that I quite understand you, however anytime you want to do an action over and over again, then use a loop. Something like this:

        'Variables
        Dim img As PictureBox
        Dim imgCount As Integer = 0
        Dim locate As New Point(0, 0)

        Do Until imgCount = 5
            'The picturebox's properties
            img = New PictureBox
            img.Image = My.Resources.Image1
            img.Size = New Size(50, 50)
            img.SizeMode = PictureBoxSizeMode.Normal
            img.Location = locate

            'Adding 100 to the Locate.X
            locate = New Point(locate.X + 100, locate.Y)

            'Adding the picturebox to the form
            Me.Controls.Add(img)

            'Adding 1 to the integer to keep count of how many pictureboxes I've created
            imgCount += 1
        Loop

[ikdekker]

I just want to know how to make code which applys to one of the pictureboxes specifically, it would really help me out, thanks!
Because it seems impossible to use the name since it doesn't exist yet

[dday9]

Ahh, ok I think that I understand you. Like when you add a button to a form and you double click on it, it brings up the button's click event. If that's the case then you want to add an event handler to the picturebox. Take a look here

[ikdekker]

you cant assign code to a specific picturebox that way, because they don't exist yet and the method their using has pictureboxes already in the form.

[Shaggy Hiker]

Yeah you can. The sender argument of the event handler holds the object that raised the event. Therefore, in an event raised by a picturebox, it holds the picturebox. Therefore, you can do this:

Dim pb = DirectCast(sender,PictureBox)

inside the event handler, and now you have the PictureBox that raised the event. You can then do different things based on pb.Name so that different pictureboxes do different things.

[ikdekker]

I get that, but then your adding them manually, right? and I create too many pictureboxes to do it manually, so how would that be done?

[Shaggy Hiker]

Adding what manually? You would have to add a single event handler method and use AddHandler to hook it to each picturebox, but that's no big deal. You are already setting the properties of the picturebox, and it would only be one more line to add the handler.

[ikdekker]

Then could you give me an example, if i create 2 pictureboxes like this. How would I make it work

Dim newimg As PictureBox = New PictureBox
dim locate as new point(0,0)
        If imgCounter < 2 Then
            newimg = new picturebox
            newimg.Height = 65
            newimg.Width = 50
            newimg.Name = "img" & imgCounter
            newimg.Left = locate.X
            newimg.Top = wp1.Location.Y
            newimg.Image = My.Resources.img
            newimg.Visible = True
            newimg.BackgroundImage = My.Resources.Road
            newimg.SizeMode = PictureBoxSizeMode.StretchImage
           
 
locate = new point(locate.x + 100, locate.y)
            Me.Controls.Add(newimg)
            newimg.BringToFront()
            imgCounter += 1
            call TheCodeSub()
        Else
            imgSender.Stop() ' timer
            imgCounter = 0 
        End If

Now I want to assign e.g. this

AddHandler img1.'if it is created i want the code to execute', AddressOf EventHandler
AddHandler img2.'Also on create', AddressOf EventHandler
 
Sub EventHandler()
    ' some code
    MsgBox("example")
End Sub

[Shaggy Hiker]

The event handler would look like this:

Public Sub Whatever(sender As Object, e As EventArgs)

The actual type for e may not be EventArgs. The easiest way to figure out what you want is to create one event handler for whatever event the normal way, that will give you the proper signature, though the name of the method is unimportant. Only the arguments matter.

You would then add a handler with:

AddHandler img1.Click AddressOf Whatever

Of course, you would use whatever event you wanted, not necessarily Click.