LIMPAR TEXTBOX EM VB .NET
Boa tarde, preciso limpar um form em VB .Net mas não estou conseguindo. Tentei de duas maneiras:
Da segunda forma ele não aceita e fala que controles do tipo groupbox não podem ser associados à  variável Ctl.
Obrigado pela atenção
'1Âê forma
Public Sub LimpaForm(ByVal F As Form)
Dim i As Integer
For i = 1 To F.Controls.Count - 1
If TypeOf F.Controls(i) Is TextBox Then
F.Controls(i).Text = ""
End If
Next
End Sub
'2Âê forma
Public Sub LimpaForm(ByVal F As Form)
Dim Ctl As Integer
For Each Ctl In F.Controls
If TypeOf F.Controls(Ctl) Is TextBox Then
F.Controls(Ctl).Text = ""
End If
Next
End Sub
Da segunda forma ele não aceita e fala que controles do tipo groupbox não podem ser associados à  variável Ctl.
Obrigado pela atenção
alguém?
eu descobri que f.controls.count vai até quatro, no meu caso... provavelmente deve estar se referindo aos textboxes, labels, groupboxex, botões e datagrid...
aliás, como eu limpo datagrid em .net? to apanhando pra jogar os dados de uma tabela acess através de um oledbconnection, adapter e e dataset, quando eu mudo o comando select ele não apaga o registro interior quando mostra.
Se eu descobrir eu posto aqui, mas alguém pode me ajudar? vou tentar, ao invés de usar os objetos, criar uma instà ¢ncia deles, quem sabe eu consigo.
Obrigado pela atenção
eu descobri que f.controls.count vai até quatro, no meu caso... provavelmente deve estar se referindo aos textboxes, labels, groupboxex, botões e datagrid...
aliás, como eu limpo datagrid em .net? to apanhando pra jogar os dados de uma tabela acess através de um oledbconnection, adapter e e dataset, quando eu mudo o comando select ele não apaga o registro interior quando mostra.
Se eu descobrir eu posto aqui, mas alguém pode me ajudar? vou tentar, ao invés de usar os objetos, criar uma instà ¢ncia deles, quem sabe eu consigo.
Obrigado pela atenção
eu uso assim em um botão
Dim P_Objeto As Object
For Each P_Objeto In Me.Controls
If TypeOf P_Objeto Is TextBox Then
P_Objeto.Text = ""
End If
Next P_Objeto
Dim P_Objeto As Object
For Each P_Objeto In Me.Controls
If TypeOf P_Objeto Is TextBox Then
P_Objeto.Text = ""
End If
Next P_Objeto

Tópico encerrado , respostas não são mais permitidas