just being head strong but thats the way to learn... 2

[Almarton]

Hi all,

I have a vb code doing assignments to 100 text fields
like:

txtField1.Text = strCod

'... to ...

txtField100.Text = strCod


Is there a way to do a loop on those assignments
instead of writing 100 lines? I thought about
concatenating "txtField" + counter + ".Text = strCod"
but it would not be recognized as a command line code?
Can any of you pros find out this one? Or some alternative?

Thanks in advance!
Alexandre Marton
Almarton (BRAZIL)






Alexandre @lmarton Marton
almarton@task.com.br

 

[jonathanmb]

You could maybe loop through the Controls collection?

Dim ctrl As Control
    
For Each ctrl In Me.Controls
    If TypeOf ctrl Is TextBox Then
        ctrl.Text = strCod
    End If
Next

The above code would set the text of ALL TextBoxes on the Form to strCod, but this could be a starting point for you.

--
Jonathan

 

[Swi]

You could also try a control array.

For i = Text1.LBound To Text1.UBound
Text1(i).Text = "TestIt"
Next

Swi

 

[Almarton]

Ok , both answers are good though the code is extense and the text fields are not in array form. Also I cannot afford to change the text fields to array form (only if it was the only and last solution), so is there a way to execute a concatenated string as a VB command? Lets re-state:

"txtField" + counter + ".Text = someOtherVariable"

'where counter goes inside a for from 1 to 100


and after execute this string as a regular command line code (meaning: txtField.1.Text = someOtherVariable )



Alexandre @lmarton Marton
almarton@task.com.br

 

[poltergeist]

From where is coming the
= someOtherVariable
because your problem is not a loop for the Controls. Your problem is to have a sistem to creat a algorithm of your sources.

Peter Guhl
Chile


peterguhl@yahoo.de

 

[jonathanmb]

How about this idea...

For i = 1 To 100
   Controls("txtField" & i).Text = "Blah"
Next i

--
Jonathan

 

[Swi]

This is just modified code from above:

Dim ctrl As Control
Dim strCod As String
Private Sub Form_Load()
strCod = "TestIt"
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox And Left(ctrl.Name, 4) Like &quot;Text&quot; And Mid$(ctrl.Name, 5) < 101 Then
ctrl.Text = strCod
End If
Next
End Sub

Swi

 

[CCLINT]

Along with the Control loop, you could just add your own &quot;Index&quot; or ID to the control's Tag property at design time.

Then in the loop:
Select Case ctrl.Tag
Case 0
ctrl.Text = strCod(ctrl.Tag) 'An Array of data
'Or just a string
'ctrl.Text = strCod
Case 1
.
.
.
End Select

OR, to permanently (Run time) link a control to a certain VARIABLE, use the variable name in the Tag property:

Select Case UCase$(ctrl.Tag)
Case &quot;STRCOD&quot;
ctrl.Text = strCod
Case 1
.
.
.
End Select

 

[Almarton]

Great solution SWI, I can only say (Cartman way)

- THAT DOES IT!

you rule man.
Thanks.

Alexandre @lmarton Marton
almarton@task.com.br