VB combo1实现中文检索

Question

VB combo1实现中文检索

Answer 1

什么意思？    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If Combo1.List(i) = "搜索内容" Then
            Combo1.ListIndex = i
        End If
    Next这个？

Answer 2

兄弟,combo1中加载了很多值 如:001-成都 002-上海 003-大连.我想实现中文的自动模糊查询.在combo1中输入"上海"程序自动带出 002-上海.

Answer 3

这个比较难了，好象要自已写个控件来实现。combo1本身实现不了呀。

Answer 4

Sub Find()
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If InStr(Combo1.List(i), Combo1.Text) Then
            Combo1.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub'Private Sub Combo1_Change()
'    Find
'End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode <> 13 Then Exit Sub
    Find
End SubPrivate Sub Form_Load()
    Combo1.AddItem "001-北京"
    Combo1.AddItem "002-上海"
    Combo1.AddItem "003-南京"
    Combo1.AddItem "004-天津"
    Combo1.AddItem "004-南通"
End Sub

Answer 5

简单，用combox和list控件组合使用
combox 的change事件里
  首先list隐藏
  输入东西后就在table搜索
    if 如果有 then
       list 显示
       将查询的记录集写入list
       do while not rs.eof
          list.additem rs(1) 
          rs.movenext
       loop
    endif在list 的 click 事件里
    if list中的某条记录被选择 then
       combox1.text=list1.text
    end if
    list 隐藏这样就可以实现类似中文检索

Answer 6

Sub Find()
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If InStr(Combo1.List(i), Combo1.Text) Then
            Combo1.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub'Private Sub Combo1_Change()
'    Find
'End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode <> 13 Then Exit Sub
    Find
End SubPrivate Sub Form_Load()
    Combo1.AddItem "001-北京"
    Combo1.AddItem "002-上海"
    Combo1.AddItem "003-南京"
    Combo1.AddItem "004-天津"
    Combo1.AddItem "004-南通"
End sub
正确！

Answer 7

使用sendmessage发送CB_FINDSTRING消息简单的多
Private Const CB_FINDSTRING = &H14C