| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦   
共有 483 人关注过本帖
标题:请教高手:怎样在程序运行中获取当前屏幕和控件的名称?
收藏  订阅  推荐  打印
qjbzjp
Rank: 12Rank: 12Rank: 12
等级:版主
帖子:271
积分:3699
威望:6
来自: 山西
注册:2007-3-14
请教高手:怎样在程序运行中获取当前屏幕和控件的名称?

先在此谢了!
2008-7-8 09:18
wzxc
Rank: 12Rank: 12Rank: 12
等级:贵宾
帖子:468
积分:5424
威望:17
注册:2006-4-25

_Screen.ActiveForm.Controls(I).Name

生命不息,冲锋不止! 坚持vfp到最后一刻!
2008-7-8 11:02
qjbzjp
Rank: 12Rank: 12Rank: 12
等级:版主
帖子:271
积分:3699
威望:6
来自: 山西
注册:2007-3-14
谢谢指教!

再问一句:函数知道了,但_Screen.ActiveForm.Controls(I).Name中的I由什么来确定?谢谢!
2008-7-8 16:38
wzxc
Rank: 12Rank: 12Rank: 12
等级:贵宾
帖子:468
积分:5424
威望:17
注册:2006-4-25

举个例子:
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

生命不息,冲锋不止! 坚持vfp到最后一刻!
2008-7-8 18:39
qjbzjp
Rank: 12Rank: 12Rank: 12
等级:版主
帖子:271
积分:3699
威望:6
来自: 山西
注册:2007-3-14
感谢回复

谢谢指教!
2008-7-9 09:01
qjbzjp
Rank: 12Rank: 12Rank: 12
等级:版主
帖子:271
积分:3699
威望:6
来自: 山西
注册:2007-3-14
我试了一下,有点问题

系统提示:找不到变量 'Cmdprint'
帮助文件里也查不到啊?
2008-7-9 09:21
wzxc
Rank: 12Rank: 12Rank: 12
等级:贵宾
帖子:468
积分:5424
威望:17
注册:2006-4-25

甲学校五年级一班有个同学叫张三。你能保证乙学校五年级三班也有个同学叫张三?
你跑到乙学校五年级三班找叫张三的同学,找不到,很纳闷,甲学校有,乙学校为什么找不到呢?
我的控件我起了名字叫 'Cmdprint',你的控件的名字也叫 'Cmdprint'?
我只是举了个例子,你却这般机械照搬!不会举一反三?
继续努力吧!

生命不息,冲锋不止! 坚持vfp到最后一刻!
2008-7-9 20:20
qjbzjp
Rank: 12Rank: 12Rank: 12
等级:版主
帖子:271
积分:3699
威望:6
来自: 山西
注册:2007-3-14
感谢回复

是我的问题提得不明确,另发个帖子重换个问法吧!
2008-7-9 21:46
共有 482 人关注过本帖
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.047601 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved