| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1234 人关注过本帖, 1 人收藏
标题:vb 如何设置目录的对象变量
只看楼主 加入收藏
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
回复 10 楼 w360989426
你用这种方式解决问题了?我一般是这样解决的
funtion canOption(catalog as string)
'指定目录对应的控件可以执行操作
dim a as control
for each a in me.controls
  if a.name=catalog  then
    a.enabled=true    '该功能按钮有效
    exit function
  endif
next
end function

function noOptionAll
'所有操作按钮不能操作(假设所有按钮名称前四个字符为menu)
dim a as control
for each a in me.controls
  if left(a.name,4)="menu" then a.enabled=false
next
end function
2014-05-15 13:02
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 11 楼 xzlxzlxzl
我不知道你这样通不通过数据库,因为涉及到日后要让操作人员自己定义每个部门对于每个一级目录,每个职称对于二级目录的访问。所以我想到了这种方法
2014-05-15 13:26
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
关键在于你的达到什么目的。而不在实现方法。
我说的是另一种的实现方法。
而你的实现方法 从代码上来讲是无法直接实现的。

字符串不能直接生成对象,有名字,只能遍类所有的已知的对象,再去激活该对象。
而不能因为有字符串而创建对象。当然,WINDOWS 自带的对象除外,那种对象就是用字符串来创建的。

授人于鱼,不如授人于渔
早已停用QQ了
2014-05-15 15:35
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 13 楼 风吹过 b
问题我已经解决了,字符串可以成为对象名
字符 = Trim(Adodc1.Recordset.Fields("二级目录名称"))
        Set a = Controls(字符)
a.item(1).enabled=true
代码调试通过了。。我本来就是想问的这个问题,如果将字符串变为对象名
2014-05-15 16:01
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:7 
回复 14 楼 w360989426
这是一个好方法。
只要把有操作功能的按钮或菜单名称全部存储到数据库,即可用该方法对按钮或菜单使能或失效。11楼是通过扫描所有控件名称,判断是否和数据库存储的按钮名称是否相等来完成的,没有这种方法效率高,也不直观。
2014-05-15 18:02
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 15 楼 lowxiong
呵呵这个问题想了很久,就是被字符串转换成对象名给卡住了,现在解决了
2014-05-15 19:07
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
学习了,一直只会controls.add动态加载控件,还不知道可以这样。为什么不直接controls(控件名).enabled呢?不需要中间对象变量的。
2014-05-15 22:06
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 17 楼 xzlxzlxzl
不知道这样可不可以,没尝试过,
2014-05-15 22:14
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 17 楼 xzlxzlxzl
编写c|s 或者b|s的时候最好什么东西都能让用户自己定义,那才比较好
2014-05-15 22:24
快速回复:vb 如何设置目录的对象变量
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024152 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved