VB编程实用精典小技巧3例

一、利用ＡＰＩ 获取窗口的标题
新建窗体Ｆｏｒｍ１和按钮Ｃｏｍｍａｎｄ１ ぴ诖疤迥？橹刑砑尤缦麓 码：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ Ｌｉｂ ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ ＂Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
Ｌｏｎｇ ，ＢｙＶａｌ ｌｐＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｃｃｈ Ａｓ
Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
＇在窗体声明节中加入ＡＰＩ 函数“Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ 中载入要获得的窗体ｃａｐｔｉｏｎ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｄｉ ｍｃａｐｔｅｘｔ Ａｓ Ｓｔｒｉｎｇ
Ｄｉ ｍｃａｐｌｅｎ Ａｓ Ｌｏｎｇ
ｃａｐｔｅｘｔ ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ ＝９９
ｒｅｔｕｒｎｃｏｄｅ ＝Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌ ｍｅ ．ｈｗｎｄ ，
ＢｙＶａｌ ｃａｐｔｅｘｔ ，ＢｙＶａｌ ｃａｐｌｅｎ）
ｐｒｉｎｔ ｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔ ｃａｐｔｅｘｔ
Ｐｒｉｎｔ ｃａｐｌｅｎ
Ｅｎｄ Ｓｕｂ

二、获取鼠标在当前窗口（客户区）的屏幕坐标 そ 立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ ぴ诖疤迥？橹惺淙耄邯
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＣｕｒｓｏｒＰｏｓ Ｌｉｂ ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔ Ａｓ ＰＯＩＮＴＡＰＩ）Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｔｙｐｅ ＰＯＩＮＴＡＰＩ
ＸＡｓ Ｌｏｎｇ Ｙ Ａｓ Ｌｏｎｇ
Ｅｎｄ Ｔｙｐｅ
Ｄｉ ｍｐｔ Ａｓ ＰＯＩＮＴＡＰＩ
Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝＂＂
ＭａｘＢｕｔｔｏｎ ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ ＝２
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（Ｂｕｔｔｏｎ Ａｓ Ｉｎｔｅｇｅｒ ，
Ｓｈｉｆｔ Ａｓ Ｉｎｔｅｇｅｒ ，ＸＡｓ Ｓｉｎｇｌｅ ，Ｙ Ａｓ Ｓｉｎｇｌｅ）
＇注意ｐｔ 结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ ＝ｐｔ ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ ＝ｐｔ ．Ｙ
Ｅｎｄ Ｓｕｂ

三、记录Ｗｉ ｎｄｏｗｓ 使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂启动ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
Ｏｐｅｎ ａｐｐ ．ｐａｈｔ ＋＂ｍｅｍｏ ．ｔｘｔ＂Ｆｏｒ Ａｐｐｅｎｄ Ａｓ ＃１
Ｐｒｉｎｔ ＃１，＂关闭ｗｉｎｄｏｗｓ ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ ＃１
Ｅｎｄ
Ｅｎｄ Ｓｕｂ
最后将此程序加入启动组即可。

上一篇： 如何自动移动Mouse
下一篇： Visual Basic6.0实用编程技巧3例

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有