1.如何枚举一个窗体内的所有控件？又如何枚举一个控件的所有属性名称？
请教
[解决办法]
sub GetControls(byavl PanretCtrl as Control)
for each ctrl as control in PanretCtrl.controls
console.writeline(ctrl.Name)
if ctrl.Controls.Count > 0 then
GetControls(Ctrl)
end if
next
end sub
sub GetProperty(byval Ctrl as Control)
dim methods() as Reflection.MethodInfo =Ctrl.GetType().GetMethods(16)
for each _method as Reflection.MethodInfo in methods
console.writeline(_method .Name)
next
end sub
[解决办法]
'GetChildControls 是一个递归函数，返回一个窗体上的所有控件
Public Function GetChildControls(ByVal parent As Control, Optional ByVal contrlType As String = " ") As ArrayList
Dim result As New ArrayList
For Each ctrl As Control In parent.Controls
result.Add(ctrl)
result.AddRange(GetChildControls(ctrl))
Next
Return result
End Function
