by Daniel Cordeiro
27. maio 2009 02:40
É uma coisa simples e talvez até banal, mas já penei um bocado por causa disso. A função abaixo serve para limpar o conteúdo de todos os controles no form (que possuem o método clear).
Mais "bonito" do que ficar repetindo o nome de todos os controles do formulário para limpar os mesmos... 
|
Private Sub limpa_tudo()
Dim ctrl As Windows.Forms.Control
For Each ctrl In Form1.Controls
Select Case ctrl.GetType.ToString
Case "System.Windows.Forms.TextBox"
Ctrl.Clear()
End Select
Next
End Sub
|
Visualizações(699)
Filter by APML
Se inscrever