0
The windows form has a list of controls so the following code will work but will be slower as it will have to loop through every contol on the form:
for each ctrl as Object in Controls
if TypeOf ctrl is TextBox then
DirectCast(ctrl, TextBox).Text = ""
end if
next
The more efficient way would be to store all your dynamically created textboxes in an arraylist as previously specified. This will force you to create them programmatically though.
0 Hi,
Haha. Well i just add on your point of view on control array. At first, i also believe that vb.net has no possible on control array.
But it still can be done on the hard way :(
Cheers.
0 Dear chuawenching
whether u r agree with me or not but fortunatly I did it.
thanx for giving such valuable comment and alternative code.
Hariom..(A word to wish)
0 Hi,
I don't agree with you on this.
There is no concept of Control Array.
This is how you can achieve Control Array ...
Dim textboxes() as System.Windows.Forms.TextBox
ReDim textboxes(count - 1)
For i = 0 To textboxes.GetUpperBound
textboxes(i) = New System.Windows.Forms.TextBox
textboxes(i).Clear()
Next
You can figure it out more how it can be applied in your scenario.
Cheers.
0 The only reason that I suggested an arraylist is that the control container for the form may have additional textbox controls. Using the arraylist you only address those controls which are part of the group. You could have done the same thing with a groupbox too.
0 I just used the following code and it is working perfactly.
' Place this code in Button Click Event
dim i as control
For Each i in Controls
If TypeOf i is TextBox then
i=" "
End If
Next
0 Thanx for reply but Can't I use the ForEach loop with TypeOf ObjectControl statement to do the same job. If yes, then how ?
0 If I understand your problem: You want to use an array to empty a set of textbox controls when a button control is pressed.
Here is some code to consider then:
private txtboxArray as ArrayList
'Place the folowing in the form load event
dim i as integer
for i = 0 to 9
dim txtBox as New TextBox
txtBox.Name = "txt" & cstr(i)
txtBox.Location = new Point(10, i * 20)
' Add whatever additional properties here
me.Controls.Add(txtBox)
txtboxArray.Add(txtBox)
next
'Place this in your button click event
dim txtBox as TextBox
for each txtBox in txtboxArray
txtBox.Text = String.Empty
next