如以下代码:
Dim a as String
Dim b as Object
a="Text1"
Set b=a
b.Text="123"在程序运行中,读取到的a值可能是任意的控件名。现在希望,得到字符串类型的控件名后,转化为对象类型使用。这样写代码行不通,有没有别的什么办法?直接把a设置成Object类型又不能赋值。请高手指教!

解决方案 »

  1.   

    Dim frmTemp As Object
        For Each frmTemp In Object
           If frmTemp.Name = frmName Then
              '
              Exit For
           End If
        Next
      

  2.   

    修改一下
    Dim b As Object
        For Each b In Object
           If b.Name = "Text1"Then
              b.Text="123"
              Exit For
           End If
        Next
      

  3.   

    同意tztz520(午夜逛街) 了。
      

  4.   

    callbyname
    不过已有人回答过,楼主应先结旧贴!