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

2016-02-19 14:22 8 1 收藏

今天图老师小编给大家介绍下VB编程实用精典小技巧3例，平时喜欢VB编程实用精典小技巧3例的朋友赶紧收藏起来吧！记得点赞哦~

【 tulaoshi.com - 编程语言】

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

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

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

来源:http://www.tulaoshi.com/n/20160219/1606847.html

上一篇： Win7/xp文件夹选项打开方法
下一篇： Jquery实战_读书笔记1—选择jQuery

看过《VB编程实用精典小技巧3例》的人还看了以下文章更多>>

VB6.0初学者的10个编程小技巧

标签：编程语言网络编程

1、如果一行程序太长，能不能换行？ VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如： SubPicMove() Frm.Picture2.Left=Frm.Picture1.Left _’加上换行符 Frm.Picture1.Width EndSub 2、如何在设计的时候清空存在的图片？用鼠标点中该图片，在属性窗口中选中Pict...

windows IE浏览器精典技巧两则

标签： windows 操作系统

申请账户往往时需要在网页的输入框中填写一大堆个人资料，此时可以用Tab/Shift+Tab来切换各输入窗口，前者切到下个输入框，后者返回上个。要在浏览器地址栏输入网址，使用Alt+D快捷键可直接把地址栏的信息选中。另外，在地址栏中输入网址时，不用每次都敲完网站URL的全名，如： www.cctv.com，用Alt+D选中地址栏后，直接输入“c...

VB编程问与答

标签：编程语言网络编程

1．如何让文本框只接受数字？答：使用如下代码，在文本框的按键事件中加入： PrivateSubTextl_KeyPress（KeyAsciiAsInteger） IfkeyAscii=33Then IfKeyAscii=vbkey9AndKeyAscii=vbKey0Then Else'把KeyAscii设为0就是取消输入。 KeyAscii=0 MsgBox”不要输入数字！” EndIf EndIf EndSub 注...

一组VB实用小程序

标签：编程语言网络编程

用VB实现编程离不开函数调用及WindowsAPI函数的调用，以下是笔者收集的一些实用的小例程，它们可以直接用在你的实际编程中，也可以根据实际应用加以扩充完善。其中涉及WindowsAPI函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容，以避免出错。 1.系统型表单系统型意味着用户完成当前表单操作之前无法进行其它操作，...

系统使用技巧3例

标签： windows 操作系统

电脑使用中总是能遇到许多让人哭笑不得的问题。微软官方关于解决软件问题的通用操作就是“重启一下机器”^_^，这说明许多问题是打不清的官司。虽然仔细地找都能找到一个比较合理地解释，得到一个比较可行地方案。但是这么以来我们将会浪费不少时间。适当地应用一些技巧，我们不需要知道太多的知识也能解决问题的。而且省下了不少时间。 ...

查看更多精彩>>