Use a variable name as a control

[Jeff G]

Hi,
How can I use a variable as a control name?
I'll try to make sample code very simple.

 names(1)='treeOrders'
names(2)='treeProducts'
names(3)='treeInvoices'
 
for i = 1 to 3 
    tv='frmMainMenu' & names(i)
    tv.node.add='abc'
    tv.node.add='123'
next i
 

My problem is that I do not know how to make "tv" a valid control.

[QVeen72]

Hi,
How can I use a variable as a control name?
I'll try to make sample code very simple.

 names(1)='treeOrders'
names(2)='treeProducts'
names(3)='treeInvoices'
 
for i = 1 to 3 
    tv='frmMainMenu' & names(i)
    tv.node.add='abc'
    tv.node.add='123'
next i
 

My problem is that I do not know how to make "tv" a valid control.

Hi,

Check this :

  Dim tv
  Dim ctl
  Dim i As Integer
  For i = 1 To 3
    For Each ctl In Me.Controls
        If ctl.Name = names(i) Then
            Set tv = Nothing
            Set tv = ctl
             tv.node.add='abc'
             tv.node.add='123'
            Exit For
        End If
    Next
  Next i
 

Regards
Veena

[Jeff G]

I think my example might have been too simple and I did not explain enough.

I have a tabControl with a treeView on each tab.
Each tree will have a name like treeXXXXX (see names() in code sample). There is a data file for each tree with the same name as the tree.
I will read a text file for each tree to get the data to populate the trees.
The code is more like this: (I am new to VB. I realize my read & loop code is not correct. I am only interested in how to assign the string variable to the control name.)

 names(1)='treeOrders'
names(2)='treeProducts'
names(3)='treeInvoices'
for i = 1 to 3 
     read stuff from files, names(i) 
     tv='frmMainMenu.' & names(i) '<-- this needs to be the name of the tree
     for j = 1 to lines.in.stuff
        tv.node.add=stuff(j) '<-- this is probably my big problem
     next j
next i

So...
line 6 creates a string with the name of the control.
something prior to line 8 has to convert the string "tv" to a control.name.

The ability to do this is key to my application. I assume I can do things like:
nm="TxtName"
nm.text='Jim'
This will obviously not work either because nm is a string, not a control. I think the solution to the code sample will give me the answer to this and other similar needs.

Thanks. (Sorry to be so verbose!)

[alan4cast]

The ability to do this is key to my application. I assume I can do things like:
nm="TxtName"
nm.text='Jim'

Actually, you can't do that directly.

You need to define a Control variable and set that variable to be the one that you're trying to match. Or create a new one (if that's what you want).

Instead of the above, all of the controls in the form are in a collection called "Controls", thus Veena's description of "Me.Controls" listed in that code.

So, to go further, you need to parse through the controls (or better yet, make your own collection of the treeviews that you're looking for, with the name as the index), find the one that you're looking for, then assign the values that you want.

pseudocode example

 
Dim myTreeViews as Collection
 
Public Sub Form_Load()
  Set myTreeViews as New Collection
  myTreeviews.Add me.TreeView1, Me.Treeview1.Name
  myTreeviews.Add me.TreeView2, Me.Treeview2.Name
  myTreeviews.Add me.TreeView3, Me.Treeview3.Name
End Sub
 
Public Sub LoadFileName(TreeViewName as String)
  Dim tv as TreeView
  Set tv = myTreeViews(TreeViewName)
  tv.Text = "Whatever"
End Sub
 

[Jeff G]

Thanks,

This is starting to make some sense to me.

You idea should let me accomplish what I'm trying to do.