Cor,
| I not know what time is
| taken by building the stack and destroy it again.
|
| Maybe I will make a test for this in short future.
The sample given was not intended as a performance preference, rather as an
alternative way of doing it.
I have also seen/used:
| | Private Sub doSet(ByVal parentCtr As Control)
If parentCtr.HasCh ildren Then
| | For Each ctr as Control In parentCtr.Contr ols
| | If TypeOf ctr = Textbox orelse TypeOf ctr = Combobox _
| | orelse Typeof ctr = ControlGroupBox then
| | ctr.text = ""
| | End if
| | Next
End If
| | End Sub
The first example, as you mention, avoids a recursive call.
The second example avoids creating an Enumerator, creating an Enumerator may
add to memory pressure...
Based on the 80/20 rule both may be pre-mature optimizations.. .
--
Hope this helps
Jay B. Harlow [MVP - Outlook]
..NET Application Architect, Enthusiast, & Evangelist
T.S. Bradley -
http://www.tsbradley.net
"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:%2******** ********@TK2MSF TNGP02.phx.gbl. ..
| Jay,
|
| I am in doubt in this what I should use.
|
| I like to avoid code which is done in the recursive call by the for each
ctr
| as the control has no children, on the other hand do I not know what time
is
| taken by building the stack and destroy it again.
|
| Maybe I will make a test for this in short future.
|
| Cor
|
| "Jay B. Harlow [MVP - Outlook]" <Ja************ @tsbradley.nets chreef in
| bericht news:uh******** ******@TK2MSFTN GP02.phx.gbl...
| Cor,
| About the only change I normally include is to check to see if the
control
| has children before I do the recursive call:
| >
| | Private Sub doSet(ByVal parentCtr As Control)
| | For Each ctr as Control In parentCtr.Contr ols
| | If TypeOf ctr = Textbox orelse TypeOf ctr = Combobox _
| | orelse Typeof ctr = ControlGroupBox then
| | ctr.text = ""
| | End if
| If ctr.HasChildren Then
| | doSet(ctr)
| End If
| | Next
| | End Sub
| >
| >
| >
| --
| Hope this helps
| Jay B. Harlow [MVP - Outlook]
| .NET Application Architect, Enthusiast, & Evangelist
| T.S. Bradley -
http://www.tsbradley.net
| >
| >
| "Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
| news:ed******** *****@TK2MSFTNG P05.phx.gbl...
| | Kberry,
| |
| | You mean all textboxes as you showed on a form?
| |
| | \\\
| | Private Sub Form5_Load(ByVa l sender As Object, _
| | ByVal e As System.EventArg s) Handles MyBase.Load
| | doset(Me)
| | End Sub
| | Private Sub doSet(ByVal parentCtr As Control)
| | For Each ctr as Control In parentCtr.Contr ols
| | If TypeOf ctr = Textbox orelse TypeOf ctr = Combobox _
| | orelse Typeof ctr = ControlGroupBox then
| | ctr.text = ""
| | End if
| | doSet(ctr)
| | Next
| | End Sub
| | ///
| |
| | I hope this helps,
| |
| | Cor
| | <kb****@process barron.comschre ef in bericht
| | news:11******** **************@ 74g2000cwt.goog legroups.com...
| | >I am clearing Textboxes on a form... this is loop I have came up with
| | but was wondering if it can be shorter or not as long... Can anyone
| | help?
| | >
| | Dim controlOnForm As Control 'Places a control on the form
| | Dim controlOnTab As Control 'Places a control on the tab
| | Dim controlTabPage As Control 'Places a control on the tab
| | page
| | Dim controlGroupBox As Control 'Places a control on the
group
| | box
| | For Each controlOnForm In Me.Controls 'Focus on the form
| | For Each controlOnTab In controlOnForm.C ontrols 'Focus on
| | the Tab
| | For Each controlTabPage In controlOnTab.Co ntrols
'Focus
| | >
| | on the Tab Page
| | If TypeOf controlTabPage Is TextBox Then 'Focus
on
| | the Textboxes
| | controlTabPage. Text = "" 'Clear Textbox
| | End If
| | If TypeOf controlTabPage Is ComboBox Then 'Focus
on
| | >
| | the ComboBox
| | controlTabPage. Text = "" 'Clear ComboBox
| | End If
| | For Each controlGroupBox In
controlTabPage. Controls
| | >
| | 'Focus on the GroupBox
| | If TypeOf controlGroupBox Is TextBox Then
| | 'Focus on the Textbox
| | controlGroupBox .Text = "" 'Clear Textbox
| | End If
| | Next
| | Next
| | Next
| | Next
| | >
| | >
| | Thought it would be easier in .NET than in VB6...
| | >
| |
| |
| >
| >
|
|
