如何根据控件名称来获取控件对象

Question

如何根据控件名称如： "CmdOpen" 来找到 该对象
   类似
         object ob=Getobj("CmdOpen")

Answer 1

dim tCol as control
dim Obj as object
for each tcol in form1
              if tcol.name="CmdOpen" then
                  set obj=tcol
                  exit for
              end if        
next

Answer 2

Me.Controls("Command1").Caption = "dfgdfg"

Answer 3

用Controls集合
Controls中指定控件名称即可
Me.Controls("Command1")，Me.Controls("CmdOpen")
如果还设计只知道函数名称调用问题可以使用
callbyname函数