Empty all text boxes in VB .Net

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.

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.

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)

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.

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.

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

Thanx for reply but Can't I use the ForEach loop with TypeOf ObjectControl statement to do the same job. If yes, then how ?

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