利用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的版本号呢??

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值