自动完成功能vb实现

自动完成功能,vb实现

最近应某人要求,希望能用vb6实现自定义数据的自动完成功能,看了下相关文章,摸索了下,算是完成了.

首先需要引用两个库,http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip

新建工程,添加一个class,命名为cCusAuto

填入如下代码
'---------------------------------------------------------------------------------------
' Module    : cCusAuto
' DateTime  : 2006-5-10 21:40
' Author    : lingll
' email     : lingll_xl@163.com
' Purpose   :
'---------------------------------------------------------------------------------------

Option Explicit

Implements olelib2.IEnumString

Private m_Str() As String
Private m_cnt As Long

Private m_pos&

'---------------------------------------------------------------------------------------
' Procedure : IniMe
' DateTime  : 2006-5-10 21:40
' Author    : lingll
' email     :