实现文本框的自动完成功能有很多方法，这里介绍的是用IE自带的Shlwapi.dll实现的方法。
一、介绍Shlwapi.dllShlwapi.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 LongEnd 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 LongPrivate Declare Function DllGetVersion Lib "Shell32.dll" & _ (ByRef dvi As DLLVERSIONINFO) As LongPrivate Type DLLVERSIONINFO cbSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildVersion As Long dwPlatformID As LongEnd TypePrivate Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000Private Const SHACF_DEFAULT = &H0Private Const SHACF_FILESYSTEM = &H1Private Const SHACF_URLHISTORY = &H2Private Const SHACF_URLMRU = &H4Private Const SHACF_URLALL = (SHACF_URLHISTORY | SHACF_URLMRU)Private Const DLLVER_PLATFORM_WINDOWS = &H1Private Const DLLVER_PLATFORM_NT = &H2Private Const S_OK = &H0Private 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 IfEnd 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 IfEnd Sub
六、未决问题在这里我有一个问题，希望哪位高手指点一二。因为你想使用DllGetVersion函数，那么就必须要用4.71版本的Shell32.dll，但是只有在Windows2000或者是带有IE4以上版本的Windows NT或者是Windows98才有该版本的Shell32.dll(在MSDN中有说明)，所以我首先就必须知道Shell32.dll的版本，这样的话，我又如何才能获得Shell32.dll的版本号呢？？
