Access dynamic controls by name?

[Anil Gupte]

How does one access dynamic controls by name (or whatever other means)? I
have the following:

Dim newbtnPick As New Button
newbtnPick.Name = "SliceButto n" & CurSliceNum
newbtnPick.Loca tion = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Size = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Text = "Pick->"
Sender.Controls .Add(newbtnPick )
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1Be ginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1Be ginH.Size = New Size(SILoc.Text BoxSizeW, SILoc.TextBoxSi zeH)
Sender.Controls .Add(TextBoxSli ce1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Marina Levit [MVP]]

The sender is the object that raised the event. Cast it to the appropriate
type.

You can't reference the control unless the variable for it is declared at
the class level. If you declare a reference to it in one method, then you
cannot access that variable in another.

"Anil Gupte" <an*******@icin ema.comwrote in message
news:ed******** ******@TK2MSFTN GP04.phx.gbl...

How does one access dynamic controls by name (or whatever other means)? I
have the following:

Dim newbtnPick As New Button
newbtnPick.Name = "SliceButto n" & CurSliceNum
newbtnPick.Loca tion = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Size = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Text = "Pick->"
Sender.Controls .Add(newbtnPick )
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1Be ginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1Be ginH.Size = New Size(SILoc.Text BoxSizeW,
SILoc.TextBoxSi zeH)
Sender.Controls .Add(TextBoxSli ce1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com

[DarrenV]

Hi Anil,

You could set the tag property on the button to be the textbox. Then
in your click handler you can cast the sender to a button and then
again cast the tag to the textbox. This aproach allows you to have
many pairs of Button/Textbox.

Dim newbtnPick As New Button
newbtnPick.Name = "SliceButto n" & CurSliceNum
newbtnPick.Loca tion = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Size = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Text = "Pick->"
Sender.Controls .Add(newbtnPick )
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1Be ginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1Be ginH.Size = New Size(SILoc.Text BoxSizeW,
SILoc.TextBoxSi zeH)
Sender.Controls .Add(TextBoxSli ce1BeginH)
' Set the tag property of the button
newbtnPick.Tag = TextBoxSlice1Be ginH

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As
EventArgs)
' Cast the sender, which will be the button control
Dim sliceTextBox as TextBox = DirectCast(Dire ctCast(sender,
Button).Tag, TextBox)

' Then you can do the following:
dim x as string
x = sliceTextBox.Te xt
if x 60
x=x/2
end if
sliceTextBox.Te xt = x
End Sub

You could always write a simple composite control with a button and
textbox on.

Good luck,
Regards
Darren

Anil Gupte wrote:

How does one access dynamic controls by name (or whatever other means)? I
have the following:

Dim newbtnPick As New Button
newbtnPick.Name = "SliceButto n" & CurSliceNum
newbtnPick.Loca tion = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Size = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Text = "Pick->"
Sender.Controls .Add(newbtnPick )
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1Be ginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1Be ginH.Size = New Size(SILoc.Text BoxSizeW, SILoc.TextBoxSi zeH)
Sender.Controls .Add(TextBoxSli ce1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Cor Ligthert [MVP]]

Anil,

Is this simple enough, there are as well more advanced ones on our website.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

I hope this helps,

Cor

"Anil Gupte" <an*******@icin ema.comschreef in bericht
news:ed******** ******@TK2MSFTN GP04.phx.gbl...

How does one access dynamic controls by name (or whatever other means)? I
have the following:

Dim newbtnPick As New Button
newbtnPick.Name = "SliceButto n" & CurSliceNum
newbtnPick.Loca tion = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Size = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Text = "Pick->"
Sender.Controls .Add(newbtnPick )
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1Be ginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1Be ginH.Size = New Size(SILoc.Text BoxSizeW,
SILoc.TextBoxSi zeH)
Sender.Controls .Add(TextBoxSli ce1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Anil Gupte]

Thanx, that did it! I moved the Dim statements outside the method (which
was the New method i.e. constructor for this class) and left the rest inside
the method. Now I can access the textbox(es) in the event handler for the
button.

Great! Appreciate the help.
--
Anil Gupte
www.keeninc.net
www.icinema.com

"Marina Levit [MVP]" <so*****@nospam .comwrote in message
news:ef******** *****@TK2MSFTNG P02.phx.gbl...

The sender is the object that raised the event. Cast it to the appropriate
type.

You can't reference the control unless the variable for it is declared at
the class level. If you declare a reference to it in one method, then you
cannot access that variable in another.

"Anil Gupte" <an*******@icin ema.comwrote in message
news:ed******** ******@TK2MSFTN GP04.phx.gbl...

>How does one access dynamic controls by name (or whatever other means)?
I
have the following:

Dim newbtnPick As New Button
newbtnPick.Nam e = "SliceButto n" & CurSliceNum
newbtnPick.Loc ation = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Siz e = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Tex t = "Pick->"
Sender.Control s.Add(newbtnPic k)
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1B eginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1B eginH.Size = New Size(SILoc.Text BoxSizeW,
SILoc.TextBoxS izeH)
Sender.Control s.Add(TextBoxSl ice1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As
EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com

[Anil Gupte]

Thanx for the code sample - I learned something new (also from Darren in the
previous message) that there is a Tag property on a control. I wonder if I
can address the control using that. It would be very useful to address the
control using the tag later, after leaving the creation code. For example,
based on its value and the value of the next set of controls, I may want to
relocate it on the form.
--
Anil Gupte
www.keeninc.net
www.icinema.com

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:uL******** ******@TK2MSFTN GP05.phx.gbl...

Anil,

Is this simple enough, there are as well more advanced ones on our
website.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

I hope this helps,

Cor

"Anil Gupte" <an*******@icin ema.comschreef in bericht
news:ed******** ******@TK2MSFTN GP04.phx.gbl...

>How does one access dynamic controls by name (or whatever other means)?
I
have the following:

Dim newbtnPick As New Button
newbtnPick.Nam e = "SliceButto n" & CurSliceNum
newbtnPick.Loc ation = New Point(SILoc.SIP ickbtn, SILoc.SIY3)
newbtnPick.Siz e = New Size(SILoc.btnW , SILoc.btnH)
newbtnPick.Tex t = "Pick->"
Sender.Control s.Add(newbtnPic k)
AddHandler newbtnPick.Clic k, AddressOf newbtnPick_Clic k
Dim TextBoxSlice1Be ginH As New TextBox
TextBoxSlice1B eginH.Location = New Point(SILoc.SIX 0, SILoc.SIY3)
TextBoxSlice1B eginH.Size = New Size(SILoc.Text BoxSizeW,
SILoc.TextBoxS izeH)
Sender.Control s.Add(TextBoxSl ice1BeginH)

Now in the handler how do I address the textbox?:

Private Sub newbtnPick_Clic k(ByVal sender As Object, ByVal e As
EventArgs)
' How do I dosomething like this:
dim x as string
x = TextBoxSlice1Be ginH.Text
if x 60
x=x/2
end if
TextBoxSlice1Be ginH.Text = x
End Sub

Is there a web based tutorial or article that deals with this?

Thanx,

--
Anil Gupte
www.keeninc.net
www.icinema.com