vb6 - VB Control Naming by Variable

Question

Dim LineNo as Integer

LineNo = CStr(channel) 'This can have a value of 1 to 100

If LineNo = 1 then
    Text1.Text = "Line one selected"
    Elseif LineNo = 2 then
    Text2.Text = "Line one selected"
    'Etc etc
End if

I need to replace the number "1" in Text1.Text and every other TextBox with the value of LineNo? For example:

Text{LineNo}.Text

So I would not have to do a repeated "If" and have a smaller one line code like this:

Text{LineNo}.Text = "Line " & LineNo & " selected"

How would I do this?

question from:https://stackoverflow.com/questions/65877820/vb-control-naming-by-variable

Answer 1

Look into a Control array of text boxes. You could have txtLine(), for example, indexed by the channel number.

 LineNo = CStr(channel)

 txtLine(channel).Text = "Line " & LineNo & " selected"

To create the array, set the Index property of each of the text boxes to an increasing integer, starting at 0.