<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Hi Ben,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">I'm not sure if I understand what is causing problems, but offer the following which I hope will deal with the issue you raise. It was coded in the 2008 version of <a href="http://VB.NET">VB.NET</a>.<br>
<br>Public Class Form1<br> Dim cx, cy As Integer 'Variables for width and height of form<br> Dim aButton(6) As Button 'An array of buttons<br> Dim myLabel As Label<br><br> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br>
InitializeScreen()<br> SetupButtons()<br> SetupALabel()<br> End Sub<br><br> Private Sub InitializeScreen()<br> Me.WindowState = FormWindowState.Maximized<br> cx = Me.ClientSize.Width<br>
cy = Me.ClientSize.Height<br> End Sub<br><br> Private Sub SetupButtons()<br> Dim iButtonWidth, iButtonHeight As Integer 'Variables for the height and width of each button<br> iButtonWidth = 200<br>
iButtonHeight = 220<br><br> Dim iHorizontalSpacing As Integer 'Variable for the spacing to be used between each button<br> iHorizontalSpacing = 20<br><br> 'Variables to hold distance between top of screen (strictly, client area) and top of the row of buttons,<br>
'and the distance between the left of screen and the left-most button<br> Dim iHorizontalMargin, iVerticalMargin As Integer<br> iHorizontalMargin = (cx - ((aButton.GetUpperBound(0) + 1) * iButtonWidth) - (aButton.GetUpperBound(0) * iHorizontalSpacing)) / 2<br>
iVerticalMargin = (cy - iButtonHeight) / 2<br><br> 'Instantiate buttons and set properties<br> For x As Integer = 0 To aButton.GetUpperBound(0)<br> aButton(x) = New Button<br> aButton(x).Parent = Me<br>
aButton(x).Width = iButtonWidth<br> aButton(x).Left = iHorizontalMargin + (x * (iButtonWidth + iHorizontalSpacing))<br> aButton(x).Top = iVerticalMargin<br> aButton(x).Height = iButtonHeight<br>
aButton(x).BackColor = Color.LightBlue<br> AddHandler (aButton(x).GotFocus), AddressOf Button_GotFocus<br> AddHandler (aButton(x).LostFocus), AddressOf Button_LostFocus<br> 'We will use the tag to allow us a quick way of reporting which of the buttons has focus<br>
'For an explanation of why use of the tag property runs counter to OOP principles, see, e.g. <br> 'Matt Tagliaferri's "Visual Basic .NET! I Didn't Know You Could Do That..." pp19-20)<br>
aButton(x).Tag = CStr(x)<br> Next<br> End Sub<br><br> Private Sub Button_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)<br> Dim ctrl As Control = CType(sender, Control)<br> ctrl.BackColor = Color.Yellow<br>
myLabel.Text = "Button " & ctrl.Tag & " has the focus."<br> End Sub<br><br> Private Sub Button_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)<br> Dim ctrl As Control = CType(sender, Control)<br>
ctrl.BackColor = Color.LightBlue<br> End Sub<br><br> Private Sub SetupALabel()<br> myLabel = New Label<br> myLabel.Parent = Me<br> myLabel.Width = 150<br> myLabel.Left = (cx - myLabel.Width) / 2<br>
myLabel.BackColor = Color.BlanchedAlmond<br> myLabel.Top = 200<br> myLabel.TextAlign = ContentAlignment.MiddleCenter<br> End Sub<br><br>End Class<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">
<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Best regards,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Alex Hopkins<br>
</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On 28 March 2013 14:52, Ben Hines <span dir="ltr"><<a href="mailto:b.hines@ccg.vic.edu.au" target="_blank">b.hines@ccg.vic.edu.au</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div link="#0563C1" vlink="#954F72" lang="EN-AU">
<div>
<p class="MsoNormal">Hi guys (happy end of term 1).<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">I keep running into the issues of not being able to create an event handler for an array of code created objects.<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">For example, I use a for loop to create a whole heap of picture boxes that I assign to an array.<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">For some reason when I try to connect those picture boxes in the for loop to an event handler, the even never runs.<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">However, if I just do it to a single object it works fine…<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">Has anyone ever come across this (I use VB.net)<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">Thanks<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">Ben Hines<u></u><u></u></p>
</div>
<br>
<font face="calibri"><font face="calibri"><font color="#800000">
<p><strong><font style="FONT-SIZE:11pt" face="Arial"><font style="FONT-SIZE:11pt"><font style="FONT-SIZE:11pt"><font style="FONT-SIZE:11pt">Ben Hines<br>
</font></font></font></font></strong><font style="FONT-SIZE:11pt" face="Arial"><font style="FONT-SIZE:11pt"><font style="FONT-SIZE:11pt"><font style="FONT-SIZE:11pt">Mathematics and ICT Teacher<br>
Senior Campus<br>
(03)5241 1577</font></font></font></font></p>
<p></p></font></font></font><font face="calibri"><font face="calibri"><font face="calibri"><font face="calibri"><font face="calibri"><font face="calibri"><font face="calibri"><img alt="Christian College Geelong" border="0" hspace="0"></font></font></font></font></font></font></font>
<p><font face="Calibri"><span style="FONT-FAMILY:Webdings;FONT-SIZE:16pt"><strong><img style="WIDTH:22px;min-height:33px" alt="" height="28" width="34"> </strong></span><font>Please
consider the environment before printing this email.</font></font></p>
<br>
</div>
<br>This e-mail is intended for the use of the named individual or entity and may contain confidential and privileged information. Any dissemination, distribution or copying by anyone other than the intended recipient of this e-mail is strictly prohibited. If this e-mail has been received in error, then please notify Christian College or the author of this email immediately and destroy the original message. We have made every attempt to ensure this e-mail message is free from computer viruses however the attached files are provided on the basis that the user assumes all responsibility for use of the material transmitted. Views, opinions, etc. expressed reflect those of the author and not Christian College nor its associated companies and campuses which includes Eden Quality Services Pty Ltd.<br>
<br><hr size="1">Message protected by MailGuard: e-mail anti-virus, anti-spam and content filtering.<br><a href="http://www.mailguard.com.au" target="_blank">http://www.mailguard.com.au</a><br>
<br> <br><br>_______________________________________________<br>
<a href="http://www.edulists.com.au" target="_blank">http://www.edulists.com.au</a> - FAQ, Subscribe, Unsubscribe<br>
IT Software Development Mailing List kindly supported by<br>
<a href="http://www.vcaa.vic.edu.au" target="_blank">http://www.vcaa.vic.edu.au</a> - Victorian Curriculum and Assessment Authority and<br>
<a href="http://www.vcaa.vic.edu.au/vce/studies/infotech/softwaredevel3-4.html" target="_blank">http://www.vcaa.vic.edu.au/vce/studies/infotech/softwaredevel3-4.html</a><br>
<a href="http://www.vitta.org.au" target="_blank">http://www.vitta.org.au</a> - VITTA Victorian Information Technology Teachers Association Inc<br>
<a href="http://www.swinburne.edu.au/ict/schools" target="_blank">http://www.swinburne.edu.au/ict/schools</a> - Swinburne University<br></blockquote></div><br><br clear="all"><br>-- <br><div dir="ltr">Dr Alex Hopkins<br>
<br>Bayside Christian College<br>120-128 Robinsons Rd<br>Langwarrin South, VIC 3911<br>Ph: 03 5971 6700<br>Fx: 03 5971 3810<br>Em: <a href="mailto:a.hopkins@baysidecc.vic.edu.au" target="_blank">a.hopkins@baysidecc.vic.edu.au</a><br>
Wb: <a href="http://www.baysidecc.vic.edu.au" target="_blank">www.baysidecc.vic.edu.au</a><br>"Unity and Maturity in Christ"</div>
</div>