Handles

[Guest Cokegod]

I just made 5 pic boxes in the form load like this:

 

Dim b(4) As PictureBox

Dim I As Integer

Dim MyImage As Bitmap

For i = 0 To 4

B(I) = New PictureBox()

MyImage = New Bitmap("C:\Documents and Settings\Geoff\My Documents\Visual Studio Projects\WindowsApplication1\b" & I & ".bmp")

B(I).Image = CType(MyImage, Image)

B(I).Top = 120

B(I).Left = 110 + (I * 50)

B(I).SizeMode = PictureBoxSizeMode.StretchImage

B(I).Height = 45

B(I).Width = 50

Me.Controls.Add(b(I))

Next

 

And now I am wonder how do i get the click event from these new pics: I tried:

 

Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click '

 

but it dosen't recognize my "b" in "Handles b.click"

Thanks for all the help, this forum has been great!

[divil]

Make yourself a sub with the right method signature, then use AddHandler:

 

AddHandler button.Click, AddressOf MyFunction

[Guest Cokegod]

Handle Clause Requires A WithEvents Variable

 

I added this line to my above loop:

 

AddHandler b(I).Click, AddressOf B_Click

 

But it still dosen't like my sub of

 

Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click

 

it gives me the withevents error above. Sorry for all the questions and thanks for the help!

[divil]

Get rid of the "Handles b.Click" after the method declaration, you don't need it since you're wiring them up manually.

[Guest Cokegod]

Which One?

 

Thanks for the help!

but now when i click on my pics i can not figure out which one i clicked on in the array. Thanks Again!

[divil]

That's what the sender object is for, that is passed to the method. If you cast it using CType to a Button, or whatever type it is, you then have the button that raised the event.

[Guest Cokegod]

???

 

so, do i add the line:

b(i) = ctype(b(i), picturebox) ' i declared it as a picbox and im not sure what to put in for the expression of ctype

And my sender variable in my sub is always empty.

There is only a sender.gettype(), which can not be converted into an integer or string.

Thanks again!

[divil]

In your sub, I suggest you do this:

 

Dim picSender As PictureBox

'This is ok if you know the only thing to raise this event is going
'to be a PictureBox control
picSender = CType(sender, PictureBox)

 

Once you have that code, you can use picSender as the instance of the PictureBox that was clicked. If you need to get the index of the array, you can loop through your array and check for equality with this object using the Is operator, or you could possibly just store the index of the array in the Tag property of each PictureBox when you create them.

[Guest Cokegod]

???

 

Here is the code i have so far

 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim b(4) As PictureBox

Dim I As Integer

Dim MyImage As Bitmap

For I = 0 To 4

b(I) = New PictureBox()

MyImage = New Bitmap("C:\Documents and Settings\Geoff\My Documents\Visual Studio Projects\WindowsApplication1\b" & I & ".bmp")

b(I).Image = CType(MyImage, Image)

b(I).Top = 120

b(I).Left = 110 + (I * 50)

b(I).SizeMode = PictureBoxSizeMode.StretchImage

b(I).Height = 45

b(I).Width = 50

b(I) = CType(sender, PictureBox)

AddHandler b(I).Click, AddressOf B_Click

Me.Controls.Add(b(I))

Next

End Sub

 

Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

[\code]

I get the following error:

"An unhandled exception of type 'System.InvalidCastException' occurred in WindowsApplication1.exe Additional information: Specified cast is not valid."

for this line: b(I) = CType(sender, PictureBox)

Thanks for all the help!

[divil]

Maybe you should check my posts here:

 

http://www.visualbasicforum.com/showthread.php?s=&threadid=34282

[Guest TheIrishCoder]

The ctype is in the wrong place in your code. Use it in the click procedure. One way of doing this is to give each picture box a name in the code in the loop:-

 

..

...

...

b(I).Image = CType(MyImage, Image)

b(I).Top = 120

b(I).Left = 110 + (I * 50)

b(I).SizeMode = PictureBoxSizeMode.StretchImage

b(I).Height = 45

b(I).Width = 50

b(I).Name = "b" & i.ToString

..

..

etc.

 

Then in your click event:-

 

Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

Dim curPicBox as PictureBox = Ctype(Sender, PictureBox)

If curPicBox.Name = "b1" then

'your code for box 1

elseif curPicBox.Name = "b2" then

..

.

.

etc.

..

.

.

End If

 

End Sub