Apagar tudo

[ucx 0]

Boa noite,

Existe a possibilidade de apagar todo o conteúdo de todos os textbox, listbox... com apenas um comando?

algo como AllTextBox.clear ^_^

Obrigado!

[quintelab 91]

Uma única linha de comando não tem, mas você pode utilizar uma sub:

 

Public Sub Limpar(ByVal controlP As Control) 
	Dim ctl As Control 
	For Each ctl In controlP.Controls 
		If TypeOf ctl Is TextBox Then 
			DirectCast(ctl, TextBox).Text = String.Empty 
		ElseIf ctl.Controls.Count > 0 Then 
			Limpar(ctl) 
		End If 
	Next 
End Sub 
  
'Para chamar a função: 
Call Me.Limpar(Me)

Neste caso esta verificando somente TextBox mas para usar outros controles basta adicioná-los no IF.

 

Abraços...

[ucx 0]

Obrigado!