Clear textboxes, pass in a form

[bfsog]

Hi.

I have the following code, which when executed will clear all text boxes on a particular form. However, I have more than one form which will need this feature.

		Dim ctrl As Control
		For Each ctrl In Controls
			If TypeOf ctrl Is TextBox Then ctrl.Text = ""
		Next ctrl

How would I implement this as a function so that I can save it in a module?

Ideally I would like to call it like this..

ClearFields(FormName)

Any help is greatly appreciated.

 

[jmcilhinney]

Just declare it as a Public Sub in a Public Module and it will be available throughout the project like a Shared Sub of a Public Class.

 

[bfsog]

And to call it? Would I not have to change the code somehow to accept the forms name?

 

[JuggaloBrotha]

'Public Module:
Friend Sub ClearText(byref Form as System.Windows.Forms.Form)
  Dim ctrl As Control
  For Each ctrl In Form.Controls
	If TypeOf ctrl Is TextBox Then ctrl.Text = ""
  Next ctrl
End Sub

'A form in the project:
Call ClearText(Me)