【对我来说比较难的题,,,】假如 cMenu 的类型是 CommandButton 那么.....

sq03

Dim a As Control
For Each a In Me.Controls
Print a.Name
Next

上面这段代码是 列出窗体所有已加载对象的名字 ,

我获取到这些名字之后，能根据这名字  取得它是哪种类型的吗 ？  比如：


private function getobjtype(objName as  string) as string   这里 如果 可以定义成 object 的话是不是就要逆天了?  
  ........
     ........  '这用如果 callbyname 我表示不会,或者说很无力
  .......
end  function

输入  call getobjtype ("cmenu") 返回是 commandbutton

输入 call  getobjtype ("ctext") 返回是 textbox

19900603

Dim a As Control
For Each a In Me.Controls
Print a.Name, TypeName(a)
Next

sq03

19900603 发表于 2015-10-23 11:25
Dim a As Control
For Each a In Me.Controls
Print a.Name, TypeName(a)

先谢谢大神！  我还发现了 VarType