Visual Basic6.0实用编程技巧3例
添加时间: 2006-2-16 5:44:13 作者: VB教程 阅读次数:92 来源: http://www.d9soft.com
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ Ｌｉｂ ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ ＂Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
Ｌｏｎｇ ，ＢｙＶａｌ ｌｐＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｃｃｈ Ａｓ
Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
＇在窗体声明节中加入ＡＰＩ 函数“Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ 中载入要获得的窗体ｃａｐｔｉｏｎ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｄｉ ｍｃａｐｔｅｘｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉ ｍｃａｐｌｅｎ Ａｓ Ｌｏｎｇ
ｃａｐｔｅｘｔ ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ ＝９９
ｒｅｔｕｒｎｃｏｄｅ ＝Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌ ｍｅ ．ｈｗｎｄ ，
ＢｙＶａｌ ｃａｐｔｅｘｔ ，ＢｙＶａｌ ｃａｐｌｅｎ）
ｐｒｉｎｔ ｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔ ｃａｐｔｅｘｔ
Ｐｒｉｎｔ ｃａｐｌｅｎ
Ｅｎｄ Ｓｕｂ
二、获取鼠标在当前窗口（客户区）的屏幕坐标建立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２在窗体模块中输入：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＣｕｒｓｏｒＰｏｓ Ｌｉｂ ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔ Ａｓ ＰＯＩＮＴＡＰＩ）Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｔｙｐｅ ＰＯＩＮＴＡＰＩ
ＸＡｓ Ｌｏｎｇ Ｙ Ａｓ Ｌｏｎｇ
Ｅｎｄ Ｔｙｐｅ
Ｄｉ ｍｐｔ Ａｓ ＰＯＩＮＴＡＰＩ
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝＂＂
ＭａｘＢｕｔｔｏｎ ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ ＝２
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，
Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）
＇注意ｐｔ 结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ ＝ｐｔ ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ ＝ｐｔ ．Ｙ
Ｅｎｄ Ｓｕｂ
三、记录Ｗｉ ｎｄｏｗｓ 使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂启动ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂关闭ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ
Ｅｎｄ Ｓｕｂ
最后将此程序加入启动组即可。（
上下文章:
上一篇文章: 教你认识VB的座标系统 下一篇文章: 如何使用程序自动移动Mouse
相关文章: