Runtime, array of controls events

[vbMark]

I have the following code:

Dim myTextBox(10) As TextBox

Dim x As Integer
For x = 0 To 9

myTextBox(x) = New TextBox
With myTextBox(x)
Select Case x

[Pipo]

Hi vbMark,

I dont see the events OnFocus or Onchange for a textbox.
But in general you create an addhandler for the events you'll need.

Hope this helps
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

I have the following code:

Dim myTextBox(10) As TextBox

Dim x As Integer
For x = 0 To 9

myTextBox(x) = New TextBox
With myTextBox(x)
Select Case x
.
. some code
.
End Select
End With

Me.Controls.Add(myTextBox(x))

Next

Now how do I get the OnFocus or OnChange events for myTextBox?

Thanks!

[vbMark]

Sorry, I meant GotFocus and TextChanged.
"Pipo" <Pi**@nobody.com> wrote in news:OkBwTPK$EHA.3988
@TK2MSFTNGP11.phx.gbl:

Hi vbMark,

I dont see the events OnFocus or Onchange for a textbox.
But in general you create an addhandler for the events you'll need.

Hope this helps
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

I have the following code:

Dim myTextBox(10) As TextBox

Dim x As Integer
For x = 0 To 9

myTextBox(x) = New TextBox
With myTextBox(x)
Select Case x
.
. some code
.
End Select
End With

Me.Controls.Add(myTextBox(x))

Next

Now how do I get the OnFocus or OnChange events for myTextBox?

Thanks!

[Pipo]

Hi vbMark,

Did you looked at addhandler?
Is your problem solved?

Greets,
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

Sorry, I meant GotFocus and TextChanged.
"Pipo" <Pi**@nobody.com> wrote in news:OkBwTPK$EHA.3988
@TK2MSFTNGP11.phx.gbl:

Hi vbMark,

I dont see the events OnFocus or Onchange for a textbox.
But in general you create an addhandler for the events you'll need.

Hope this helps
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

I have the following code:

Dim myTextBox(10) As TextBox

Dim x As Integer
For x = 0 To 9

myTextBox(x) = New TextBox
With myTextBox(x)
Select Case x
.
. some code
.
End Select
End With

Me.Controls.Add(myTextBox(x))

Next

Now how do I get the OnFocus or OnChange events for myTextBox?

Thanks!

[Cor Ligthert]

vbMark

\\\
For Each ctr as TextBox In myTextBox
AddHandler ctr.GotFocus, AddressOf meGotFocus
AddHandler ctr.TextChanged, AddressOf meTextChanged
Next
///

I hope this helps?

Cor

[vbMark]

I think addhandler may be what I'm looking for. First tests look good.
I'll contine trying it out.

Thanks!

"Pipo" <Pi**@nobody.com> wrote in news:ODc12ZK$EHA.1084
@tk2msftngp13.phx.gbl:

Hi vbMark,

Did you looked at addhandler?
Is your problem solved?

Greets,
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

Sorry, I meant GotFocus and TextChanged.
"Pipo" <Pi**@nobody.com> wrote in news:OkBwTPK$EHA.3988
@TK2MSFTNGP11.phx.gbl:

> Hi vbMark,
>
> I dont see the events OnFocus or Onchange for a textbox.
> But in general you create an addhandler for the events you'll need.
>
> Hope this helps
>
>
> "vbMark" <[e-mail]> wrote in message
> news:Xn************************@130.133.1.4...
>> I have the following code:
>>
>> Dim myTextBox(10) As TextBox
>>
>> Dim x As Integer
>> For x = 0 To 9
>>
>> myTextBox(x) = New TextBox
>> With myTextBox(x)
>> Select Case x
>> .
>> . some code
>> .
>> End Select
>> End With
>>
>> Me.Controls.Add(myTextBox(x))
>>
>> Next
>>
>> Now how do I get the OnFocus or OnChange events for myTextBox?
>>
>> Thanks!
>
>
>

[vbMark]

"Cor Ligthert" <no************@planet.nl> wrote in news:#WKBRfK$EHA.3820
@TK2MSFTNGP11.phx.gbl:

vbMark

\\\
For Each ctr as TextBox In myTextBox
AddHandler ctr.GotFocus, AddressOf meGotFocus
AddHandler ctr.TextChanged, AddressOf meTextChanged
Next
///

I hope this helps?

Cor

Ok, using AddHandler works and creates the event. Now how do I know which
control in the array fired the event?

I have this in my loop:
AddHandler myTextBox(x).GotFocus, AddressOf myTextBox_GotFocus

And this Sub:
Sub myTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
????
End Sub

Thanks.

[Cor Ligthert]

vbMark,

In this situation I gave every control a name before I add them to the form.

\\\
myTextBox.Name=x.ToString
Me.Controls.Add(myTextBox(x))
///

Then you can do by instance in the event

\\\
Sub myTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case DirectCast(sender,TextBox).Name
Case "0"
'do something
Case "1"
End Sub
///

I hope this helps?

Cor

[vbMark]

Excellent! Thanks!

"Cor Ligthert" <no************@planet.nl> wrote in
news:#z**************@TK2MSFTNGP11.phx.gbl:

vbMark,

In this situation I gave every control a name before I add them to the
form.

\\\
myTextBox.Name=x.ToString
Me.Controls.Add(myTextBox(x))
///

Then you can do by instance in the event

\\\
Sub myTextBox_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs)
Select Case DirectCast(sender,TextBox).Name
Case "0"
'do something
Case "1"
End Sub
///

I hope this helps?

Cor