| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

VB技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·利用shell编程实现DOS风格的Linux命令行
·新手必学:windows网络编程经典入门
·通过连接实例解读TCP/IP协议
·JAVA生成JPG缩略图
·一组VB实用小程序
·VB解决Unicode文本转换的问题
·用VB制作屏幕保护程序
·Visual Basic开发应用程序答疑
·用VB6实现中英文文本的私钥加密
·用VB学做“黑客”程序

站内搜索

利用IE自带的Shlwapi.dll实现文本框的自动完成

  实现文本框的自动完成功能有很多方法,这里介绍的是用IE自带的Shlwapi.dll实现的方法。

  一、介绍Shlwapi.dll

  Shlwapi.dll和Comctl32.dll,Shell32.dll一样是随着IE而分发的,所以如果你想得到最新的版本必须下载最新版的IE。其中,Shell32.dll和Comctl32.dll的最初版本是4。0版,她是随着Windows95和Windows NT分发的;而Shlwapi.dll的最初版本是4。71,它是随着IE4分发的。为了得到具体的版本号,你必须使用DllGetVersion函数(它在Shell32.dll中定义)。

  二、函数声明

  1。Declare Function DllGetVersion Lib "Shell32.dll" (ByRef dvi As DLLVERSIONINFO) As Long

  该函数是为了得到DLL文件的版本号

  2。Declare Function SHAutoComplete Lib "Shlwapi.dll"(ByVal hwndEdit As Long,ByVal dwFlags As Long) As Long

  该函数实现了文本框的自动完成功能

  三、常量声明

  1。DllGetVersion函数用到的常量如下所示:

  (1)Const DLLVER_PLATFORM_WINDOWS = &H1

  函数适合于任何Windows平台

  (2)Const DLLVER_PLATFORM_NT = &H2

  函数适合于Windows NT平台

  2。SHAutoComplete函数用到的常量如下所示

  (1)Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000

  忽略注册表的设置并且打开autosuggest特性。它必须和SHACF_FILESYSXXX或者SHACF_URLXXX联合使用

  (2)Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000

  忽略注册表的设置并且关闭autosuggest特性。它必须和SHACF_FILESYSXXX或者SHACF_URLXXX联合使用

  (3)Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000

  忽略注册表的设置并且打开autoappend特性,它必须和SHACF_FILESYSXXX或者SHACF_URLXXX联合使用

  (4)Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000

  忽略注册表的设置并且关闭autoappend特性,它必须和SHACF_FILESYSXXX或者SHACF_URLXXX联合使用

  (5)Const SHACF_DEFAULT = &H0

  缺省设置。它和SHACF_FILESYSTE|SHACF_URLALL等价。不能和任何标志值联合使用

  (6)Const SHACF_FILESYSTE = &H1

  包含文件系统和虚拟文件夹(比如桌面或是控制面板)

  (7)Const SHACF_URLHISTORY = &H2

  包含历史记录的URL列表

  (8)Const SHACF_URLMRU = &H4

  包含最近使用过的URL列表

  (9)Const SHACF_URLALL = (SHACF_URLHISTORY | SHACF_URLMRU)

  (这个不用多解释了吧)

  3.返回值

  (1)调用DllGetVersion成功则返回NOERROR,它被定义为0:

  Const NOERROR = 0

  (2)调用SHAutoComplete成功则返回S_OK,它被定义为&H0:

  Const S_OK = &H0

  四、类型

  函数DllGetVersion要用到类型DLLVERSIONINFO,其定义如下:

  Type DLLVERSIONINFO

  cbSize As Long

  dwMajorVersion As Long

  dwMinorVersion As Long

  dwBuildVersion As Long

  dwPlatformID As Long

  End Type

  (1)cbSize:类型的长度,在调用DllGetVersion前必须先设置其值

  (2)dwMajorVersion:主版本号

  (3)dwMinorVersion:次版本号

  (4)dwBuildVersion:修正号

  (5)dwPlatformID:DLL所使用的平台。其值为DLLVER_PLATFORM)WINDOWS或者DLLVER_PLATFORM_NT

  五、代码示例

  在函数的声明段有如下代码:

  Option Explicit

  Private Declare Function SHAutoComplete Lib "Shlwapi.dll" & _
   (ByVal hwndEdit As Long,ByVal dwFlags As Long) As Long
  Private Declare Function DllGetVersion Lib "Shell32.dll" & _
   (ByRef dvi As DLLVERSIONINFO) As Long
  Private Type DLLVERSIONINFO
   cbSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildVersion As Long
   dwPlatformID As Long
  End Type
  Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
  Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
  Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
  Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
  Private Const SHACF_DEFAULT = &H0
  Private Const SHACF_FILESYSTEM = &H1
  Private Const SHACF_URLHISTORY = &H2
  Private Const SHACF_URLMRU = &H4
  Private Const SHACF_URLALL = (SHACF_URLHISTORY | SHACF_URLMRU)
  Private Const DLLVER_PLATFORM_WINDOWS = &H1
  Private Const DLLVER_PLATFORM_NT = &H2
  Private Const S_OK = &H0
  Private Const NOERROR = 0

  Private Sub Form_Load()
   Dim dvi As DLLVERSIONINFO

   dvi.cbSize = Len(dvi)
   If DllGetVersion(dvi) <> NOERROR Then
   MsgBox "无法检测Shlwapi.dll的版本号",vbExclamation
   Exit Sub
   End If

   Label1.Caption = "你所用的是Shlwapi.dll" & dvi.dwMajorVersion & "." & _
   dvi.dwMinorVersion & "." & dvi.dwBuildVersion

   If dvi.dwMajorVersion >= 5 Then
   Command1.Enabled = True
   Command1.Caption = "开启自动完成功能"
   Else
   MsgBox "你必须使用IE5才能使用该例程",vbExclamation
   End If
  End Sub

  Private Sub Command1_Click()
   Dim dvi As DLLVERSIONINFO

   dvi.cbSize = Len(dvi)
   If DllGetVersion(dvi) <> NOERROR Then
   MsgBox "无法检测Shlwapi.dll的版本号",vbExclamation
   Exit Sub
   End If

   If dvi.dwMajorVersion >= 5 Then
   If AutoComplete(Text1.hwnd,SHACF_DEFAULT) <> S_OK Then
    MsgBox "无法开启自动完成功能",vbExclamation
    Exit Sub
   Ebd If

   Text1.SetFocus
   Text1.SelStart = Len(Text1.Text)

   Command1.Enabled = False
   Command1.Caption = "自动完成功能已开启"
   End If
  End Sub

  六、未决问题

  在这里我有一个问题,希望哪位高手指点一二。

  因为你想使用DllGetVersion函数,那么就必须要用4.71版本的Shell32.dll,但是只有在Windows2000或者是带有IE4以上版本的Windows NT或者是Windows98才有该版本的Shell32.dll(在MSDN中有说明),所以我首先就必须知道Shell32.dll的版本,这样的话,我又如何才能获得Shell32.dll的版本号呢??

  原作:cssin




相关文章
  • 中国互联网十五年的22个创新模式
  • 获取用户IP地址的三个属性的区别
  • 十年里最具影响力的十大网络事件
  • 新浪阻碍互联网的发展
  • Facebook实名地址注册
  • DNS规模故障追踪——由24岁站长引发的蝴蝶效应
  • 网络生意起步10步搞定
  • 黑莓使用秘笈
  • IE浏览器使用自动配置脚本的设置方法
  • PHP发送UTF-8编码中文邮件标题乱码的解决
  • 常用网络命令及命令详解
  • 解决BlogSpot不能访问的方法
  • 对IE6中Web内容区域安全设置更改
  • 使用Google Reader的10个技巧
  • Linux下软件的基本安装和卸载
  • 使用PING命令轻松判断TCP/IP故障
  • 如何更聪明地阅读
  • 让IE下载变多线程
  • Del.icio.us 最炫的十个用法
  • IE7的两个技巧
  • 相关软件

  • 你想知道拨号网络连通后的动态小图标  
  • 利用Winsock做的网络程序  
  • 调制解调器网络编程  
  • 网络对话程序  
  • 列举网络上所有资源  
  • 通过网络传输并对MPEG进行解码的程序  
  • 网络工具  
  • 抢先式多线程网络蜘蛛  
  • 网络电脑列表  
  • 网络聊天工具原代码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有