用SendMessage函数实现VB程序的查询功能

2016-02-19 13:19 13 1 收藏

今天图老师小编给大家精心推荐个用SendMessage函数实现VB程序的查询功能教程，一起来看看过程究竟如何进行吧！喜欢还请点个赞哦~

【 tulaoshi.com - 编程语言】

在API文本浏览器里，当我们在搜索栏输入任意字母，“可用项”里以该字母开头的项目以高亮显示以引起我们注意该项是不是我们所需的。象这样的功能一切提供搜索选项的程序都应该具备。以下例子采用SendMessage函数实现这一技术。
　　请给标准工程添加ListBox和TextBox控件各一个，其各项属性均取默认值，然后将下列代码拷贝到你的工程：
　　
　　OptionExplicit
　　
　　'申明API函数
　　PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLong
　　
　　ConstLB_FINDSTRING=&H18F'常数
　　
　　PrivateSubForm_Load()
　　
　　'给列表框添加26个字母（大写）
　　DimiAsInteger
　　Fori=Asc("A")ToAsc("Z")
　　List1.AddItemChr$(i)
　　Next
　　Text1=""'令文本框为空
　　
　　EndSub
　　
　　PrivateSubText1_KeyPress(KeyAsciiAsInteger)
　　
　　Text1=""'按下任意键则令原内容消失
　　Text1.SelLength=1'限制长度
　　Text1.SelText=Chr(KeyAscii)'显示键盘符号
　　KeyAscii=0'禁止响铃
　　'ListBox中的项目文本若与文本框的一致则选中(高亮)
　　List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))
　　
　　EndSub
　　
　　以上程序适用于单项目为多个字母的查询，但必须注意，在TextBox的KeyPress事件中要作相应的改动。->

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

上一篇：让你的DBGridEh的Column自动适应宽度
下一篇： jquery+json实现的搜索加分页效果

看过《用SendMessage函数实现VB程序的查询功能》的人还看了以下文章更多>>

用VB编写托盘程序

标签：编程语言网络编程

在WINDOWS里，右下角有许多应用程序的图标。而程序本身的窗口是隐藏的，若你需要调用应用程序的窗口，则双击该图标即可。这种程序称为托盘程序。这是WINDOWS98操作系统的一大特色。使用户能够更加快捷的显示和隐藏应用程序，可以使任务栏不致于太乱。托盘程序在Visual Basic里是怎么实现的呢？编写托盘程序主要解决两个问题： ...

用VB实现浮动按钮

标签：编程语言网络编程

在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按钮，即正常情况下按钮的图标呈灰色，当鼠标移动到某一按钮上时，该按钮自动向上凸起且变为彩色，并在按钮的右下方有一标签提示该按钮的功能，鼠标移开后又自动还原，这种按钮用VB实现时，方法如下： 1．先用绘图工具作出按钮图标后存盘（如1．BMP），再用图像处理软件将该图标...

PHP Image函数实现日历功能

标签： Web开发

这里我的例子是利用PHP中的Image函数实现动态生成GIF图象文件的，用户在不同的时间访问可以返回不同的小日历图片，代码如下：？phpheader("Content-type: image/gif");$y=date(Y);$m=date(n);$w=date(w);$d=date(j);$ws[0]="Sun";$ws[1]="Mon";$ws[2]="Tue";$ws[3]="Wed";$ws[4]=&quo...

用VB学做“黑客”程序

标签：编程语言网络编程

只要掌握了原理，你也能写出一个所谓的黑客程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。一、所用控件在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工...

一个用VB5.0实现的鼠标绘图程序

标签：编程语言网络编程

摘要:本文给出了一个用VB5.0实现的鼠标绘图程序,对程序的主要功能及实现细节作了详细说明,并给出了部分源程序. 关键词:VB5.0,可视化程序设计 1.引言 MicroSoft公司推出的新一代可视化程序设计语言VB5.0以其功能强大和简单易学而深受广大程序设计人员的喜爱,人们用它开发出了许多绚丽多彩的应用程序,可以这样说,VB5.0将成为最流...

查看更多精彩>>