K
koffietje
How can I test all my textboxes in my form wether they
are empty are not by using a for each... in .. structure
in VB.Net?
are empty are not by using a for each... in .. structure
in VB.Net?
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
C
Cor
Hi Java,
When all textboxes are on the main form (windowform)
Rough written so don't look at typo's
\\\
dim ctr as control
for each ctr in me.controls
if typeof ctr is textbox then
if ctr.text <>"" then
'do something
end if
end if
next
///
If it is a webform "text" is not in the control and you have to cast it
first, but that is a problem itself, but I thought I have somewhere saved a
solution, so tell that than again.
I hope this helps a little bit,
Cor
How can I test all my textboxes in my form wether they
are empty are not by using a for each... in .. structure
in VB.Net?
When all textboxes are on the main form (windowform)
Rough written so don't look at typo's
\\\
dim ctr as control
for each ctr in me.controls
if typeof ctr is textbox then
if ctr.text <>"" then
'do something
end if
end if
next
///
If it is a webform "text" is not in the control and you have to cast it
first, but that is a problem itself, but I thought I have somewhere saved a
solution, so tell that than again.
I hope this helps a little bit,
Cor
K
Ken Tucker [MVP]
Hi,
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf (ctrl) Is TextBox Then
Dim tb As TextBox = ctrl
If tb.Text = "" Then
tb.Text = "Empty"
End If
End If
Next
Ken
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf (ctrl) Is TextBox Then
Dim tb As TextBox = ctrl
If tb.Text = "" Then
tb.Text = "Empty"
End If
End If
Next
Ken
H
Herfried K. Wagner [MVP]
* "Ken Tucker said:If TypeOf (ctrl) Is TextBox Then
Just FYI: You don't need the "(", ")" around 'ctrl'.
;-)
H
Herfried K. Wagner [MVP]
* "koffietje said:How can I test all my textboxes in my form wether they
are empty are not by using a for each... in .. structure
in VB.Net?
<http://www.mvps.org/dotnet/dotnet/samples/controls/downloads/EnumerateControls.zip>
A
Armin Zingler
koffietje said:How can I test all my textboxes in my form wether they
are empty are not by using a for each... in .. structure
in VB.Net?
You do need a loop. Either for each..next, for..next, do while...
F
Fergus Cooney
Hi Koffietje,
You need one of two methods depending on whether your TextBoxes are
directly on the Form or whether some are held within other Controls such as
Panels.
If all the TextBoxes are directly on the Form then the methods shown by
Cor and Ken will be fine.
If there are any TextBoxes inside other Controls then a recursive method
is required: An example is shown below. Form is a Control so it starts off
with the Form passing itself (Me).
In the Form:
CheckTheTextBoxes (Me)
Sub CheckTheTextBoxes (oControl As Control)
Dim oChildControl As Control
For Each oChildControl in oControl.Controls
If TypeOf (oChildControl) Is TextBox _
AndAlso oChildControl.Text = "" Then 'or use <>
'Take some action.
End If
CheckTheTextBoxes (oChildControl) 'Check Panels, etc.
Next
End Sub
You can use:
Dim oTextBox As TextBox = oChildControl
in the 'Take some action' section if you actually need to do anything
'textboxy'.
Regards,
Fergus
If you use Option Strict On, you'll need
Dim oTextBox As TextBox = DirectCast (oChildControl, TextBox)
You need one of two methods depending on whether your TextBoxes are
directly on the Form or whether some are held within other Controls such as
Panels.
If all the TextBoxes are directly on the Form then the methods shown by
Cor and Ken will be fine.
If there are any TextBoxes inside other Controls then a recursive method
is required: An example is shown below. Form is a Control so it starts off
with the Form passing itself (Me).
In the Form:
CheckTheTextBoxes (Me)
Sub CheckTheTextBoxes (oControl As Control)
Dim oChildControl As Control
For Each oChildControl in oControl.Controls
If TypeOf (oChildControl) Is TextBox _
AndAlso oChildControl.Text = "" Then 'or use <>
'Take some action.
End If
CheckTheTextBoxes (oChildControl) 'Check Panels, etc.
Next
End Sub
You can use:
Dim oTextBox As TextBox = oChildControl
in the 'Take some action' section if you actually need to do anything
'textboxy'.
Regards,
Fergus
If you use Option Strict On, you'll need
Dim oTextBox As TextBox = DirectCast (oChildControl, TextBox)
K
koffietje
Hi Ken, exactly what I was looking for! Thanks!
-----Original Message-----
Hi,
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf (ctrl) Is TextBox Then
Dim tb As TextBox = ctrl
If tb.Text = "" Then
tb.Text = "Empty"
End If
End If
Next
Ken
---------------------------------------
.
K
koffietje
Hi, Cor, all the information I needed ! thanks
-----Original Message-----
Hi Java,
When all textboxes are on the main form (windowform)
Rough written so don't look at typo's
\\\
dim ctr as control
for each ctr in me.controls
if typeof ctr is textbox then
if ctr.text <>"" then
'do something
end if
end if
next
///
If it is a webform "text" is not in the control and you have to cast it
first, but that is a problem itself, but I thought I have somewhere saved a
solution, so tell that than again.
I hope this helps a little bit,
Cor
.
K
koffietje
Hi Fergus,
Great information, thanks a lot!
Great information, thanks a lot!
-----Original Message-----
Hi Koffietje,
You need one of two methods depending on whether your TextBoxes are
directly on the Form or whether some are held within other Controls such as
Panels.
If all the TextBoxes are directly on the Form then the methods shown by
Cor and Ken will be fine.
If there are any TextBoxes inside other Controls then a recursive method
is required: An example is shown below. Form is a Control so it starts off
with the Form passing itself (Me).
In the Form:
CheckTheTextBoxes (Me)
Sub CheckTheTextBoxes (oControl As Control)
Dim oChildControl As Control
For Each oChildControl in oControl.Controls
If TypeOf (oChildControl) Is TextBox _
AndAlso oChildControl.Text = "" Then 'or
K
koffietje
Thanks a lot !!
-----Original Message-----
* "koffietje" <[email protected]> scripsit:
oads/EnumerateControls.zip>
--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>
.
H
Herfried K. Wagner [MVP]
* "koffietje said:Hi Ken, exactly what I was looking for! Thanks!
Notice that this code will not enumerate nested controls.
--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>
Improve your quoting style:
<http://learn.to/quote>
<http://www.plig.net/nnq/nquote.html>
C
Cor
Hi Herfried,
But the answer from Fergus does and Java was answering that also
Cor
Notice that this code will not enumerate nested controls.
But the answer from Fergus does and Java was answering that also
Cor
H
Herfried K. Wagner [MVP]
* "Cor said:But the answer from Fergus does and Java was answering that also
I know that...
--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>
Improve your quoting style:
<http://learn.to/quote>
<http://www.plig.net/nnq/nquote.html>
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.