| 本月文章推荐 |
VisualBasic6.0实用编程技巧3例发表日期：2006-2-27
|
|
一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ— ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓ Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ Ｌｏｎｇ）ＡｓＬｏｎｇ ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明 ＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（） ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０） ｃａｐｌｅｎ＝９９ ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ， ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ） ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ Ｐｒｉｎｔｃａｐｔｅｘｔ Ｐｒｉｎｔｃａｐｌｅｎ ＥｎｄＳｕｂ 二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯 ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂ （ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ ＥｎｄＴｙｐｅ ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（） Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂ Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ ＥｎｄＳｕｂ ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ， ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ） ＇注意ｐｔ结构是按引用传递的 ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ） Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ ＥｎｄＳｕｂ 三、记录Ｗｉｎｄｏｗｓ使用时间 建立新项目窗口ｆｏｒｍ１，输入代码： ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（） ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１ Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ） Ｃｌｏｓｅ＃１ ＥｎｄＳｕｂ ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ） Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１ Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ） Ｃｌｏｓｅ＃１ Ｅｎｄ ＥｎｄＳｕｂ 最后将此程序加入启动组即可。（-> |
| 上一篇：如何自动移动Mouse
人气:3088 下一篇：VB网络篇游戏编程技巧指南 人气:4050 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
