| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 352 人关注过本帖
标题:控件名称含有变量的问题
只看楼主 加入收藏
diponds
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2014-11-24
结帖率:50%
收藏
 问题点数:0 回复次数:3 
控件名称含有变量的问题
fram1中的按钮名称为“甲”,“乙”。点击后,当前项目=“甲”,或“乙”

Select Case Index
Case 1
   当前项目 = "甲"
Case 2
   当前项目 = "乙"
  End Select

fram2中有“甲_lable","乙_label"等控件,按钮2点击后,将相应lable的caption打印到picturebox上。

按钮2代码:picture1.print.fram2.当前项目_lable.caption

在模块中已写有:Public 当前项目 As String

提示未找到方法或数据成员。请教各位,先谢谢了。
搜索更多相关主题的帖子: 项目 
2015-04-03 10:59
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
使用
callbyname
这个函数。

=========================
CallByName 函数

执行一个对象的方法,或者设置或返回一个对象的属性。
语法

CallByName(object, procedurename, calltype,[arguments()])

CallByName 函数的语法有以下部分:

部分 描述
object 必需的;变体型(对象)。函数将要执行的对象的名称。
procedurename 必需的;变体型(字符串)。一个包含该对象的属性名称或者方法名称的字符串表达式。
calltype 必需的;常数。一个 vbCallType 类型的常数,代表正在被调用的过程的类型。
arguments() 可选的:变体型(数组)。


说明

CallByName 函数用于获取或者设置一个属性,或者在运行时使用一个字符串名称来调用一个方法。

在下面的例子中,第一行使用 CallByName 来设置一个文本框的 MousePointer 属性,第二行得到 MousePointer 属性的值,第三行调用 Move 方法来移动文本框:

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

==================
以下代码测试能用。VB6+WIN7。
Print CallByName(Form1, "甲_lable", VbGet)

授人于鱼,不如授人于渔
早已停用QQ了
2015-04-03 11:16
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:0 
print后面多了个点
2015-04-03 13:43
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
回 3楼:

真是没注意去看他的代码。
只看了标题。

授人于鱼,不如授人于渔
早已停用QQ了
2015-04-03 16:06
快速回复:控件名称含有变量的问题
数据加载中...
 
   



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

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