Procedimento para limpar todos os campos de um form

[fagnerx21 0]

Quero saber 2 coisas:Qual a diferença de criar um MDI form com forms mdi child e criar form normal e ter outros forms normais(mdichild = false) ,isso quero dizer quanto a ter uma tela inicial com menu que cada menu vai abrir um outro form.

E quero saber como faço para criar uma função pra limpar todos os objetos do form automaticamente,eu tentei desse jeito mas deu erro,olha ai e ve se é assim e me diga o que está faltando,senão for assim me diga como faço fazendo um favor:

Public Sub fuLimpar(tela As Form)

Dim i As Integer

 

For i = 0 To tela.Controls - 1

If TypeOf tela.Controls(i) Is TextBox Then

tela.Controls(i) = ""

End If

Next

End Sub

 

Eu quero que ele limpe todos os objetos(textbox,maskededitbox,combobox,etc...)

 

Valeu.

[Claudio Neto 3]

Tenta assim:

 

Private sub LimpaTela

dim ctlControle as Control

 

for Each ctlcontrole in controls

if typeof ctlcontrole is textbox then

ctlcontrole.text = ""

end if

next

 

end sub

[fagnerx21 0]

valeu

[fagnerx21 0]

Tá dando erro de invalid property value nesta função:

Public Sub fuLimpar(Form As Form)

Dim objeto As Control

'Verifica todos os objetos que existem no form e os apaga

For Each objeto In Form

If TypeOf objeto Is TextBox Then

objeto = " "

Else

objeto.Text = " "

objeto.Mask = " "

End If

Next

End Sub

Alguem pode me ajudar por favor?

[Claudio Neto 3]

Se for textbox ele vai somente apagar o texto, senão ele vai apagar e o text e a máscara.

 

Você fez isso pensando em, se não for text será masked. Mas com certeza na sua tela você também deve ter labels e possivelmente botões.

 

E os objetos labels e commands não possuel a propriedade mask.

[fagnerx21 0]

mas então como eu faria pra apagar somente o que eu quero?

[Claudio Neto 3]

CODE

Public Sub fuLimpar(Form As Form)
Dim objeto As Control
'Verifica todos os objetos que existem no form e os apaga
For Each objeto In Form
If TypeOf objeto Is TextBox Then
objeto = " "
Elseif Typeof objeto is Maskedbox then
objeto.Text = " "
objeto.Mask = " "
End If
Next
End Sub

[fagnerx21 0]

Nossa,que falta de atenção,nem vi que tinha colocado um else http://forum.imasters.com.br/public/style_emoticons/default/blush.gif ,obrigado.