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

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

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

【 tulaoshi.com - 编程语言】

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

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

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

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

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

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

ListBox编程两例

标签：编程语言网络编程

1。为ListBox添加水平方向的滚动条 SendMessage (ListBox1-Handle,LB_SETHORIZONTALEXTENT,ListBox1-Width + 32,0) ; 2。为Listbox添加图标首先需要设置Listbox的Style属性为lbOwnerDrawVariable; const margin = 2 ; // Margin around each bitmap //----------------------------------------------------------...

VB编程问与答

标签：编程语言网络编程

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

《巫师3 狂猎》实用小技巧分享

《巫师3 狂猎》实用小技巧分享《巫师3：狂猎》中很多新手玩家对于游戏操作系统不太了解，今天给大家带来实用小技巧，一起来看看吧。 + 按L1打开法印选单后按方块可以直接进入冥想(打坐)模式。 + 冥想打坐以后血回自动回满，就算只坐一个小时也会回满，所以如果周围没有敌人，不用吃东西，直接打坐一个小时即可。 + 按住触...

windows IE浏览器精典技巧两则

标签： windows 操作系统

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

一组VB实用小程序

标签：编程语言网络编程

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

查看更多精彩>>