Usercontrol property question

  • Thread starter Thread starter Gary Kahrau
  • Start date Start date
G

Gary Kahrau

I hope this is a simple question.
I have a number of usercontrols placed on a form. The usercontrol has
a public property (DispMachine) within it. When looping through the
main form controls, I get an error (not a member of
system.windows.forms.control). However if I put in the explicit name,
VB is happy.
Is it possible to get to this property dynamically?
Or do I have to create a select case (ugly) structure?


For n = 0 To Me.Controls.Count - 1
If Me.Controls(n).GetType.ToString.EndsWith("MachControl") Then

tmpStr = Me.Controls(n).Tag
tmpStr2 = Me.Controls(n).Name
If InStr(tmpStr, vbReader.Item("machine"),
CompareMethod.Text) Then

Me.Controls(n).DispMachine = tmpStr <==== Error
Me.MachControl1.DispMachine = tmpStr <==== Works

End If

End If
Next
 
Gary said:
I hope this is a simple question.
I have a number of usercontrols placed on a form. The usercontrol has
a public property (DispMachine) within it. When looping through the
main form controls, I get an error (not a member of
system.windows.forms.control). However if I put in the explicit name,
VB is happy.
Is it possible to get to this property dynamically?
Or do I have to create a select case (ugly) structure?


For n = 0 To Me.Controls.Count - 1
If Me.Controls(n).GetType.ToString.EndsWith("MachControl") Then
Click to expand...

Any reason why you don't use

if typeof me.controls(n) is MachControl then

?

What ist the type name of the control class? Did you write different
Usercontrols?

tmpStr = Me.Controls(n).Tag
tmpStr2 = Me.Controls(n).Name
If InStr(tmpStr, vbReader.Item("machine"),
CompareMethod.Text) Then

Me.Controls(n).DispMachine = tmpStr <==== Error
Me.MachControl1.DispMachine = tmpStr <==== Works

End If

End If
Next
Click to expand...


The type of the Items property of the Controls collection is 'Control'. Not
every control has this property, thus the message. If 'MachControl' is the
class name:

directcast(Me.Controls(n), MachControl).DispMachine = tmpstr


Armin
 
Any reason why you don't use

if typeof me.controls(n) is MachControl then

?
Click to expand...

No, I am relitively new to .Net and I base a lot off of code samples
that I find. I will try the typeof.
What ist the type name of the control class? Did you write different
Usercontrols?
Click to expand...

No, there is only multiple copies of the same usercontrol.
Windowscontrollibrary1.MachControl <== type name ???
The type of the Items property of the Controls collection is 'Control'. Not
every control has this property, thus the message. If 'MachControl' is the
class name:

directcast(Me.Controls(n), MachControl).DispMachine = tmpstr
Click to expand...

I will try this as well.
Armin
Click to expand...


Thanks,
Gary...
 
Gary said:
No, there is only multiple copies of the same usercontrol.
Windowscontrollibrary1.MachControl <== type name ???
Click to expand...


Yes, that's the type name.


Armin
 
Back
Top