Visual Basic6.0实用编程技巧3例

新客网 XKER.COM 2007-02-01 来源：收藏本文

一、利用ＡＰＩ获取窗口的标题新建窗体Ｆｏｒｍ１和按钮Ｃｏｍｍａｎｄ１在窗体模块中添加如下代码：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓ
Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ
Ｌｏｎｇ）ＡｓＬｏｎｇ
＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ
ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ
ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ＝９９
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，
ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）
ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔｃａｐｔｅｘｔ
Ｐｒｉｎｔｃａｐｌｅｎ
ＥｎｄＳｕｂ
 二、获取鼠标在当前窗口（客户区）的屏幕坐标建立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２在窗体模块中输入：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ
ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ
ＸＡｓＬｏｎｇ ＹＡｓＬｏｎｇ
ＥｎｄＴｙｐｅ
ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂
ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，
ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
＇注意ｐｔ结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ
ＥｎｄＳｕｂ
 三、记录Ｗｉｎｄｏｗｓ使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
Ｅｎｄ
ＥｎｄＳｕｂ
 最后将此程序加入启动组即可。（

上一篇：如何使用程序自动移动Mouse 下一篇：教你认识VB的座标系统

【收藏】【评论】【推荐】【投稿】【打印】【关闭】