|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：Paladin 日期：2005-8-4 11:32:22 |
|
|
一、利用ＡＰＩ 获取窗口的标题 ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓 码：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ Ｌｉｂ ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ ＂Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
Ｌｏｎｇ ，ＢｙＶａｌ ｌｐＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｃｃｈ Ａｓ
Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
＇在窗体声明节中加入ＡＰＩ 函数“Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ 中载入要获得的窗体ｃａｐｔｉｏｎ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｄｉ ｍｃａｐｔｅｘｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉ ｍｃａｐｌｅｎ Ａｓ Ｌｏｎｇ
ｃａｐｔｅｘｔ ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ ＝９９
ｒｅｔｕｒｎｃｏｄｅ ＝Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌ ｍｅ ．ｈｗｎｄ ，
ＢｙＶａｌ ｃａｐｔｅｘｔ ，ＢｙＶａｌ ｃａｐｌｅｎ）
ｐｒｉｎｔ ｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔ ｃａｐｔｅｘｔ
Ｐｒｉｎｔ ｃａｐｌｅｎ
Ｅｎｄ Ｓｕｂ
二、获取鼠标在当前窗口（客户区）的屏幕坐标 そ 立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ ぴ诖疤迥？橹惺淙耄邯
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＣｕｒｓｏｒＰｏｓ Ｌｉｂ ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔ Ａｓ ＰＯＩＮＴＡＰＩ）Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｔｙｐｅ ＰＯＩＮＴＡＰＩ
ＸＡｓ Ｌｏｎｇ Ｙ Ａｓ Ｌｏｎｇ
Ｅｎｄ Ｔｙｐｅ
Ｄｉ ｍｐｔ Ａｓ ＰＯＩＮＴＡＰＩ
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝＂＂
ＭａｘＢｕｔｔｏｎ ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ ＝２
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，
Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）
＇注意ｐｔ 结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ ＝ｐｔ ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ ＝ｐｔ ．Ｙ
Ｅｎｄ Ｓｕｂ
三、记录Ｗｉ ｎｄｏｗｓ 使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂启动ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂关闭ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ
Ｅｎｄ Ｓｕｂ
最后将此程序加入启动组即可。（ |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： Paladin |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:32:22 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]