Events for runtime created controls.

[Tym]

I have a piece of code thus:

For iLOOP = 0 To iNoDays - 1
For jLOOP = 0 To iMaxPeriods - 1
iX = 10 + (iLOOP * (dCellWidth + 10))
iY = 10 + (jLOOP * (dCellHeight + 10)) +
Me.Size.Height / 4
If jLOOP = 0 And iLOOP = 0 Then
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP) = New
TextBox
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP).Text =
" "
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Location = New Point(iX, iY)
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).AutoSize = False
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP).Height
= dCellHeight
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP).Width
= dCellWidth
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Visible = False
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP).Name =
"txtPERIOD" & ((iLOOP) * iMaxPeriods) + jLOOP.ToString
Me.Controls.Add (lblDISPLAY(((i LOOP) * iMaxPeriods)
+ jLOOP))
Else
If jLOOP = 0 And iLOOP > 0 Then
lblDISPLAY(((iL OOP) * iMaxPeriods) + jLOOP) =
New TextBox
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Text = WeekdayName(iLO OP, , FirstDayOfWeek. Sunday)
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Location = New Point(iX, iY)
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Height = dCellHeight
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Width = dCellWidth
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).AutoSize = False
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).BorderSt yle = BorderStyle.Non e
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).TextAlig n = HorizontalAlign ment.Center
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Name = "txtPERIOD" & ((iLOOP) * iMaxPeriods) + jLOOP.ToString
Me.Controls.Add (lblDISPLAY(((i LOOP) *
iMaxPeriods) + jLOOP))
Else
If iLOOP = 0 And jLOOP > 0 Then
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP) = New TextBox
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Text = "Period " & jLOOP.ToString
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Location = New Point(iX, iY)
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Height = dCellHeight
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Width = dCellWidth
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).AutoSize = False
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).BorderSt yle = BorderStyle.Non e
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).TextAlig n = HorizontalAlign ment.Right
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Name = "txtPERIOD" & ((iLOOP) * iMaxPeriods) + jLOOP.ToString
Me.Controls.Add (lblDISPLAY(((i LOOP) *
iMaxPeriods) + jLOOP))
Else
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP) = New TextBox
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Text = "Label No " & ((iLOOP) * iMaxPeriods) + jLOOP.ToString
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Location = New Point(iX, iY)
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Height = dCellHeight
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Width = dCellWidth
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).AutoSize = False
lblDISPLAY(((iL OOP) * iMaxPeriods) +
jLOOP).Name = "txtPERIOD" & ((iLOOP) * iMaxPeriods) + jLOOP.ToString
Me.Controls.Add (lblDISPLAY(((i LOOP) *
iMaxPeriods) + jLOOP))
End If
End If
End If
Next jLOOP
Next iLOOP

which creates a grid of text boxes on a form at runtime dependent on
the number of days and the number of periods - its a timetable sort of
thing.

How do I capture events for these controls?
such as
private sub lblDISPLAY(((iL OOP) * iMaxPeriods)_Mo useclick

or

private sub lblDISPLAY(((iL OOP) * iMaxPeriods)_go tfocus

??

[Jay B. Harlow [MVP - Outlook]]

Tym,
I would make the original array lblDISPLAY from your original code a class
(Form) level variable. Then index into it to get a specific TextBox.

Looking at your original code, I would probably make the original array a
two dimensional array (days & periods).

Something like:

Private lblDISPLAY(,) As TextBox

Private Sub CreateTextBoxes (...)
...
ReDim lblDISPLAY(iNoD ays -1, iMaxPeriods -1)
For iLOOP = 0 To iNoDays - 1
For jLOOP = 0 To iMaxPeriods - 1
...
If jLOOP = 0 And iLOOP = 0 Then
lblDISPLAY(iLOO P, jLOOP) = New TextBox
lblDISPLAY(iLOO P, jLOOP).Text = " "

...

Next jLOOP
Next iLOOP
...
End Sub

Also, rather then using iLOOP & jLOOP, I would probably call them dayIndex &
periodIndex, as IMHO it makes the code easier to read:

For dayIndex = 0 To iNoDays - 1
For periodIndex= 0 To iMaxPeriods - 1
...
lblDISPLAY(dayI ndex, periodIndex) = New TextBox
Then elsewhere:

lblDISPLAY(1,2) .Text = "New Value"

Unfortunately you cannot index a control collection by name, as name is just
another "Tag" property. You could use a For Each loop to loop for a control
with a specific name or you could maintain a HashTable that maps names to
TextBoxes:

Something like:

lblDISPLAY(iLOO P, jLOOP).Name = ...
Me.Controls.Add (lblDISPLAY(iLO OP,jLOOP))
hashDISPLAY.Add (lblDISPLAY(iLO OP, jLOOP).Name, lblDISPLAY(iLOO P, jLOOP))

Where hashDISPLAY is a class (Form) level System.Collecti ons.HashTable
variable.

Hope this helps
Jay
"Tym" <bi********@mic rosoft.com> wrote in message
news:r3******** *************** *********@4ax.c om...

On Tue, 2 Nov 2004 17:06:00 -0600, "Jay B. Harlow [MVP - Outlook]"
<Ja************ @msn.com> wrote:

labelDISPLAY. Name returns a string, there is no real need to call ToString
on it.

Yes - thanks. I realised that afterwards!!

Ok, so now I've got an event handler, how easy is it to refer to these
textboxes within my code elsewhere?

Normally, I would code:

If txtTextBox.Text = "Some Text" then
'my procedure....
End If

But as the name of the control is determined at runtime, I can't see a
straightworward way of doing this.

Sorry to bother you again...

[Tym]

Thanks Jay - it's worked a treat

If you're ever in the UK - remind me i owe you a beer!

[Tym]

On Wed, 03 Nov 2004 20:37:42 +0000, Tym <bi********@mic rosoft.com>
wrote:

Thanks Jay - it's worked a treat

If you're ever in the UK - remind me i owe you a beer!

You can make it two, if you can answer this one though...

I need to be able to set the locked property to true/false but keep
getting the message

'Locked' is not a member of 'windows.system .forms.textbox'

How can I access the .locked property?

I am declaring it as

Public txtDISPLAY(,) As TextBox

(Changed it from lblDISPLAY as it's now a textbox and not a lable!!)

advTHANKSance

[Jay B. Harlow [MVP - Outlook]]

Tym,
"Locked" is a designer property, it is not a runtime property. Its used to
help avoid inadvertently changing your design, when designing forms.

http://msdn.microsoft.com/library/de...rolsToForm.asp

What are you expecting the "Locked" property to do for you at runtime?

Hope this helps
Jay

"Tym" <bi********@mic rosoft.com> wrote in message
news:23******** *************** *********@4ax.c om...

On Wed, 03 Nov 2004 20:37:42 +0000, Tym <bi********@mic rosoft.com>
wrote:

Thanks Jay - it's worked a treat

If you're ever in the UK - remind me i owe you a beer!

You can make it two, if you can answer this one though...

I need to be able to set the locked property to true/false but keep
getting the message

'Locked' is not a member of 'windows.system .forms.textbox'

How can I access the .locked property?

I am declaring it as

Public txtDISPLAY(,) As TextBox

(Changed it from lblDISPLAY as it's now a textbox and not a lable!!)

advTHANKSance

[Tym]

On Sat, 6 Nov 2004 09:45:51 -0600, "Jay B. Harlow [MVP - Outlook]"
<Ja************ @msn.com> wrote:

What are you expecting the "Locked" property to do for you at runtime?

Ah!

I was expecting it to be the same as in VB6 - stop text input into the
text boxes until, say, the "edit" button is clicked.

in vb6 txtTEXT1.Locked = True, used to allow this, with
txtTEXT1.Locked = false enabling text entry

The problem with the .ReadOnly = True/False, is that is changes the
background colour of the text box, which I didn't really want to do,
but am using it for now.

[Jay B. Harlow [MVP - Outlook]]

Tym,
Have you tried setting ReadOnly to true, then setting the BackGround color
to the color you want?

In VS.NET 2003 I had to select a different color for BackGround the select
BackGround = System.Window, otherwise it worked.

Hope this helps
Jay

"Tym" <bi********@mic rosoft.com> wrote in message
news:q8******** *************** *********@4ax.c om...

On Sat, 6 Nov 2004 09:45:51 -0600, "Jay B. Harlow [MVP - Outlook]"
<Ja************ @msn.com> wrote:

What are you expecting the "Locked" property to do for you at runtime?

Ah!

I was expecting it to be the same as in VB6 - stop text input into the
text boxes until, say, the "edit" button is clicked.

in vb6 txtTEXT1.Locked = True, used to allow this, with
txtTEXT1.Locked = false enabling text entry

The problem with the .ReadOnly = True/False, is that is changes the
background colour of the text box, which I didn't really want to do,
but am using it for now.

[Tym]

On Mon, 8 Nov 2004 10:59:05 -0600, "Jay B. Harlow [MVP - Outlook]"
<Ja************ @msn.com> wrote:

Tym,
Have you tried setting ReadOnly to true, then setting the BackGround color
to the color you want?

Looks like that may be the way to go.

Thinking about it though... having the background colour different for
edit/non edit makes it a little clearer I suppose... :-)