[VB.Net] To clear up all the textbox at one time

[KKuser]

Hello:

I have 20, 30 text and combo boxes on one form, and I would like to clear
them up at one time using the statement "With.......... End With".

I used this when using VB6, but I don't know if I can use the same way in
VB.Net. If I can't use With statement in VB.Net, what should I do?

Thanks!!

[Xian]

Dim ctrl As Control
Dim txt As TextBox

For Each ctrl In Me.Controls
If (ctrl.GetType() Is GetType(TextBox )) Then
txt = CType(ctrl, TextBox)
txt.Text = ""
End If
Next
"KKuser" <a.*@c.d.com> ha scritto nel messaggio
news:O3******** ******@TK2MSFTN GP09.phx.gbl...

Hello:

I have 20, 30 text and combo boxes on one form, and I would like to clear
them up at one time using the statement "With.......... End With".

I used this when using VB6, but I don't know if I can use the same way in
VB.Net. If I can't use With statement in VB.Net, what should I do?

Thanks!!

[Jorge]

-----Original Message-----
Hi
I use the following procedures to clear the text.
They use System.Reflecti on

Kind Regards
Jorge

PS: Its in Portuguese ...
Limpa=clean,meu form=myform,cam pos=field...


Public Sub LimpaTextBoxes( ByVal f As Form)

Dim meuForm As Type = f.GetType()
Dim campos As FieldInfo() = meuForm.GetFiel ds
(BindingFlags.I nstance Or BindingFlags.No nPublic)
For Each campo As FieldInfo In campos
If campo.FieldType .Name.ToLower = "textbox"
Then
Dim t As TextBox = DirectCast
(campo.GetValue (f), TextBox)
t.Text = ""
End If
Next
End Sub
Public Sub LimpaComboBoxes (ByVal f As Form)
Dim meuForm As Type = f.GetType()
Dim campos As FieldInfo() = meuForm.GetFiel ds
(BindingFlags.I nstance Or BindingFlags.No nPublic)
For Each campo As FieldInfo In campos
If campo.FieldType .Name.ToLower = "combobox"
Then
Dim c As ComboBox = DirectCast
(campo.GetValue (f), ComboBox)
c.Text = ""
End If
Next

End Sub

Hello:

I have 20, 30 text and combo boxes on one form, and I would like to clearthem up at one time using the statement "With.......... End With".
I used this when using VB6, but I don't know if I can use the same way inVB.Net. If I can't use With statement in VB.Net, what should I do?
Thanks!!
.

[Cor Ligthert]

Hi KKuser,

It looks the same as the others, however it is not, it cleans also when a
textbox or a combobox is places in another control as by instance a
groupbox.

(I changed it from something else so watch typos)

I hope this helps?

Cor

Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
doclean(Me)
End Sub
Private Sub doSet(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Contr ols
if typeof ctr Is textbox then
ctr.txt = ""
doSet(ctr)
elseif typeof ctr Is combobox then
ctr. 'cleaning up depends here if you use the itemarray or the
datasource
Next
End Sub

[Herfried K. Wagner [MVP]]

* "KKuser" <a.*@c.d.com> scripsit:

I have 20, 30 text and combo boxes on one form, and I would like to clear
them up at one time using the statement "With.......... End With".
You cannot.
I used this when using VB6, but I don't know if I can use the same way in
VB.Net. If I can't use With statement in VB.Net, what should I do?

How did you do that with the 'With' statement in VB6?

<URL:http://dotnet.mvps.org/dotnet/samples/controls/downloads/EnumerateContro ls.zip>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[KKuser]

Hello all:

Thank you for your advises, I have solved my problem.

In fact, my biggest problem is that I put all the textboxes in a groupbox,
but I didn't "mention" it in my codes.

For Each ThisControl In Me.GroupBox3.Co ntrols
^^^^^^^^^
I should have added this.......

And another question...
In the same case, I just want to clear the text of the comboboxes, but keep
the options contained in it (ie. still keep all items in "Combobox.Items ").
I have tried

ThisControl.Tex t = ""
("thiscontro l" now means a combobox)

, but it doesn't work. How to do that??

Thanks again !!

[KKuser]

Hello all:

Thank you for your advises, I have solved my problem.

In fact, my biggest problem is that I put all the textboxes in a groupbox,
but I didn't "mention" it in my codes.

For Each ThisControl In Me.GroupBox3.Co ntrols
^^^^^^^^^
I should have added this.......

And another question...
In the same case, I just want to clear the text of the comboboxes, but keep
the options contained in it (ie. still keep all items in "Combobox.Items ").
I have tried

ThisControl.Tex t = ""
("thiscontro l" now means a combobox)

, but it doesn't work. How to do that??

Thanks again !!

[Cor Ligthert]

Hi KKuser,

Which code did you try, I wrote that the code I was providing was doing all
this you wrote in this message..

With the difference that it becomes for the combobox then of course

elseif typeof ctr Is combobox then
ctr.selectedind ex = -1
end if

I do not understand that this does not work, can you tell what goes wrong?

Cor

Thank you for your advises, I have solved my problem.

In fact, my biggest problem is that I put all the textboxes in a groupbox,
but I didn't "mention" it in my codes.

For Each ThisControl In Me.GroupBox3.Co ntrols
^^^^^^^^^
I should have added this.......

And another question...
In the same case, I just want to clear the text of the comboboxes, but keep the options contained in it (ie. still keep all items in "Combobox.Items "). I have tried

ThisControl.Tex t = ""
("thiscontro l" now means a combobox)

, but it doesn't work. How to do that??

Thanks again !!

[KKuser]

Hello Cor:

Thank you for your reply!! My code is :

Dim ThisControl As Control
...........
...........
...........
If TypeOf ThisControl Is ComboBox Then
ThisControl.Sel ectedIndex = -1
End If

But the "ThisControl.Se lectedIndex = -1" line is marked due to
"SelectedIn dex is not a member of 'System.Windows .Forms.Control' "

That's why I said it doesn't work......

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:uS******** ******@TK2MSFTN GP12.phx.gbl ¤¤¼¶¼g...

Hi KKuser,

Which code did you try, I wrote that the code I was providing was doing all this you wrote in this message..

With the difference that it becomes for the combobox then of course

elseif typeof ctr Is combobox then
ctr.selectedind ex = -1
end if

I do not understand that this does not work, can you tell what goes wrong?

Cor

Thank you for your advises, I have solved my problem.

In fact, my biggest problem is that I put all the textboxes in a groupbox, but I didn't "mention" it in my codes.

For Each ThisControl In Me.GroupBox3.Co ntrols
^^^^^^^^^
I should have added this.......

And another question...
In the same case, I just want to clear the text of the comboboxes, but

keep

the options contained in it (ie. still keep all items in

"Combobox.Items ").

I have tried

ThisControl.Tex t = ""
("thiscontro l" now means a combobox)

, but it doesn't work. How to do that??

Thanks again !!

[Cor Ligthert]

Hi KKuser,

I did it this time very quick and dirty I saw, sorry for this,
Take this routine it is really fine, it is a real recursive routine which
solves all problems with controls in controls and what is more, which you
see often solved in long lines of code.

Now I have tested it as a cleaner (It was a sample of setting a tooltip I
once made).

I hope it works for you as well?
Cor
\\\
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
doclean(Me)
End Sub
Private Sub doclean(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Contr ols
If TypeOf ctr Is TextBox Then
ctr.Text = ""
ElseIf TypeOf ctr Is ComboBox Then
DirectCast(ctr, ComboBox).Selec tedIndex = -1
End If
doclean(ctr)
Next
End Sub
///