Loop ALL Properties

[Derek Hart]

I am going in circles trying to loop through properties on 3rd party
controls. For example, I have a textbox that has its maximum length located
at MyTextBox.Prope rties.MaxLength - instead of the dotnet textbox which is
MyTextBox.MaxLe ngth. If I loop a built in dotnet control, it finds the
property no problem. But looping through the 3rd party control,
Properties.MaxL ength does not get listed. I was hoping to find how it names
it using reflection, so I could use GetValue and SetValue to dyanmically set
values of controls without knowing their type until runtime. How can I gain
access to loop ALL the properties of a control?

Dim t As Type = ctl.GetType
For Each pp As PropertyInfo In t.GetProperties ()
Console.WriteLi ne("{0} = {1}", pp.Name, pp.GetValue(ctl , Nothing))
Next

[Hauer W]

Hi!

I also use in my apps the dx controls. I do in my loop over all controls a
simple "select case" to difference beetween the differnt controltypes and
then i set the properties.

That works pretty good.
HTH Wolfgang
"Derek Hart" <de********@yah oo.comschrieb im Newsbeitrag
news:%2******** ********@TK2MSF TNGP05.phx.gbl. ..

More on the right track, but I cannot seem to get to all the properties.
In the dev express controls, on a textboxedit control, in the property
sheet, there is a property called Properties. I expand that and see a
MaxLength property. So the property would be
textbox1.proper ties.MaxLength - cannot seem to loop through and get the
names of all the properties, so I can find how this one is named, and use
it at runtime to set values to it, because I will not know the type of
control until runtime. And I don't want to convert the control because
there are too many controls to do this for. So if the property exists, I
want to do a setvalue on it. Any ideas on how to find all properties?

"James Hahn" <jh***@yahoo.co mwrote in message
news:O3******** ******@TK2MSFTN GP03.phx.gbl...

>This is taken straight from
http://msdn.microsoft.com/en-us/libr...pertyinfo.aspx.
It's not actually recursive - you have to repeat it for each member type
of interest.

I created a picture box with some scroll bars, which is similar (I think)
to your custom controls, and sent the output to a multiline text box.

Imports System.Reflecti on
Public Class Form1
Dim indent As Integer = 0
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles Button1.Click
Dim t As Type = PictureBox1.Get Type
For Each pp As PropertyInfo In t.GetProperties ()
listproperties (pp)
Next
End Sub
Sub listproperties( ByVal pp As PropertyInfo)
Display(indent , pp.Name)
indent += 1
For Each mi As MethodInfo In pp.GetAccessors
ListAccessors( mi)
Next
indent -= 1
End Sub
Sub ListAccessors(B yVal mi As MethodInfo)
Display(indent , mi.Name)
End Sub
Sub Display(ByVal indent As Int32, ByVal s As String)
textBox1.Tex t += New String(" "c, indent * 2)
textBox1.Tex t += s & vbCrLf
End Sub
End Class

"Derek Hart" <de********@yah oo.comwrote in message
news:ud******* *******@TK2MSFT NGP04.phx.gbl.. .

>>Do you have a sample of how I would do that from my code below?

"James Hahn" <jh***@yahoo.co mwrote in message
news:%2****** *********@TK2MS FTNGP06.phx.gbl ...
You should be looping recursively.

"Derek Hart" <de********@yah oo.comwrote in message
news:eI***** *********@TK2MS FTNGP03.phx.gbl ...
>I am going in circles trying to loop through properties on 3rd party
>controls . For example, I have a textbox that has its maximum length
>located at MyTextBox.Prope rties.MaxLength - instead of the dotnet
>textbox which is MyTextBox.MaxLe ngth. If I loop a built in dotnet
>control, it finds the property no problem. But looping through the 3rd
>party control, Properties.MaxL ength does not get listed. I was hoping
>to find how it names it using reflection, so I could use GetValue and
>SetValue to dyanmically set values of controls without knowing their
>type until runtime. How can I gain access to loop ALL the properties of
>a control?
>
Dim t As Type = ctl.GetType
For Each pp As PropertyInfo In t.GetProperties ()
Console.WriteLi ne("{0} = {1}", pp.Name, pp.GetValue(ctl , Nothing))
Next
>
>
>
>
>