VisualBasic6.0实用编程技巧3例

核心提示：一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇ

一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓ
Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ
Ｌｏｎｇ）ＡｓＬｏｎｇ
＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ
ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ
ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ＝９９
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，
ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）
ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔｃａｐｔｅｘｔ
Ｐｒｉｎｔｃａｐｌｅｎ
ＥｎｄＳｕｂ
二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ
ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ
ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ
ＥｎｄＴｙｐｅ
ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂
ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，
ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
＇注意ｐｔ结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ
ＥｎｄＳｕｂ
三、记录Ｗｉｎｄｏｗｓ使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
Ｅｎｄ
ＥｎｄＳｕｂ
最后将此程序加入启动组即可。（->