Looping through a bunch of text boxes

[Edward]

VB.NET

I have a bunch of textboxes on my form

txtPart1
txtPart2
....
txtPart16

When the user presses "Ok", I need to concatenate the values into a
single string and paste it into an email.

I wondered about this (AIR CODE):

Dim strParts As String
Dim iintIndex As Integer

For iintIndex = 1 To 16 Step 1
strParts &= Me.txtPart & iintIndex.ToStr ing.Text
Next

Is something like this possible? I realise the above is syntactically
incorrect, by the way!

TIA

Edward
--
The reading group's reading group:
http://www.bookgroup.org.uk

[Cor]

Hi Edward,

There are a lot of posibilities,

This is one that I find at this moment the nicest.
(This sample delete the spaces in front and end in textbox1 and textbox2).

I hope this helps?

\\\
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim txtboxarea As TextBox() = New TextBox() {TextBox1, TextBox2}
For Each txt As TextBox In txtboxarea
AddHandler txt.LostFocus, AddressOf TextBox_LostFoc us
Next
End Sub
Private Sub TextBox_LostFoc us(ByVal sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, TextBox).Text = _
Trim(DirectCast (sender, TextBox).Text)
End Sub
///
Cor

[Rigga]

Dim fullString as String
For each ctrl as Control in me.Controls
If TypeOf(ctrl) is TextBox Then
fullString += ctrl.Text
End If
End For

HTH

Rigga.

"Edward" <te********@hot mail.com> wrote in message
news:25******** *************** ***@posting.goo gle.com...

VB.NET

I have a bunch of textboxes on my form

txtPart1
txtPart2
...
txtPart16

When the user presses "Ok", I need to concatenate the values into a
single string and paste it into an email.

I wondered about this (AIR CODE):

Dim strParts As String
Dim iintIndex As Integer

For iintIndex = 1 To 16 Step 1
strParts &= Me.txtPart & iintIndex.ToStr ing.Text
Next

Is something like this possible? I realise the above is syntactically
incorrect, by the way!

TIA

Edward
--
The reading group's reading group:
http://www.bookgroup.org.uk

[Herfried K. Wagner [MVP]]

* te********@hotm ail.com (Edward) scripsit:

I have a bunch of textboxes on my form

txtPart1
txtPart2
...
txtPart16

When the user presses "Ok", I need to concatenate the values into a
single string and paste it into an email.

\\\
Dim atxt() As TextBox = {TextBox1, ..., TextBox16}
Dim txt As TextBox
For Each txt In atxt
...
Next txt
///
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet/>

[Edward]

te********@hotm ail.com (Edward) wrote in message news:<25******* *************** ****@posting.go ogle.com>...

VB.NET

I have a bunch of textboxes on my form

txtPart1
txtPart2
...
txtPart16

When the user presses "Ok", I need to concatenate the values into a
single string and paste it into an email.

I wondered about this (AIR CODE):

Dim strParts As String
Dim iintIndex As Integer

For iintIndex = 1 To 16 Step 1
strParts &= Me.txtPart & iintIndex.ToStr ing.Text
Next

Is something like this possible? I realise the above is syntactically
incorrect, by the way!

TIA

Edward

All excellent suggestions - many thanks!

Edward