VisualBasic6.0实用编程技巧3例

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