Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ Ｌｉｂ ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ ＂Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
Ｌｏｎｇ ，ＢｙＶａｌ ｌｐＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｃｃｈ Ａｓ
Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
＇在窗体声明节中加入ＡＰＩ 函数“Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ 中载入要获得的窗体ｃａｐｔｉｏｎ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｄｉ ｍｃａｐｔｅｘｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉ ｍｃａｐｌｅｎ Ａｓ Ｌｏｎｇ
ｃａｐｔｅｘｔ ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ ＝９９
ｒｅｔｕｒｎｃｏｄｅ ＝Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌ ｍｅ ．ｈｗｎｄ ，
ＢｙＶａｌ ｃａｐｔｅｘｔ ，ＢｙＶａｌ ｃａｐｌｅｎ）
ｐｒｉｎｔ ｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔ ｃａｐｔｅｘｔ
Ｐｒｉｎｔ ｃａｐｌｅｎ
Ｅｎｄ Ｓｕｂ
二、获取鼠标在当前窗口（客户区）的屏幕坐标 そ 立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ ぴ诖疤迥？橹惺淙耄邯
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＣｕｒｓｏｒＰｏｓ Ｌｉｂ ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔ Ａｓ ＰＯＩＮＴＡＰＩ）Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｔｙｐｅ ＰＯＩＮＴＡＰＩ
ＸＡｓ Ｌｏｎｇ Ｙ Ａｓ Ｌｏｎｇ
Ｅｎｄ Ｔｙｐｅ
Ｄｉ ｍｐｔ Ａｓ ＰＯＩＮＴＡＰＩ
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝＂＂
ＭａｘＢｕｔｔｏｎ ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ ＝２
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，
Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）
＇注意ｐｔ 结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ ＝ｐｔ ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ ＝ｐｔ ．Ｙ
Ｅｎｄ Ｓｕｂ
三、记录Ｗｉ ｎｄｏｗｓ 使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂启动ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂关闭ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ
Ｅｎｄ Ｓｕｂ
最后将此程序加入启动组即可。（
上一篇： VB网络篇游戏编程技巧指南
下一篇： 教你认识VB的座标系统
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
