一篇关于在COMBOBOX中使用SENDMESSAGE的实例

最近经常有人问我这个问题索引就把代码贴出来大家一起共享吧！其实难度很低就是SENDMESSAGE的应用而已。但是实用性却瞒高，看到很多程序都有类似的功能。

程序功能：
在TEXTBOX中输入字符后马上在COMBOBOX中找匹配的字符串一但找到马上下拉COMBOBOX菜单并且选中此字符串。然后在这期间用户可以使用“F3”继续查找其他类似匹配的字符串，当用户按下“回车键”就使COMBOBOX复原并且选中特定字符串。并且附带添加指定字符串和插入指定字符串已经删除指定字符串等功能。

程序源码如下：

Option   Explicit
"******************************************************************************************************************
"显示XP风格函数
Private   Declare   Sub   InitCommonControls   Lib   "comctl32.dll"   ()
"******************************************************************************************************************
"SendMessage函数和本实例使用到的一些常量
Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long
"Private   Const   WM_GETTEXTLENGTH   =   &HE
Private   Const   CB_GETCOUNT   =   &H146
"Private   Const   WM_GETTEXT   =   &HD
"Private   Const   WM_SETTEXT   =   &HC
Private   Const   CB_FINDSTRING   =   &H14C
Private   Const   CB_ADDSTRING   =   &H143
Private   Const   CB_GETCURSEL   =   &H147
Private   Const   CB_SELECTSTRING   =   &H14D
Private   Const   CB_SHOWDROPDOWN   =   &H14F
Private   Co