VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2406|回复: 2

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

[复制链接]
发表于 2015-10-23 03:00:17 | 显示全部楼层 |阅读模式

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


发表于 2015-10-23 11:25:29 | 显示全部楼层
Dim a As Control
For Each a In Me.Controls
Print a.Name, TypeName(a)
Next
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-10-23 16:00:51 | 显示全部楼层
19900603 发表于 2015-10-23 11:25
Dim a As Control
For Each a In Me.Controls
Print a.Name, TypeName(a)

先谢谢大神!  我还发现了 VarType  
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-30 18:41

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表