Hello!
I am having trouble with the syntax I should use to allow a method to 'walk' through all the controls on a particular form. Each form I would use this on could have groupboxes, tab controls, listbox, panels, textboxes, labels, combo, etc... It would have to be iterative in order to find the textboxes & comboboxes.
If a group control is found (aka groupbox, tabcontrol, etc,...) I would then need to check its children as well until I found a textbox or combobox. I am not concerned with labels at this point. Once the lowest level is found I want to perform an operation on that control & need to know the name of the control.
This is what I have so far, but I get an error when I check the subObj:
I believe in order to dim the grpbox control I need to know its name at that point. Also, I am not getting the desired results when dealing with the object.
Any thoughts or pointers are appreciated.
Dim obj AsObject
Dim shop AsNew ShopControl
Dim str AsString
Dim GrpObj As GroupBox
ForEach obj In shop.Controls
If (obj.GetType).ToString = "System.Windows.Forms.TextBox" Then
str = sender.GetType.FullName
ElseIf (obj.GetType).ToString = "System.Windows.Forms.GroupBox" Then
'str = sender.GetType.FullName 'Customer.ShopControl
str = obj.GetType.Name 'Groupbox
'Dim subObj As System.Windows.Forms.GroupBox.ControlCollection
Dim subObj AsObject
ForEach subObj In obj
If (obj.GetType).ToString = "System.Windows.Forms.TextBox" Then
str = sender.GetType.FullName
ElseIf (obj.GetType).ToString = "System.Windows.Forms.GroupBox" Then
'str = sender.GetType.FullName 'Customer.ShopControl
str = subObj.GetType.Name 'Groupbox
ElseIf (obj.GetType).ToString = "System.Windows.Forms.TabControl" Then
str = sender.GetType.FullName
EndIf
Next
ElseIf (obj.GetType).ToString = "System.Windows.Forms.TabControl" Then
str = sender.GetType.FullName
EndIf
Next
thanks,
Mike
I am having trouble with the syntax I should use to allow a method to 'walk' through all the controls on a particular form. Each form I would use this on could have groupboxes, tab controls, listbox, panels, textboxes, labels, combo, etc... It would have to be iterative in order to find the textboxes & comboboxes.
If a group control is found (aka groupbox, tabcontrol, etc,...) I would then need to check its children as well until I found a textbox or combobox. I am not concerned with labels at this point. Once the lowest level is found I want to perform an operation on that control & need to know the name of the control.
This is what I have so far, but I get an error when I check the subObj:
I believe in order to dim the grpbox control I need to know its name at that point. Also, I am not getting the desired results when dealing with the object.
Any thoughts or pointers are appreciated.
Dim obj AsObject
Dim shop AsNew ShopControl
Dim str AsString
Dim GrpObj As GroupBox
ForEach obj In shop.Controls
If (obj.GetType).ToString = "System.Windows.Forms.TextBox" Then
str = sender.GetType.FullName
ElseIf (obj.GetType).ToString = "System.Windows.Forms.GroupBox" Then
'str = sender.GetType.FullName 'Customer.ShopControl
str = obj.GetType.Name 'Groupbox
'Dim subObj As System.Windows.Forms.GroupBox.ControlCollection
Dim subObj AsObject
ForEach subObj In obj
If (obj.GetType).ToString = "System.Windows.Forms.TextBox" Then
str = sender.GetType.FullName
ElseIf (obj.GetType).ToString = "System.Windows.Forms.GroupBox" Then
'str = sender.GetType.FullName 'Customer.ShopControl
str = subObj.GetType.Name 'Groupbox
ElseIf (obj.GetType).ToString = "System.Windows.Forms.TabControl" Then
str = sender.GetType.FullName
EndIf
Next
ElseIf (obj.GetType).ToString = "System.Windows.Forms.TabControl" Then
str = sender.GetType.FullName
EndIf
Next
thanks,
Mike
