实现文本框的自动完成功能有很多方法，这里介绍的是用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