Referring a VB control via its name in string format

06-22-2004, 05:29 AM

recaigirgin recaigirgin is offline

Freshman

Join Date: Jan 2004

Location: İstanbul

Posts: 26

Referring a VB control via its name in string format

Hi,
I have menu items of which names are as subMenu(0), subMenu(1), etc. on the main form. I can use the properties of these items such that subMenu(0).visible = true.
What I would like to do is, I have a string which is "subMenu(0)" and I want to use this string in order to refer my actual control subMenu(0), so that after getting the value of the string, I can perform the "subMenu(0).visible = true" operation.
Is there a way in VB?

__________________
Funny but not easy...

06-22-2004, 05:48 AM

bluelotus

Centurion

Join Date: Apr 2004

Posts: 172

you can declare a variable as a Menu Control and then can use that variable instead

eg:

Code:

Dim mnuStr As Menu

then

Code:

set mnuStr = subMenu(0)

after this u can use "mnuStr.visible = true"

all the best...

06-22-2004, 06:33 AM

Zahartor

Junior Contributor

Join Date: Sep 2003

Location: Montreal, canada

Posts: 231

you can use the function:
controls("putstring").objetProperty

06-22-2004, 06:42 AM

Zahartor

Junior Contributor

Join Date: Sep 2003

Location: Montreal, canada

Posts: 231

for arrays:

Code:

'i have a textbox -> text1
    Dim strName As String
  Dim intNumber As Integer
  
  strName = Left("text1(0)", Len("text1(0)") - 3)
  intNumber = CInt(Mid("text1(0)", Len("text1(0)") - 1, 1))

  Controls(strName)(intNumber).Text = "chien"

06-22-2004, 06:54 AM

recaigirgin recaigirgin is offline

Freshman

Join Date: Jan 2004

Location: İstanbul

Posts: 26

Thx

Controls function worked fine. Thx a lot for yor help.

Quote:

Originally Posted by Zahartor

for arrays:

Code:

'i have a textbox -> text1
    Dim strName As String
  Dim intNumber As Integer
  
  strName = Left("text1(0)", Len("text1(0)") - 3)
  intNumber = CInt(Mid("text1(0)", Len("text1(0)") - 1, 1))

  Controls(strName)(intNumber).Text = "chien"

__________________
Funny but not easy...