| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → 数据库技术 → 『 VFP论坛 』 → 请教高手：怎样在程序运行中获取当前屏幕和控件的名称？
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 1537 人关注过本帖
标题：请教高手：怎样在程序运行中获取当前屏幕和控件的名称？
只看楼主 加入收藏
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14
结帖率：90.48%
楼主
收藏
 问题点数：0 回复次数：7 
请教高手：怎样在程序运行中获取当前屏幕和控件的名称？
先在此谢了！
搜索更多相关主题的帖子: 控件　屏幕　名称　
2008-07-08 09:18
wzxc
Rank: 9Rank: 9Rank: 9
来　自：齐鲁大地
等　级：贵宾
威　望：39
帖　子：985
专家分：1296
注　册：2006-4-25
第 2 楼
收藏
 得分:0 
_Screen.ActiveForm.Controls(I).Name

认真看书学习，弄通Fox主义。
2008-07-08 11:02
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14
第 3 楼
收藏
 得分:0 
谢谢指教！
再问一句：函数知道了，但_Screen.ActiveForm.Controls(I).Name中的I由什么来确定？谢谢！
2008-07-08 16:38
wzxc
Rank: 9Rank: 9Rank: 9
来　自：齐鲁大地
等　级：贵宾
威　望：39
帖　子：985
专家分：1296
注　册：2006-4-25
第 4 楼
收藏
 得分:0 
举个例子:
For  I =1 To  _Screen.ActiveForm.ControlCount
  If Upper( _Screen.ActiveForm.Controls(I).Name)=Upper('Mycmdprint') Or  Upper( _Screen.ActiveForm.Controls(I).Name)=Upper('Cmdprint')
   _Screen.ActiveForm.Controls(I).Click
  Endif
Endfor

认真看书学习，弄通Fox主义。
2008-07-08 18:39
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14
第 5 楼
收藏
 得分:0 
感谢回复
谢谢指教！
2008-07-09 09:01
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14
第 6 楼
收藏
 得分:0 
我试了一下，有点问题
系统提示：找不到变量 'Cmdprint'
帮助文件里也查不到啊？
2008-07-09 09:21
wzxc
Rank: 9Rank: 9Rank: 9
来　自：齐鲁大地
等　级：贵宾
威　望：39
帖　子：985
专家分：1296
注　册：2006-4-25
第 7 楼
收藏
 得分:0 
甲学校五年级一班有个同学叫张三。你能保证乙学校五年级三班也有个同学叫张三？
你跑到乙学校五年级三班找叫张三的同学，找不到，很纳闷，甲学校有，乙学校为什么找不到呢？
我的控件我起了名字叫 'Cmdprint'，你的控件的名字也叫 'Cmdprint'？
我只是举了个例子，你却这般机械照搬！不会举一反三？
继续努力吧！

认真看书学习，弄通Fox主义。
2008-07-09 20:20
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14
第 8 楼
收藏
 得分:0 
感谢回复
是我的问题提得不明确,另发个帖子重换个问法吧!
2008-07-09 21:46
快速回复：请教高手：怎样在程序运行中获取当前屏幕和控件的名称？
数据加载中...
 
　　　



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

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