Using Variable Control Name

[B-Dog]

I'm capturing the checked radio button to XML file using the name of the
radio button. I want to read my xml file to find which button was checked
on close and the check the appropriate button when for loads. How do I use
a variable control name. This is what I'm trying to do below but of course
it doesn't work, I'm rookie.

Thanks
Dim rbchecked as String
'rbchecked is name of radio button checked on exit from XML

rbchecked.check ed = true

[Ken Tucker [MVP]]

Hi,

This will check every control on the form. If the control is a
radiobutton it will write its name and if it is checked to the output
window.

RadioButtonChec ked(Me.Controls )

Private Sub RadioButtonChec ked(ByVal sender As
Control.Control Collection)
For Each ctrl As Control In sender
If TypeOf ctrl Is RadioButton Then
Debug.WriteLine (String.Format( "{0} Checked {1}",
ctrl.Name, DirectCast(ctrl , RadioButton).Ch ecked))
End If
RadioButtonChec ked(ctrl.Contro ls)
Next
End Sub

Ken
-----------------------

"B-Dog" <bd***@hotmail. com> wrote in message
news:Ob******** ******@TK2MSFTN GP12.phx.gbl:

I'm capturing the checked radio button to XML file using the name of the

radio button. I want to read my xml file to find which button was checked

on close and the check the appropriate button when for loads. How do I
use
a variable control name. This is what I'm trying to do below but of
course
it doesn't work, I'm rookie.

Thanks
Dim rbchecked as String
'rbchecked is name of radio button checked on exit from XML

rbchecked.check ed = true

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Herfried K. Wagner [MVP]]

* "B-Dog" <bd***@hotmail. com> scripsit:

I'm capturing the checked radio button to XML file using the name of the
radio button. I want to read my xml file to find which button was checked
on close and the check the appropriate button when for loads. How do I use
a variable control name.

My FAQ:

\\\
Private Function FindControl( _
ByVal ControlName As String, _
ByVal CurrentControl As Control _
) As Control
Dim ctr As Control
For Each ctr In CurrentControl. Controls
If ctr.Name = ControlName Then
Return ctr
Else
ctr = FindControl(Con trolName, ctr)
If Not ctr Is Nothing Then
Return ctr
End If
End If
Next ctr
End Function
///

Usage:

\\\
DirectCast(Find Control("btnBla ", Me), Button).Enabled = False
///

Notice that the procedure listed above is "slow", if you have to access a
lot of controls by name very often, you should store references to them in a
'Hashtable' object. You can use the name of the control as key:

\\\
Private m_Controls As New Hashtable()
///

Adding a control:

\\\
Dim DynamicPictureB ox As New PictureBox()
DynamicPictureB ox.Name = "PictureBox 1"
m_Controls.Add( DynamicPictureB ox.Name, DynamicPictureB ox)
///

Looking for a control:

\\\
Dim p As PictureBox = DirectCast(m_Co ntrols.Item("Pi ctureBox1"), PictureBox)
///

Removing a control:

\\\
m_Controls.Remo ve("PictureBox1 ")
///

Sometimes it's even better to add the control to an array. This will allow
fast and easy index-based access to the control references:

\\\
Dim MyLabels() As Label = {Label1, Label2, ..., Label10}
///

Access by 'MyLabels(0)' to 'MyLabels(9)'.

Control arrays:

Control arrays, as known from VB6, are not included in VB.NET 2002/2003.

Creating Control Arrays in Visual Basic .NET and Visual C# .NET:
<URL:http://msdn.microsoft. com/library/en-us/dv_vstechart/html/vbtchCreatingCo ntrolArraysInVi sualBasicNETVis ualCNET.asp>

WinForms Controls--Creating Control Arrays in VB.NET
<URL:http://www.devx.com/vb2themax/Article/19907/>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[B-Dog]

Wow, thanks for the reply, looks more complicated than I thought it would
be, to get around it before I had used and Case, If string = "" then
radio.checked = true etc. which was only a few lines. May stick with that
since I only have a few radio buttons. Thanks!

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:2i******** ****@uni-berlin.de...

* "B-Dog" <bd***@hotmail. com> scripsit:

I'm capturing the checked radio button to XML file using the name of the
radio button. I want to read my xml file to find which button was checked on close and the check the appropriate button when for loads. How do I use a variable control name.
My FAQ:

\\\
Private Function FindControl( _
ByVal ControlName As String, _
ByVal CurrentControl As Control _
) As Control
Dim ctr As Control
For Each ctr In CurrentControl. Controls
If ctr.Name = ControlName Then
Return ctr
Else
ctr = FindControl(Con trolName, ctr)
If Not ctr Is Nothing Then
Return ctr
End If
End If
Next ctr
End Function
///

Usage:

\\\
DirectCast(Find Control("btnBla ", Me), Button).Enabled = False
///

Notice that the procedure listed above is "slow", if you have to access a
lot of controls by name very often, you should store references to them in

a 'Hashtable' object. You can use the name of the control as key:

\\\
Private m_Controls As New Hashtable()
///

Adding a control:

\\\
Dim DynamicPictureB ox As New PictureBox()
DynamicPictureB ox.Name = "PictureBox 1"
m_Controls.Add( DynamicPictureB ox.Name, DynamicPictureB ox)
///

Looking for a control:

\\\
Dim p As PictureBox = DirectCast(m_Co ntrols.Item("Pi ctureBox1"), PictureBox) ///

Removing a control:

\\\
m_Controls.Remo ve("PictureBox1 ")
///

Sometimes it's even better to add the control to an array. This will allow fast and easy index-based access to the control references:

\\\
Dim MyLabels() As Label = {Label1, Label2, ..., Label10}
///

Access by 'MyLabels(0)' to 'MyLabels(9)'.

Control arrays:

Control arrays, as known from VB6, are not included in VB.NET 2002/2003.

Creating Control Arrays in Visual Basic .NET and Visual C# .NET:
<URL:http://msdn.microsoft.com/library/en.../vbtchCreating
ControlArraysIn VisualBasicNETV isualCNET.asp>
WinForms Controls--Creating Control Arrays in VB.NET
<URL:http://www.devx.com/vb2themax/Article/19907/>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>