首页 相关文章 用SendMessage函数实现VB程序的查询功能

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

在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...[ 查看全文 ]

2016-02-19 标签:

用SendMessage函数实现VB程序的查询功能的相关文章

手机页面
收藏网站 回到头部